无法使用插件激活工作簿中的工作表

Question

我在插件中使用了以下代码：

Sub MacroToRunOne()

Dim S As String
S = "Hello World From One:"
MsgBox S

Workbooks("86750").Sheets("PIVOT").Activate

End Sub

当我运行这个宏时，我收到一个错误：msgbox语句之后的“下标超出范围”。我的激活语句有问题，还是不是编码方式？

Answer 1

您指的是名称为"86750"（无扩展名）的工作簿，该文件不存在。

您的意思是放置Workbooks("86750.xlsx")，它将引用文件名为86750.xlsx的（打开）工作簿。

请注意，如果您提供了数字参数i，即Workbooks(86750)，那么您将按所有打开的工作簿的索引要求i工作簿。然而，这不是你在做什么。