如何解决VBA激活工作表时出现的Error 9 'Subscript out of range'错误？

常见原因及对应解决办法 #

1. 目标工作簿未打开或文件名有误 #

• 确认Aircraft_Final_Master_Design_Table_LITE是否在当前Excel实例中打开，注意文件名是否包含后缀（比如.xlsm/.xlsx）。如果工作簿保存时带后缀，代码里必须写完整名称，示例：

Set objWorkbook = Excel.Workbooks("Aircraft_Final_Master_Design_Table_LITE.xlsm")

• 若不确定工作簿是否已打开，可直接指定路径打开，避免依赖手动操作：

Dim wbPath As String
wbPath = "C:\实际文件路径\Aircraft_Final_Master_Design_Table_LITE.xlsm" '替换为真实路径
Set objWorkbook = Workbooks.Open(wbPath)

2. 工作表名称错误或不存在 #

• 核对Materials工作表的准确名称，检查是否有拼写错误、大小写差异、多余空格（比如是否是Materials 带尾空格）。可右键工作表标签查看真实名称。
• 若确定工作表位置固定，也可通过索引引用（比如Worksheets(3)），但优先用名称更可靠。

3. 未声明变量引发的潜在问题 #

• 在代码顶部添加Option Explicit强制变量声明，避免隐式类型错误，优化后的完整代码：

Option Explicit

Private Sub UserForm_Initialize()
    Dim objWorkbook As Workbook
    Dim materialWorksheet As Worksheet
    
    ' 指定工作簿和工作表
    Set objWorkbook = Workbooks("Aircraft_Final_Master_Design_Table_LITE.xlsm")
    Set materialWorksheet = objWorkbook.Worksheets("Materials")
    
    ' 读取数据无需激活工作表，直接用变量操作即可
    ' 示例：将A1单元格内容赋值给窗体文本框
    ' Me.TextBox1.Value = materialWorksheet.Range("A1").Value
End Sub

4. 工作簿在独立Excel进程中 #

• 如果目标工作簿在另一个单独的Excel窗口（独立进程）中，当前Workbooks集合无法访问到，需确保工作簿在同一个Excel实例中打开。

关键提示 #

读取工作表数据不需要激活工作表，materialWorksheet.Activate只是切换当前显示的工作表，对数据读取没有必要，反而可能影响用户体验，建议直接通过变量操作数据。

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