您所在位置：主题：一段代码,可以把XLS表导成DBF,直接点击可以打开DBF表,但在程序中怎么打不开,为什么?请教
天地之间
[专家分：0] 发布于 2010-04-17 08:56:00
各位朋友,我有一段代码,可以把XLS表导成DBF,直接点击可以打开DBF表,但在程序中怎么打不开,请教一下,如何解决:
eole=CREATEOBJECT("Excel.application") &&创建EXCEL对象
eole.Workbooks.Open("D:\wemsxsfb\wems.xls")
eole.ActiveWorkBook.Saved = .t.
eole.displayalerts=.f.
eole.ActiveWorkbook.SaveAs("D:\wemsxsfb\"+'sss',8) &&DBASE3格式
eole.quit
clos all
use D:\wemsxsfb\sss.dbf (打不开表)
eole=CREATEOBJECT("Excel.application") &&创建EXCEL对象
eole.Workbooks.Open("D:\wemsxsfb\wems.xls")
eole.ActiveWorkBook.Saved = .t.
eole.displayalerts=.f.
eole.ActiveWorkbook.SaveAs("D:\wemsxsfb\"+'sss',8) &&DBASE3格式
eole.quit
clos all
use D:\wemsxsfb\sss.dbf (打不开表)
