20多年？好吧，厉害厉害的前辈啊

不敢当啊，这里高手太多了，和他们一比，觉得自己只是个初入门的小学生而已。

经过学习和反复测试，我在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)

问题解决了，真高兴啊

留个脚印，学习了