回复 16楼 sdta
嗯嗯,好的,我已经改到5.0版本都不行,我还试过改成csv,虽然可以导入,但是我当我设置字段名所在行时,就会显示错误#10在createtestcursor (O): 语法错误,然后是找不到别名。如果略过就可以。我再试试吧。
回复 15楼 mywisdom88
你好,我试下了你的建议,还是一样的问题。我有个疑惑,为什么不用表单向导就可以呢,但是有的数据会出现很多位小数。其他的我再试试吧!
ff = "e:\CWBB\ttyian\ttyian.xlsx" && 源文件,xls/xlsx均可 oExcel=Createobject('Excel.Application') owb = oExcel.Workbooks.Open(ff) osht = owb.Worksheets("Sheet1") && 指定Sheet r2 = osht.UsedRange.rows.count && 最末行 c2 = osht.UsedRange.columns.count && 最右列 arr11 = osht.range(osht.cells(2,1) ,osht.cells(r2,c2)).value && 第一行是表头,故从第2行开始取 select importDBF APPEND FROM ARRAY arr11 owb.Close() oExcel.Quit()
[此贴子已经被作者于2023-5-11 15:42编辑过]