单台远程桌面VBA宏报Runtime error 9：下标越界问题求助

VBA宏在多数远程桌面设备上正常运行，仅单台设备报错。相关代码及报错情况如下：

原报错代码 #

wsCurrentworksheet.Active
File = Cells(7, 4)
Path = Cells(7, 5)

ChDrive Left(Path, 1)
ChDir Path

Set wbMyWorkbook = Workbooks.Open(FileName:=File, UpdateLinks:=False, ReadOnly:=True)
wbMyWorkbook.Activate
Set wsMyWorksheet = wbMyWorkbook.Worksheets("Sheet1") '*gives runtime error 9*
wsMyWorksheet.Activate

报错信息 #

runtime error 9: subscript out of range

已确认文件路径正确，工作簿能成功打开。临时修复方法是重复两次打开工作簿后再访问Sheet1，代码如下：

Set wbMyWorkbook = Workbooks.Open(FileName:=File, UpdateLinks:=False, ReadOnly:=True)
wbMyWorkbook.Activate

Set wbMyWorkbook = Workbooks.Open(FileName:=File, UpdateLinks:=False, ReadOnly:=True)
wbMyWorkbook.Activate

Set wsMyWorksheet = wbMyWorkbook.Worksheets("Sheet1")
wsMyWorksheet.Activate

临时方法反映的核心问题 #

这个临时方案本质是靠“重复打开”来等工作簿加载流程彻底完成，说明在这台异常设备上：

• Excel打开工作簿时，工作表对象的初始化存在延迟，第一次打开后wbMyWorkbook.Worksheets集合还没完全就绪，直接访问"Sheet1"就会触发下标越界。
• 大概率是该设备的第三方Excel加载项干扰、系统资源不足（导致文件加载缓慢），或是Excel后台加载设置，使得代码执行速度快于工作簿实际加载进度。

高效修复方案 #

1. 增加加载等待逻辑，替代重复打开 #

用循环结合DoEvents等待工作表就绪，同时加重试次数限制，比重复打开更高效：

' 修正原代码的语法错误：Active是属性，激活工作表要用Activate方法
wsCurrentworksheet.Activate
' 显式指定工作表，避免依赖当前活动表，减少环境干扰
File = wsCurrentworksheet.Cells(7, 4).Value
Path = wsCurrentworksheet.Cells(7, 5).Value

' 直接拼接完整路径，无需ChDrive/ChDir，更可靠
Dim fullFilePath As String
fullFilePath = Path & "\" & File

Set wbMyWorkbook = Workbooks.Open(FileName:=fullFilePath, UpdateLinks:=False, ReadOnly:=True)

' 等待Sheet1就绪，最多重试5次
Dim retryCount As Integer
retryCount = 0
Do While retryCount < 5
    On Error Resume Next
    Set wsMyWorksheet = wbMyWorkbook.Worksheets("Sheet1")
    On Error GoTo 0
    If Not wsMyWorksheet Is Nothing Then Exit Do
    retryCount = retryCount + 1
    DoEvents ' 让Excel完成后台加载任务
    Application.Wait Now + TimeValue("00:00:01") ' 等待1秒，可根据实际情况调整
Loop

If wsMyWorksheet Is Nothing Then
    MsgBox "无法找到Sheet1，请检查目标文件"
    Exit Sub
End If

' 后续操作无需Activate，直接用对象引用即可（非必要操作可省略）
' wsMyWorksheet.Activate

2. 优化代码逻辑，避免依赖活动对象 #

原代码中Cells(7,4)依赖当前活动工作表，ChDrive/ChDir属于冗余操作，修改后代码的稳定性会大幅提升，减少对设备环境的依赖。

3. 排查异常设备的Excel配置 #

• 关闭第三方加载项：打开Excel→文件→选项→加载项→转到，禁用所有非微软官方加载项后重新测试。
• 关闭后台打开设置：文件→选项→高级→常规，取消勾选“允许后台打开文件”。
• 清理系统资源：如果设备内存/CPU占用过高，优先关闭无关程序，确保Excel有足够资源加载文件。

内容的提问来源于stack exchange，提问作者actuarial.codes