excel - VBA运行时错误 '9' : Subscript out of range; trying to activate another workbook

Question

我正在尝试在 Excel 2010 中创建一个 VBA，该 VBA 从另一个我不允许更改的电子表格中获取信息，并将其传递到内置宏的电子表格中。这是我的代码:

Sub BringUpWorkbook()
    Workbooks("RITE 1624.xls").Activate
End Sub

我有几本 VBA 书籍，访问过 Internet 上的数十个网站，包括 stackoverflow.com 上的网站，但找不到收到运行时错误的原因。工作簿已经打开，我尝试添加标题后面的所有内容，我尝试删除 .xls，我什至在变量中完成了上述所有操作。有什么想法吗？

Answer 1

确保扩展名正确。如果它是像您指出的那样的 excel-2010 文件，您可能需要更新代码以反射(reflect)“RITE 1624”文件的扩展名(例如 .xlsx 表示 2010 Excel 工作簿，.xlsm 表示 2010 Excel 启用宏的工作簿，或任何扩展名。

Sub BringUpWorkbook()
    Workbooks("RITE 1624.xlsx").Activate
End Sub

编辑:

为了确保工作簿的名称正确，您可以在立即窗口中打印每个工作簿的名称。

打开 VBA 编辑器，然后按 Ctrl+G 打开“立即窗口”(或执行“ View ”>“立即窗口”)。然后运行以下宏:

Sub OpenWkbkNames()

For Each Workbook In Workbooks
    Debug.Print Workbook.Name
Next
End Sub

请注意，这将为您提供与宏相同的 Excel 实例中所有打开的工作簿的名称。如果您的 RITE 1624 文件位于单独的 Excel 实例中，则宏所在的实例将无法看到该文件(并且它不会出现在上面 OpenWkbkNames 代码的输出中)。解决此问题的最简单方法是从包含宏的 Excel 实例中打开所有必需的文件。

Sub BringUpWorkbook()

    Workbooks.Open("RITE 1624.xls").Activate
End Sub