Excel VBA用Dim定义Workbook时报Subscript out of range下标越界错误

你提到的Dim wbook As Workbook行触发下标越界属于误判，变量声明语句本身不会触发该类错误，实际报错位置是Set wbook = Workbooks("D:\Leads1.xlsx")行，触发原因如下：

• 你通过CreateObject新建了独立的Excel实例，但Workbooks默认指向代码运行所在的Excel实例，不会检索你刚创建的xlApp实例下的工作簿
• Workbooks集合仅收录对应实例下已经打开的工作簿，不能直接通过本地全路径调用未打开的文件
• 如果目标文件已经打开，Workbooks索引只能填写文件名（如"Leads1.xlsx"），不能写完整路径

Sub MarkContactToAdd()
    Dim xlApp As Excel.Application
    Dim wbook As Workbook
    Dim xlSheet As Worksheet
    ' 此处row为示例值，可替换为你实际需要修改的行号
    Dim row As Long: row = 2
    
    Set xlApp = CreateObject("Excel.Application")
    xlApp.Visible = True
    ' 绑定新实例的Workbooks集合，打开指定路径的文件
    Set wbook = xlApp.Workbooks.Open("D:\Leads1.xlsx")
    Set xlSheet = wbook.Worksheets(1)
    
    xlSheet.Cells(row, 12).Value = "Add this contact"
    
    ' 后续操作可选：保存修改、关闭工作簿、释放资源
    ' wbook.Save
    ' wbook.Close
    ' xlApp.Quit
    ' Set xlSheet = Nothing
    ' Set wbook = Nothing
    ' Set xlApp = Nothing
End Sub

• 你原代码中row变量未定义赋值，直接使用也可能触发下标越界，使用前必须赋值有效的行号
• 如果不需要单独开启新的Excel实例，可以省略CreateObject相关步骤，直接在当前实例打开文件，运行效率更高
• 如果目标文件已经被其他程序占用打开，Open操作会触发只读提示，可提前添加文件占用判断逻辑处理对应场景

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