如位早上好，本人在使用程序把EXCL转换成DBF文件时，OFFICE是2003版本时是成功的，但在OFFICE2007以上版本时则不成功（发生错误行： .ACTIVEWORKBOOK.SAVEAS(DBFNAME,11) ），代码如下：
FILENAME=allt(thisform.Text2.value)
OEXCEL=CREATEOBJECT("EXCEL.APPLICATION")       && 创建 EXCEL
WITH OEXCEL
   .WORKBOOKS.OPEN(FILENAME)                   && 在 EXCEL 中打开指定的工作簿
   .DISPLAYALERTS=.F.                          && 关闭提示信息
   .WORKSHEETS("SHEET1").SELECT                       && 选中 SHETT1 为当前工作表（1 可改为 "SHEET1"）
   R=OEXCEL.SHEETS("SHEET1").USEDRANGE.ROWS.COUNT     && 有数据的行
   C=OEXCEL.SHEETS("SHEET1").USEDRANGE.COLUMNS.COUNT  && 有数据的列
   .CELLS(R,C).SELECT                          && 选中 R 单元到 C 单元的区域
   DBFNAME = FORCEEXT(FILENAME,"DBF")          && 将扩展名 XLS 替换为 DBF
   .ACTIVEWORKBOOK.SAVEAS(DBFNAME,11)          && 保存为 DBF4 格式
   .WORKBOOKS.CLOSE
   .QUIT
ENDWITH

RELEASE OEXCEL

请问各位高手如何可以解决此问题，谢谢

传你个txt

参考：https://blog.bccn.net/sdta/61114

两位版主中午好，两各方法都试了，都可以转换成功，非常感谢。
tlliqi版主的程序虽然有点长，但转换字段长度与原文基本一样
sdta版主的程序简短，但转换后字段长度变得很长，每个字段约有100位,虽然不影响使用，若能调整下字段长度就完美了

代码仅供参考，不足之处自行修改，这样才能不断提高自己的编程水平。

学习了。