如何解决VBA运行时出现的Subscripts out of range下标越界错误

错误根因 #

• 变量声明语法错误：原代码中多行变量拆分声明时没有加VBA续行符_，会先触发编译错误，若你本地已经调整过可忽略。
• 下标越界核心原因：Workbooks(myFSR)的传参错误：Application.GetOpenFilename返回的是文件的完整路径字符串（例如D:\文档\测试表.xlsm），但VBA的Workbooks集合仅支持用「不带路径的文件名」作为索引参数，用全路径检索必然找不到对应工作簿，触发下标越界。
• 后续潜在语法错误：FaultCode已经是你定义的Worksheet对象，不需要再套入Sheets()方法中检索，直接调用对象的Select方法即可。

修复后完整代码 #

Sub Load_FSR()
    Dim myFSR As String, FaultCode As Worksheet, ComplaintLog As Worksheet
    Dim SerialNumber As String, _
        ComplaintNumber As String, _
        WarrantyStatus As String, _
        ComplaintDate As Date, _
        LongText As String, _
        CustomerName As String
    Dim wbFSR As Workbook ' 新增变量存储打开的工作簿对象，避免索引错误
    
    myFSR = Application.GetOpenFilename(, , "Browse for FSR")
    ' 直接用变量接收打开的工作簿，不需要后续再通过文件名索引
    Set wbFSR = Workbooks.Open(myFSR)
    Set ComplaintLog = ThisWorkbook.Worksheets("RUO Complaints Log")
    ' 从已接收的工作簿对象中取工作表，避免路径问题
    Set FaultCode = wbFSR.Worksheets("Fault Code Report")
    ' 直接调用工作表对象的Select方法，去掉多余的Sheets()包裹
    FaultCode.Select
    Range("B3").Select
End Sub

额外优化建议：可以在拿到myFSR后加判断，如果用户点了取消窗口会返回False，避免后续打开文件报错：

myFSR = Application.GetOpenFilename(, , "Browse for FSR")
If myFSR = "False" Then Exit Sub ' 用户点取消直接退出过程

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