VBA遍历文件夹复制数据后无法关闭文件的解决方法咨询

嘿，我太懂这种文件关不掉的糟心感了！你遇到的问题大概率是工作簿引用方式不对或者对象未正确释放导致的，给你几个靠谱的解决方案，一步步来：

核心问题分析 #

你之前用Workbooks(MyFile).Close无效，很可能是因为Dir返回的只是文件名，不是完整路径——当源文件所在文件夹不是Excel当前工作路径时，Workbooks(MyFile)根本找不到对应的工作簿，自然关不掉；而ActiveWorkbook也可能因为操作中不小心切换了窗口，指向的不是你要关闭的那个文件。

解决方案：显式引用+完整路径 #

下面是修改后的完整代码，我把关键优化点标出来了：

Sub LoopThroughDirectory()
    Dim MyFile As String
    Dim erow As Long
    Dim wbSource As Workbook ' 显式声明源工作簿对象
    Dim wsDest As Worksheet
    Dim targetFolder As String
    
    ' 1. 设置目标工作表（用ThisWorkbook确保是当前运行宏的工作簿）
    Set wsDest = ThisWorkbook.Worksheets("Sheet1")
    ' 2. 文件夹路径一定要加末尾的\，避免拼接出错
    targetFolder = "C:\Desktop\Actual Files\"
    
    ' 3. 获取文件夹下的所有Excel文件（根据你的文件类型改后缀，比如*.xls）
    MyFile = Dir(targetFolder & "*.xlsx")
    
    Do While MyFile <> ""
        ' 跳过当前工作簿，避免误操作
        If MyFile <> ThisWorkbook.Name Then
            ' 禁用事件（防止源工作簿的关闭事件阻止操作）
            Application.EnableEvents = False
            
            ' 4. 用完整路径打开工作簿，并赋值给变量
            Set wbSource = Workbooks.Open( _
                Filename:=targetFolder & MyFile, _
                ReadOnly:=True ' 只读打开，避免锁定文件
            )
            
            ' --- 这里是你的数据复制逻辑，示例如下 ---
            wbSource.Worksheets("Sheet1").UsedRange.Copy
            erow = wsDest.Cells(wsDest.Rows.Count, 1).End(xlUp).Row + 1
            wsDest.Cells(erow, 1).PasteSpecial xlPasteValuesAndNumberFormats
            ' --- 复制逻辑结束 ---
            
            ' 5. 关闭源工作簿，不保存更改
            wbSource.Close SaveChanges:=False
            ' 6. 释放对象，彻底清除内存引用
            Set wbSource = Nothing
            
            ' 恢复事件
            Application.EnableEvents = True
        End If
        
        ' 获取下一个文件
        MyFile = Dir
    Loop
    
    MsgBox "数据合并完成！所有源文件已关闭"
End Sub

关键优化点拆解 #

• 用完整路径打开文件：targetFolder & MyFile确保Excel能精准定位到要打开的文件，避免引用错误。
• 显式使用工作簿变量：wbSource直接指向打开的源文件，比ActiveWorkbook可靠100倍——毕竟操作中不小心点一下其他窗口，ActiveWorkbook就变了。
• 只读打开+禁用事件：ReadOnly:=True防止文件被锁定，Application.EnableEvents = False避免源工作簿自带的Workbook_BeforeClose事件搞破坏（比如有些文件会在关闭时弹窗或阻止关闭）。
• 释放对象：Set wbSource = Nothing彻底清除内存中的对象引用，这是很多人忽略的点——如果对象没释放，Excel会认为文件还在被使用，自然关不掉。

额外排查点 #

如果还是关不掉，试试这两个方法：

• 打开任务管理器，看看是不是有隐藏的Excel进程在后台，结束后重新运行宏。
• 检查源文件有没有保护或共享设置，这类设置也可能导致文件无法正常关闭。

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