不同版本Exce导入问题！l

wwwwa

这个问题你在2006年4月13日问过，这么长的时间没有解决？既然没有直接方法，只有用间接方法。以下为示例，自己做循环取得文件名。

TRY：

Set ZX = CreateObject("excel.application")
ZX.Visible = True
ZX.Workbooks.Add
ZX.Workbooks.Open ("D:\TEMP\1000.xls")
ZX.ActiveWorkbook.SaveAs "D:\TEMP\AA.xls", 43, "", "", False, False

zx.Quit
Set zx = Nothingor　在打开EXCEL后，直接运行ACCESS查询，导入数据。

[此贴子已经被作者于2006-9-6 9:22:26编辑过]

sgrshh29

以下是引用孤帆远影在2006-9-5 14:10:00的发言：
这不可能，上千个文件，如果转换还不如打开后直接读入，或者直接获取外部数据

做一个循环,打开后直接读入,读入以后就关闭.可以用代码实现

[此贴子已经被作者于2006-9-9 5:19:36编辑过]

hxt1971

[:50]