这种随机崩溃、只有分步断点执行才能跑通的情况，我在处理VBA批量任务时碰到过好多次，大概率是Excel的后台资源处理跟不上宏的执行节奏，或者是代码里的一些隐性引用/设置问题。结合你的代码，给你梳理几个最可能的原因：

1. 文件打开后未完全加载就执行操作 #

Workbooks.Open看似是同步完成的命令，但Excel在打开文件时，后台可能还在加载样式、隐藏对象、甚至是文件自带的VBA代码/事件。如果这时候立刻调用DoWork，就会出现资源冲突导致崩溃。而断点停留的时间刚好给了Excel足够的时间完成加载，所以能正常运行。

修复建议：在打开文件后添加DoEvents（让Excel处理完后台队列），甚至针对大文件加短暂延时：

Set wb = Workbooks.Open(Pathname & Filename)
DoEvents ' 让Excel处理后台加载任务
' 可选：如果文件加载慢，加1秒等待
' Application.Wait Now + TimeValue("00:00:01")
DoWork wb

2. 依赖ActiveWindow的不安全引用 #

你的代码用了ActiveWindow.Close来关闭文件，但ActiveWindow是个不稳定的引用——如果打开文件时弹出了隐藏窗口、加载项弹窗，或者Excel后台切换了窗口，这个引用就会指向错误的窗口，导致崩溃或误操作。

修复建议：直接通过工作簿对象关闭，明确操作目标：

' 替换ActiveWindow.Close为：
wb.Close SaveChanges:=True ' 根据你的需求设置True（保存修改）或False

3. 未释放工作簿对象导致内存泄漏 #

循环打开文件时，如果没有手动释放wb对象，Excel的内存占用会逐渐升高，到一定程度就会随机崩溃。断点执行时，Excel有时间自动回收内存，所以问题不明显。

修复建议：关闭工作簿后立刻释放对象：

wb.Close SaveChanges:=True
Set wb = Nothing ' 手动释放工作簿对象，避免内存堆积

4. 应用级设置的隐性冲突 #

虽然你禁用了事件、自动计算等，但有些设置可能没有覆盖到所有场景：

• 比如AskToUpdateLinks = False，但最好在Workbooks.Open时显式设置UpdateLinks:=xlUpdateLinksNever，避免链接更新的隐性触发；
• 剪贴板残留的内容（CutCopyMode）也可能占用资源，建议在开头加上.CutCopyMode = False。

5. 第三方加载项干扰 #

不同电脑上表现不一致，很可能是因为不同电脑安装的Excel加载项不同——有些加载项会监听Excel的打开/关闭事件，和你的宏产生冲突。断点执行时，加载项的事件有时间处理，所以不崩溃。

排查建议：试试在Excel安全模式下运行宏（按住Ctrl打开Excel），如果能正常运行，就逐个排查加载项，禁用有冲突的那个。

优化后的完整代码示例 #

Public LastLine As Long
Public final_file As String
Public my_directory As String

Sub ProcessFiles()
    Dim Filename, Pathname As String
    Dim wb As Workbook
    
    ' 优化应用环境设置，减少干扰
    With Application
        .AskToUpdateLinks = False
        .ScreenUpdating = False
        .DisplayAlerts = False
        .Calculation = xlCalculationManual
        .EnableEvents = False
        .CutCopyMode = False ' 清空剪贴板，释放资源
    End With
    
    final_file = ActiveWorkbook.Name
    my_directory = InputBox("What's the name of the folder with the files?:", "Folder Name", "New files")
    Pathname = ActiveWorkbook.Path & "\" & my_directory & "\" ' VBA中单个\即可表示路径分隔符
    
    Filename = Dir(Pathname & "*.xlsx")
    Do While Filename <> ""
        ' 显式设置打开参数，避免意外触发链接更新或其他事件
        Set wb = Workbooks.Open( _
            Filename:=Pathname & Filename, _
            UpdateLinks:=xlUpdateLinksNever, _
            ReadOnly:=False ' 若不需要修改文件，设为True可减少冲突
        )
        
        ' 给Excel时间完成文件加载
        DoEvents
        
        DoWork wb
        
        ' 安全关闭目标工作簿并释放对象
        wb.Close SaveChanges:=True
        Set wb = Nothing
        
        Filename = Dir()
    Loop
    
    LastLine = 0
    
    ' 恢复应用默认设置
    With Application
        .ScreenUpdating = True
        .AskToUpdateLinks = True
        .DisplayAlerts = True
        .Calculation = xlCalculationAutomatic
        .EnableEvents = True
        .CutCopyMode = False
    End With
End Sub

Sub DoWork(wb As Workbook)
    With wb
        ' 你的批量操作代码
        ' 若需要计算，手动触发：.Calculate
    End With
End Sub

先从替换ActiveWindow.Close、添加Set wb = Nothing和DoEvents开始试，这些是最容易解决问题的调整。如果还是不行，再排查加载项的问题。

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