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

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)来请求第 th 个工作簿。i然而，这不是你在做什么。