近期常有人问DBF如何转Excel，今做了个表单可解决这一问题。要求VFP9环境，比较完整的Excel（支持VBA）。
可根据Excel的版本，导出多记录文件。当记录超过Sheet的上限，自动导入到下一个表，可防止字符串前面的0丢失。防止身份证等长字符串变成小数。可选择导出的字段。只在I5、Win10、Excel2016上测试过。1500000条记录、300M文件测试过，速度不快5分钟。

VBA中的
.TextFileColumnDataTypes = Array(2, 2, 1, 1, 2,9, 1)
不知VFP如何调用，如能解决，程序效率将更高。


如果没有非法汉字（半个汉字）可以用以下命令。可导出备注字段。
CURSORTOXML("已经打开的表别名或工作区名","XML文件名.xml", 3, 512+16,记录数,"XSD文件名")
说明：1、XML与XSD名可以任意，建议与表同名。
2、记录数说明
0——复制所有记录
其它——从当前记录开始的记录数。
记录数最大数Excel2003及以前为2^16-1,2007及以后2^20-1 (-1是标题行。)
指定数大于实际记录数，按实际数复制。

[此贴子已经被作者于2021-9-2 14:00编辑过]

学习

我用winrar解压怎么显示格式未知或数据已损坏

我的winrar（5.7）版本有点高改为zip格式

[此贴子已经被作者于2021-8-29 17:19编辑过]

导出后的EXCEL表没有一点内容？

EXCEL版本？只测试了2016

打开表单时提示：如上图

我也报告一下    EXCEL文件为空  我的也是EXCEL2016的

从7楼的截图看，好像是dbf文件选错了
我测试很顺利，已经把我的程序改了。
这是我至今为止见到的最好的方法，效率比复制粘贴要快，关键是不报错了，谢谢楼主，多谢多谢！！！

说明，用楼主的提供的程序，导出了zdlx.dbf，后又自己生成了更大数据量的文件，导出都很顺利！！！

[此贴子已经被作者于2021-8-30 14:50编辑过]

command1.click中
Use (_dbfnm) In 0应该为
Use (_fnm) In 0