求助：如何将DBF文件数据导出到EXCEL的指定工作表中？
兄弟是新新手，工作需要，学习VFP。
VFP中已经建好四张DBF表，A01，A02，A03，A04。
需要将A01、A02、A03、A04四张表的数据，分别导出到EXCEL表格AA的工作表sheet1、sheet2、sheet3、sheet4中。
学了一天，看VFP控制EXCEL，还是没有解决。
请各位帮忙
万分感谢！ DBF导出EXCEL工作表
[解决办法]
方法1：
依次 copy to excel名称.xls type xl5
然后于调用 Excel 分别打开4个导出的 Excel，然后分别复制其中3个 Sheet 到某1个里。
方法2
直接调用 Excel，依次把 DBF 中的记录分别写入不同的 Sheet 中。
[解决办法]
本帖最后由 dkfdtf 于 2013-12-04 08:42:17 编辑 如果不需要精确控制每个单元格格式的话，逐个填写单元格不是个好办法。当表字段和记录数很大时，这种方法需要消耗的时间是无法忍受的。
vfp 提供了 DataToClip 方法，可以快速将数据复制到系统剪贴板，下面是使用示例：
Set Talk Off
* -- 创建 4 个测试用临时表
Create Cursor A01 (f1 C(20))
Create Cursor A02 (f1 C(20))
Create Cursor A03 (f1 C(20))
Create Cursor A04 (f1 C(20))
For ii = 0 To 3
cAlias = Textmerge('A0<<ii+1>>')
For jj = 1 To 10000 && 每个测试表插入 1w 条测试用记录
Insert Into (cAlias) (f1) Values (cAlias + Sys(2015))
Endfor
Goto Top In (cAlias)
Endfor
* -- End of 创建测试用表
* 开始将记录导入到 Excel 中
Local oo As Excel.Application
oo = Newobject('Excel.Application')
Do While oo.Workbooks.Count < 1 && 确保至少有 1 个工作簿
oo.Workbooks.Add()
Enddo
Do While oo.Workbooks(1).Sheets.Count < 4 && 确保有 4 个工作表
oo.Sheets.Add(Null, oo.Workbooks(1).Sheets(oo.Sheets.Count))
Enddo
_使用复制粘贴法 = .T.
s1 = Seconds()
For ii = 1 To 4 && 循环将 4 个表的数据复制,粘贴到 4 个工作表
cAlias = 'A' + Padl(ii, 2, '0')
s0 = Seconds()
If _使用复制粘贴法
_vfp.DataToClip(cAlias, 0xffff, 3) && 将 A0? 表的记录复制到剪贴板
oo.Workbooks(1).Sheets(ii).Paste && 再从剪贴板粘贴到工作表
_cliptext = ''
Else
oo.Workbooks(1).Sheets(ii).Select
Select (cAlias)
Scan
oo.cells[recno(),1].value = f1
EndScan
EndIf
? '填充 Sheet' +Padl(ii,1) + ' 耗时：' + Ltrim(Str(Seconds()-s0,10,4))
Endfor
? '*** 填充 40000 行数据共耗时：' + Transform(Seconds()-s1)
oo.Visible = .T. && 看看结果
* ...
* 保存并退出（参见你5楼后面的代码）
