自动化错误：无效的前向引用，或引用未编译的类型

Question

我的代码非常简单，但出现以下错误：

自动化错误：无效的前向引用，或引用未编译的类型

Sub jumptosummary()

ActiveWorkbook.Sheets("Summary").Activate
ActiveSheet.Range("A1").Select

End Sub

知道我做错了什么吗？

我在一张有很多选项卡的工作表中，并使用它来简单地返回到我的“摘要”选项卡

Answer 1

当代码很简单和/或运行没有错误并弹出此错误消息时，请尝试将组件设置为对象。

Dim MySummary as worksheet

Set MySummary = ActiveWorkbook.Sheets("Summary")
MySummary.Range("A1").Select

这是原始代码触发自动化错误的另一个示例。原始代码是 Workbooks(SOURCEWbkName).Sheets("Settings").Range("Scenario").Value=1

Dim ToolSettingsSheet as Worksheet
Dim ScenarioCell as Range

Set ToolSettingsSheet = Workbooks(SOURCEWbkName).Sheets("Settings")
Set ScenarioCell = ToolSettingsSheet.Range("Scenario")
Scenario cell=1