回复 21楼 Eric1111
不敢当啊，这里高手太多了，和他们一比，觉得自己只是个初入门的小学生而已。
经过学习和反复测试，我在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)
问题解决了，真高兴啊