引用其他工作表指定名称的工作表时出现运行时错误424（要求对象）

嘿，我来帮你解决这个头疼的运行时错误424！这个错误的核心原因很明确：你的代码尝试引用一个不存在的对象。结合你说的“引用由其他工作表输入名称的工作表时触发错误”，再看你给出的代码片段，咱们从这几个方向排查修复：

1. 先确认「Enroll Course」工作表的正确性 #

你的代码开头反复用到Worksheets("Enroll Course")，如果这个工作表的实际名称和代码里的不匹配——比如少了空格、拼写错了，甚至只是名字里有个你没注意到的特殊字符——都会直接触发错误。

靠谱的验证&修复方法：

• 右键点击工作表标签，看名称是不是完全和Enroll Course一致；
• 更稳妥的方式是用工作表的「CodeName」引用：打开VBA编辑器，在工程资源管理器里，工作表括号外的那个名字（比如Sheet2 (Enroll Course)里的Sheet2）就是CodeName，直接用它不会受工作表重命名影响：

  Set EnrollSheet = Sheet2 ' 替换成你的工作表CodeName
  enteredyear = EnrollSheet.Range("C3").Value
  term = EnrollSheet.Range("C4").Value
  course = EnrollSheet.Range("C6").Value
  

2. 重点检查「输入名称对应的工作表」是否存在 #

你说错误是在引用由其他工作表输入名称的工作表时触发的——比如你用输入的course、enteredyear+term组合作为工作表名来引用对吧？这时候大概率是输入的名称对应的工作表根本不存在。

防错处理方案：
在引用这个工作表之前，先判断它是否存在，避免直接报错：

' 举个例子：假设你要引用输入的course对应的工作表
Dim TargetSheet As Worksheet
' 临时忽略错误，尝试获取工作表
On Error Resume Next
Set TargetSheet = ThisWorkbook.Worksheets(course)
On Error GoTo 0 ' 恢复正常错误处理

' 如果找不到工作表，提示并退出子程序
If TargetSheet Is Nothing Then
    MsgBox "名为「" & course & "」的工作表不存在，请检查输入内容！"
    Exit Sub
End If

' 接下来就可以正常使用TargetSheet了

3. 明确指定工作簿，避免引用错对象 #

如果你的代码是在Excel加载项（Add-in）或者其他工作簿里运行的，Worksheets()默认会引用当前活动工作簿，这可能不是你实际要操作的那个工作簿。最好明确指定工作簿：

' 引用当前代码所在的工作簿（最推荐）
Set EnrollSheet = ThisWorkbook.Worksheets("Enroll Course")
' 或者指定具体工作簿名称（比如你的工作簿叫「学员报名.xlsx」）
Set EnrollSheet = Workbooks("学员报名.xlsx").Worksheets("Enroll Course")

4. 顺带检查Range引用的有效性 #

虽然你给出的代码里引用的是C3、C4、C6，但如果这些单元格被删除，或者工作表被保护了，也可能间接导致对象错误。可以先确认这些单元格存在，且工作表处于未保护状态。

如果按照上面的步骤还没解决，建议把代码中涉及“引用输入名称的工作表”的完整部分贴出来，我能更精准地帮你定位问题～

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