问题现象 #

你遇到的这个问题特别典型，整理下核心表现：

• 单独运行DeleteSheets1完全正常
• 单独运行GetSheets也没毛病
• 但先跑DeleteSheets1再运行GetSheets就直接触发运行时错误
• 只要重启Excel，再运行GetSheets又恢复正常
• 先跑GetSheets再跑DeleteSheets1没问题，多次重复运行GetSheets也不会出错

大概率的问题根源 #

从你给出的DeleteSheets1代码片段来看，里面用到了Application.ScreenUpdating = False和Application.DisplayAlerts = False——最大的可能是你在过程结束时没有把这些Excel的全局设置还原回去。

当你关闭了提示弹窗和屏幕更新但没恢复，后续运行GetSheets时，Excel的状态还是异常的：比如DisplayAlerts关闭会导致GetSheets里需要用户确认的操作（比如新建重名工作表、导入外部数据）直接失败；ScreenUpdating关闭则可能导致工作表对象的引用逻辑出现异常，触发报错。

另外还有小概率可能是删除工作表的循环逻辑有问题（比如正向循环删除会跳过元素），但既然单独运行正常，这个可能性相对较低。

修复步骤 #

1. 给DeleteSheets1加上强制还原设置的收尾逻辑 #

不管过程执行成功还是出错，都要确保把Excel的设置还原到原始状态，最好加上错误处理保证收尾代码一定会执行：

Sub DeleteSheets1()
    Dim xWs As Worksheet
    ' 先保存Excel的原始设置
    Dim originalScreenUpdating As Boolean
    Dim originalDisplayAlerts As Boolean
    
    originalScreenUpdating = Application.ScreenUpdating
    originalDisplayAlerts = Application.DisplayAlerts
    
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
    ' 错误处理：不管有没有报错都要执行收尾
    On Error GoTo Cleanup
    
    ' 注意：Excel不允许删除所有工作表，必须保留至少一个
    For Each xWs In ThisWorkbook.Worksheets
        If xWs.Name <> "需要保留的工作表名称" Then
            xWs.Delete
        End If
    Next xWs

Cleanup:
    ' 强制还原原始设置
    Application.ScreenUpdating = originalScreenUpdating
    Application.DisplayAlerts = originalDisplayAlerts
    ' 如果有错误，弹出提示便于排查
    If Err.Number <> 0 Then
        MsgBox "删除工作表时出错：" & Err.Description, vbCritical
        Err.Clear
    End If
    ' 释放对象内存
    Set xWs = Nothing
End Sub

2. 给GetSheets也加上基础的状态保护 #

如果GetSheets里有依赖Excel默认提示的操作（比如新建工作表、复制工作表），也可以给它加上自己的设置还原逻辑，避免受其他过程的影响：

Sub GetSheets()
    Dim originalDisplayAlerts As Boolean
    originalDisplayAlerts = Application.DisplayAlerts
    
    On Error GoTo Cleanup
    
    ' 这里放你的GetSheets原有代码逻辑
    ' 比如：Sheets.Add(After:=Sheets(Sheets.Count)).Name = "新数据工作表"
    
Cleanup:
    Application.DisplayAlerts = originalDisplayAlerts
    If Err.Number <> 0 Then
        MsgBox "获取工作表时出错：" & Err.Description, vbCritical
        Err.Clear
    End If
End Sub

3. 额外注意事项 #

• 永远不要删除当前工作簿的所有工作表，Excel本身不允许这种操作，会埋下异常隐患
• 尽量用ThisWorkbook.Worksheets代替Worksheets，避免误操作其他打开的工作簿
• 所有对象变量使用完后，记得用Set 变量名 = Nothing释放内存

验证方法 #

修改完DeleteSheets1后，先运行它，再直接执行GetSheets，应该就不会再触发报错了。如果还是有问题，那就要检查GetSheets里是否引用了被DeleteSheets1删除的工作表对象，确保所有工作表引用都是动态获取的，而非静态硬编码。

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