VFP 导出到excel

SELECT * FROM tmp销量 INTO CURSOR tmp_Rpt

lc商品代码=ALLTRIM(tmp_Rpt.商品代码)
SELECT tmp_Rpt
GO TOP
tmpXLS=pcTmpPath+'tmp销量 '+Dtos(Date());
+'.XLS'

tmpXLS=PUTFILE('',tmpXLS,'XLS')

IF EMPTY(tmpXLS)
RETURN
ENDIF

WAIT WINDOW '建立Excel文件 ......' NOWAIT
IsCopyOK=.T.
TRY
SELECT tmp_Rpt
COPY To '&tmpXLS' FIELDS EXCEPT ID TYPE XL5
CATCH
IsCopyOK=.F.
ENDTRY

IF IsCopyOK=.F.
MESSAGEBOX('建立Excel文件失败!'+CHR(13)+MESSAGE(),16,'系统信息')
RETURN
ENDIF
tmpIsOK=.T.
TRY
tmpOLE=Createobject('Excel.Application')

CATCH
tmpIsOK=.F.
ENDTRY
IF tmpIsOK=.F.
WAIT CLEAR
MESSAGEBOX("调用Microsoft Excel程序失败!",16,"系统信息")
RETURN
ENDIF
WITH tmpOLE
.Workbooks.Open(tmpXLS)
.Selection.HorizontalAlignment=3
*.Cells.EntireColumn.AutoFits
ENDWITH
tmpOLE.ActiveSheet.name='Sheet1'
SELECT tmp_Rpt
lc商品代码=ALLTRIM(tmp_Rpt.商品代码)
tmpOLE.Cells(2,1).value=lc商品代码
ln记录=RECCOUNT("tmp_Rpt")+1
lc列号='A'+ALLTRIM(STR(ln记录))
SELECT tmp_Rpt
GO TOP
lnI=0
SCAN
WAIT WINDOW ' 正在导出文件,请稍后!......'+ALLTRIM(STR(RECNO()))+'/'+ALLTRIM(STR(RECCOUNT())) NOWAIT &&Please wait
lnI=lnI+1
lcRec=ALLTRIM(STR(RECNO()+1)) && 因为表有抬头，所以要从第3行开始加入数据
lcCmd='tmpOLE.Rows("'+lcRec+':'+lcRec+'").RowHeight=30' && OLE对象中.rows（列数） .rowheight列的高度为50
&lcCmd

ENDSCAN
ld2=DATETIME()

tmpOLE.ActiveSheet.Range('A:CA').WrapText=.T.
tmpOLE.Range("A:DR").HorizontalAlignment =3 &&水平(1-默认、2-靠左、3-居中、4-靠右、5-填充、6=两端对齐、7=跨列居中、8=分散对齐)
tmpOLE.Range("A:DR").VerticalAlignment =2 &&垂直(1=靠上、2=居中、3=靠下、4=两端对齐、5=分散对齐)

tmpOLE.ActiveWorkbook.Saved=.T.
tmpOLE.Visible=.T.
SELECT tmp_Rpt
USE

VFP 导出到excel相关推荐

计算机VFP输出方式有哪几种,VFP导出数据的方法大全
你可以用多种方法将这些数据导出,以便被其它应用程序(如等)所用.下面向你简单介绍几种导出数据的方法: 1.用"导出数据"对话框.你可以从VFP主菜单中选择"文件/导出-& ...
VFP导成EXCEL每次只能导16384行的解决方法
以下是在网上找的一些内容,我是用的下面的 COPY TO TEST.CVS TYPE CVS方法解决的为什么用VFP导成EXCEL每次只能导16384行? *-------------------- ...
java导出为excel文件_java导出数据到excel文件
有的时候,将一些有用的数据导出到excel是很有必要的.比如说,我现在在做一个学校的在线教学平台,有一个需求是:将学生成绩导出到excel文件中去. 那怎样实现用java导出数据到excel文件呢?? ...
ftl模板导出excel_freemarker导出复杂Excel
原文: freemarker导出复杂Excel date: 2017-04-20 12:39:04 [TOC] 序言用Freemarker做Excel导出确实很容易. 但是导出复杂Excel, 例如 ...
Gridview导出到Excel,Gridview中的各类控件,Gridview中删除记录的处理
Asp.net 2.0中新增的gridview控件,是十分强大的数据展示控件,在前面的系列文章里,分别展示了其中很多的基本用法和技巧(详见< ASP.NET 2.0中Gridview控件高级技巧 ...
将数据库查询结果导出成Excel表格
使用Java代码,从数据库中获取结果集,将结果集导出成Excel表格形式. 从数据库中查询学生表所有数据,将其导出成Excel表格,点击查看学生表表结构 . package com.test.test ...
百度指数常见php框架,怎么导出数据到excel表格-如何将百度指数数据导出到Excel表格...
如何将百度指数数据导出到Excel表格第一步:打开CAD.CAD命令行输入"Li"."选择对象"选需要提取坐标的多段线.回车. 第二步:将CAD文本框中的数据 ...
mysql excel 命令行_MySQL 命令行数据导出到 Excel
显示行号 | 选择喜欢的代码风格默认 GitHub Dune LakeSide Plateau Vibrant Blue Eighties Tranquil 将 MySQL 的数据导出 Excel, ...
R语言将多个dataframe导出到excel的多个表单（sheet）实战
R语言将多个dataframe导出到excel的多个表单(sheet)实战目录 R语言将多个dataframe导出到excel的多个表单(sheet)实战

VFP 导出到excel

VFP 导出到excel相关推荐

最新文章

热门文章