Access调用Excel执行SaveAs触发Subscript out of range错误求助

你犯了个典型的冗余操作错误：明明已经通过objexcel1.Workbooks.Open拿到了目标工作簿的直接引用xlWB1，却非要绕路用Application.Workbooks按名称查找或者依赖ActiveWorkbook——这就是触发下标越界的核心原因：要么是系统隐藏文件扩展名后，工作簿实际名称和你写的不一致，要么是ActiveWorkbook并非你要操作的文件。

直接用已获取的xlWB1对象执行SaveAs就能解决问题，以下是修正后的完整代码：

Option Compare Database

Sub Testsave()
    Dim objexcel1 As Object ' 后期绑定建议用Object，无需提前引用Excel库
    Dim xlWB1 As Object

    Set objexcel1 = CreateObject("Excel.Application")
    objexcel1.DisplayAlerts = False ' 开启后可避免保存时弹出格式确认框
    objexcel1.Visible = True ' 直接设置Excel程序可见，比通过工作簿设置更直观

    Set xlWB1 = objexcel1.Workbooks.Open("C:\Submission File.xlsx", ReadOnly:=False)

    ' 直接用xlWB1执行SaveAs，路径带完整后缀，用明确的文件格式数值（后期绑定避免枚举报错）
    xlWB1.SaveAs Filename:="T:\Submission File2.xlsx", FileFormat:=51, _
                 AccessMode:=3, ConflictResolution:=2

    xlWB1.Close SaveChanges:=False ' 已经SaveAs完成，这里无需重复保存
    objexcel1.Quit ' 务必退出Excel进程，防止后台残留实例
    Set xlWB1 = Nothing
    Set objexcel1 = Nothing
End Sub

额外补充几个关键注意点：

• 如果你用后期绑定（CreateObject），不要直接用xlWorkbookNormal、xlExclusive这类Excel内置枚举，Access无法识别这些常量，要么提前定义对应数值，要么直接写数值（比如xlOpenXMLWorkbook=51、xlExclusive=3、xlLocalSessionChanges=2）
• 保存路径必须带完整文件扩展名（比如.xlsx），否则会按Excel默认格式保存，可能导致文件格式混乱
• 操作结束后一定要释放对象并退出Excel进程，避免后台残留多个Excel实例占用资源

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