有一个EXCEL2003转换成DBF文件的小程序,现在想修改一下程序用来转换EXCLE2007以上版本为DBF(很想用EXCEL2007以上版本),不知行不行,求助高手解答如何修改.谢谢.

*以下代码把.xls电子表文件另存为数据库dbf表
cFileName=GETFILE('xls')     &&打开文件选择对话框
IF !EMPTY(cFileName)
    JUSTSTEM(cFileName)

 eole=CREATEOBJECT("Excel.application")&&创建EXCEL对象 
wjnames=JUSTSTEM(cFileName) &&取得文件名
eole.Workbooks.Open(SYS(5)+curdir()+wjnames)
eole.ActiveWorkBook.Saved = .t.
eole.displayalerts=.f.
eole.ActiveWorkbook.SaveAs(SYS(5)+curdir()+lower(wjnames),8) &&DBASE3格式
eole.quit
MESSAGEBOX("已转换成DBF数据库表"+chr(13)+SYS(5)+curdir()+lower(wjnames),64,"提示")
ENDIF                      

没有,看来没有答案.

[ 本帖最后由 tjdeming 于 2013-8-11 20:39 编辑 ]