Excel VBA添加工作表遇Runtime Error 424对象要求错误，求排查

首先，这个错误的核心问题非常明确：变量wb2没有被正确赋值为一个有效的Workbook对象，所以当你调用wb2.Sheets.Add时，VBA找不到对应的对象实体，就抛出了424错误。

从你提供的代码片段来看，Set wb2 = Applicati...明显是不完整的语句，这大概率就是问题的源头。结合你的业务需求（添加指定名称的工作表），我整理了几种常见场景的修复方案：

1. 若目标是在当前工作簿添加工作表 #

如果你的需求是在当前运行代码的工作簿（ThisWorkbook）里添加"For Export"工作表，其实根本不需要wb2这个变量，直接操作当前工作簿即可。修复后的代码片段如下：

'查找名为"For Export"的现有工作表
'若找到则删除该工作表
For Each S In ThisWorkbook.Sheets
    If S.Name = "For Export" Then
        Application.DisplayAlerts = False
        S.Delete '直接删除找到的工作表对象，无需重复通过名称查找
        Application.DisplayAlerts = True '记得重新开启弹窗提示，避免后续操作受影响
    End If
Next S

'添加名为"For Export"的工作表到当前工作簿末尾
ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)).Name = "For Export"

2. 若目标是在新创建的工作簿里添加工作表 #

如果你的需求是新建一个独立工作簿（即wb2指向新工作簿），那必须完整地给wb2赋值为有效的工作簿对象。修复后的代码片段：

'查找名为"For Export"的现有工作表
'若找到则删除该工作表
For Each S In ThisWorkbook.Sheets
    If S.Name = "For Export" Then
        Application.DisplayAlerts = False
        S.Delete
        Application.DisplayAlerts = True
    End If
Next S

'创建新工作簿并赋值给wb2，再添加指定工作表
Set wb2 = Application.Workbooks.Add '完整赋值新工作簿对象
wb2.Sheets.Add(After:=wb2.Sheets(wb2.Sheets.Count)).Name = "For Export"

3. 排查隐性问题（针对"之前正常现在报错"的情况） #

如果代码之前能正常运行，现在突然报错，还要检查以下几点：

• 是否误删了wb2的完整赋值语句？比如之前的Set wb2 = ThisWorkbook或Set wb2 = Workbooks("目标工作簿名称.xlsx")被截断了一部分。
• 目标工作簿是否已被关闭？如果wb2指向的是已关闭的工作簿，也会触发对象找不到的错误。
• 变量声明是否错误？比如你误写了Dim wb2 As String而非Dim wb2 As Workbook，这会导致对象赋值失败。

另外要注意：删除工作表后一定要恢复Application.DisplayAlerts = True，否则后续的Excel操作（如保存、删除文件）会跳过确认弹窗，容易引发误操作。

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