经过学习和反复测试,我在15楼的代码终于找到问题所在了:
1、oExcel.Workbooks.Open("&cExcelFile")
在6.0中没问题,但在9.0中必须写成:
oExcel.Workbooks.Open(cExcelFile)
2、EMPTY(oExcel.Worksheets("生成数据库").Cells(I,1).Value)
在6.0中能判断EXCEL单元格是否是空值,但在9.0中不能,改成如下代码就OK了:
ISNULL(oExcel.Worksheets("生成数据库").Cells(I,1).Value)
问题解决了,真高兴啊