EXCL文件转DBF文件的问题
如位早上好,本人在使用程序把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