VFP 数据输出到EXCEL
发布网友
发布时间：2022-08-18 08:54
我来回答
共2个回答
热心网友
时间：2023-10-17 03:16
简单思路是这样，建立一表（或内存表）先存放你的输出结果，然后后"COPY TO [filename] TYPE XL5"命令输出EXCEL表就是，不必操纵EXCEL。比如字段名就取ch吧：
set safe off
CREA TABL mytab (ch C(60))
for i=1 to 800
appe blank
repl ch with "abcde"
endfor
COPY TO myxls TYPE XL5
use
热心网友
时间：2023-10-17 03:17
oleapp=createobject('excel.application')
oleapp.workbooks.add
oleapp.Workbooks.Open ('\dsdf\开票.xls')
oleapp.Worksheets("tz").Activate
mchannum = DDEInitiate('Excel', 'tz')
IF mchannum != -1
sdata=str(year(wtmx.clear_t),4,0)
ki="1"
kj="1"
DDEPoke(mchannum, 'R&ki.C&kj', sdata)
sdata=str(MONTH(wtmx.clear_t),2,0)
ki="2"
DDEPoke(mchannum, 'R&ki.C&kj', sdata)
sdata=str(day(wtmx.clear_t),2,0)
ki="3"
DDEPoke(mchannum, 'R&ki.C&kj', sdata)
ki="4"
sdata=wtmx.skfh
DDEPoke(mchannum, 'R&ki.C&kj', sdata)
ki="5"
sdata=wtmx.skzh
DDEPoke(mchannum, 'R&ki.C&kj', sdata)
ki="6"
sdata="番禺联社营业部"
DDEPoke(mchannum, 'R&ki.C&kj', sdata)
ki="7"
sdata=str(wtmx.yk,11,2)
DDEPoke(mchannum, 'R&ki.C&kj', sdata)
ki="8"
sdata=wtmx.wtdw
DDEPoke(mchannum, 'R&ki.C&kj', sdata)
ki="9"
sdata=wtmx.ckzh
DDEPoke(mchannum, 'R&ki.C&kj', sdata)
ki="10"
sdata=wtmx.khyh
DDEPoke(mchannum, 'R&ki.C&kj', sdata)
sdata=str(MONTH(wtmx.wt_time),2,0)+"月"+str(day(wtmx.wt_time),2,0)+"日"
do case
case wtmx.ywxzdm="1" &&代收
sdata=sdata+"代收成功"+ALLTRIM(str(hhbs))+"笔划转"
case wtmx.ywxzdm="2" &&代付
sdata=sdata+"代付失败"+ALLTRIM(str(hhbs))+"笔转回"
endc
ki="11"
DDEPoke(mchannum, 'R&ki.C&kj', sdata)
= DDETerminate(mchannum)
endi
oleapp.Worksheets("特种转帐").Activate
oleapp.visible=.t.
wait ""
oleapp.Workbooks.close
oleapp.quit
vfp如何将报表输出到EXCEL啊?
1．创建Excel对象 eole=CREATEOBJECT(′Excel.application′)2．添加新工作簿 eole.Workbooks.add 3．设置第3个工作表为激活工作表 eole.Worksheets(″sheet3″).Activate 4．打开指定工作簿 eole.Workbooks.Open(″c:\temp\ll.xls″)5．显示Excel窗口 eole.visible=.t.6．更改Excel标题栏 eole.Captio...
如何将VFP工作表导出到Excel,并进行编辑
方法一：如果你的数据中都是普通的数值和字符串类型，直接用Excel打开表，然后“另存为”一个Excel就可以了。 这样最多可以保存65,536 行(但其中有一行保留给字段标题)，因为目前EXCEL最多支持 65,536 行 方法二：用VFP9.0执行如下语句：USE test.dbfCopy To TEST.Xls Type Xl5 注：可以输出最...
VFP 数据输出到EXCEL
简单思路是这样，建立一表（或内存表）先存放你的输出结果，然后后"COPY TO [filename] TYPE XL5"命令输出EXCEL表就是，不必操纵EXCEL。比如字段名就取ch吧：set safe off CREA TABL mytab (ch C(60))for i=1 to 800 appe blank repl ch with "abcde"endfor COPY TO myxls TYPE XL5 use...
VFP里面的数据能导出或是转换成EXCEL吗?
可以，就算不能直接转换，你也可以先把 VFP 导出成文本文件，选好分隔符，然后在用 EXCEL 导入数据，从文本文件导入。方法是 数据 导入数据 导入外部数据 然后在对话框中选择文本文件。这个是肯定能导的，关键是这两个软件都是微软的 ，估计应该是可以直接导入的，我在下拉框中看了一些可以导入...
怎样把vf的查询结果保存成excel文件vfp查询文件中保存的是
参考代码:select表名copytod:\\abc.xlstypexl5fields字段1,字段2,字段3for字段1=4其中\"d:\\abc.xls\"改成你要输出的文件\"typexl5\"是输出格式,这是excel2003的格式,不要改动\"fields字段1,字段2,字段3\"是可以选择只导出指定字段,如果全导出就不要这个子句\"for字段1=4\"是可以只导出...
vf中的数据不能完全导出为EXCEL格式怎么办
比如是从16000条记录到30000条，你可用for 这个语句 加条件，1、你可以输命令直接导：例如：COPY TO 文件名 TYPE XL5 FOR reno()>=16000 .and.reno()<=30000 2、用菜单导 在导出文件的那个地方 有个“选项”的 然后点“for”然后再在“表达式”那个地方 输入“reno()>=16000 .and.reno()<=...
vfp导出excel数据不全
直接导出EXCEL。不是生成新的EXCEL文件，不是用COPYTOAATYPEXLS，而是在表单中的GRID，直接导出EXCEL，即打开EXCEL，然后内容是GRID中的内容。
VFP中把表格导出到EXCEL中后,然后怎用EXCEL格式打开它?
1 打开表（窗口-数据工作区-打开）2 文件-导出，类型选择“Microsoft Excel 5.0”,到：输入要生成的文件名。确定。3 然后怎用EXCEL格式打开它。
vfp如何利用export将数据表导出成xls文件
最后成功实现了将源表导出到EXCEL中。特此提出以供大家讨论，同时借此抛砖引玉，还望高手不吝赐教。其实笔者所用的原理很简单。主要使用了Visual Foxpro中的FCOUNT()与FIELDS函数。打开表后利用FCOUNT（）函数取得了表中的字段个数。然后用FIELDS（）函数设法取得各个字段的字段名。这样问题就基本解决了。
有一张VFP的DBF表~想要导出为EXCEL,可是超出条数限制!
导出为文本（就是所谓的记事本）文件，然后在EXCEL里面导入这个文本，这样可以支持100万条数据的导入，就不用分表了。
