Office2010 Win7下accdb应用VBA操作Excel循环二次迭代报错求助

这种循环里第一次跑正常、第二次直接炸的坑我之前在维护老Office环境时踩过好几次！尤其是Office 2010+Win7的组合，十有八九是Excel对象没被彻底释放，导致内存里残留的旧对象干扰了第二次循环的识别。结合你遇到的场景，给你几个针对性的解决办法：

1. 严格执行「创建-清理」的对象闭环（核心！） #

每次循环都要新建独立的Excel实例，操作完成后按顺序彻底释放所有对象——从最底层的Worksheet，到Workbook，再到Excel应用程序，一个都不能少。示例代码如下：

Sub ProcessExcelFiles()
    Dim excelApp As Excel.Application
    Dim wb As Excel.Workbook
    Dim ws As Excel.Worksheet
    Dim filePaths As Variant
    Dim i As Integer
    
    ' 替换成你的目标文件路径列表
    filePaths = Array("C:\data1.xlsx", "C:\data2.xlsx", "C:\data3.xlsx")
    
    For i = LBound(filePaths) To UBound(filePaths)
        ' 每次循环新建Excel实例，避免复用残留对象
        Set excelApp = New Excel.Application
        excelApp.Visible = False ' 后台运行提升效率
        
        ' 加错误捕获，防止文件打不开导致对象残留
        On Error Resume Next
        Set wb = excelApp.Workbooks.Open(filePaths(i))
        If Err.Number <> 0 Then
            Debug.Print "文件打开失败: " & filePaths(i)
            ' 出错也要记得清理对象
            excelApp.Quit
            Set excelApp = Nothing
            Err.Clear
            On Error GoTo 0
            Continue For
        End If
        On Error GoTo 0
        
        ' 这里写你的业务操作逻辑，比如读取数据、修改内容
        Set ws = wb.Worksheets(1)
        Debug.Print "读取到数据: " & ws.Range("A1").Value
        
        ' 关键步骤：按顺序释放对象，不能跳过
        wb.Close SaveChanges:=False
        Set ws = Nothing
        Set wb = Nothing
        excelApp.Quit
        Set excelApp = Nothing
    Next i
End Sub

划重点：释放对象的顺序必须是「从下到上」，而且Set xxx = Nothing不能省——老版本Office的COM对象如果没被彻底释放，会一直留在内存里，下次循环调用时就会出现识别混乱的错误。

2. 别用全局/模块级的Excel对象变量 #

如果你的代码里把excelApp、wb这类对象定义成了模块级或者全局变量，循环里重复赋值会导致引用冲突。一定要把这些对象变量定义在循环内部，或者在每次循环开始前强制重置为Nothing：

' 循环开始前重置
Set excelApp = Nothing
Set wb = Nothing
Set ws = Nothing

3. 排查Excel文件的兼容性问题 #

Office 2010对.xlsx格式的支持虽然没问题，但如果目标文件是用更高版本Office保存的，可能存在隐藏的格式兼容问题。可以试试两个小技巧：

• 把Excel文件另存为「Excel 97-2003 工作簿(.xls)」再测试
• 打开文件时加上ReadOnly:=True参数，避免文件锁定导致的异常：

Set wb = excelApp.Workbooks.Open(filePaths(i), ReadOnly:=True)

4. 强制清理内存残留（极端情况用） #

如果上面的方法都没解决，可能是系统内存里残留了无法自动释放的COM对象。可以在每次循环的清理步骤后，加一段强制清理剪贴板的代码（老Win7环境里亲测有效）：
首先在模块顶部声明API：

Private Declare Function EmptyClipboard Lib "user32" () As Long

然后在Set excelApp = Nothing之后调用：

Call EmptyClipboard

总的来说，老Office环境下操作外部Excel，对象管理一定要严谨，不能偷懒省略清理步骤——这几乎是解决「第一次正常第二次报错」这类问题的万能钥匙。

内容的提问来源于stack exchange，提问作者lclambe