Workbook.Activate报错Runtime Error9：单个用户下标越界问题求助

定义变量：

V_WBNameOutPut as string

并在以下代码中使用该变量：

Application.Workbooks(V_WBNameOutPut).Activate

上述代码属于某大型代码的一部分，在99.99%的用户环境中运行正常，但仅在一位用户处报错，调试时停在Application.Workbooks(V_WBNameOutPut).Activate行，报错信息为：

Runtime Error 9: Subscript Out of Range

已尝试调试，但仅该特定用户的环境下存在问题。

以下是生成输出文件的子程序：

Sub CreateWB()
    Dim File_Name           As Variant
    Dim File_Name_Saved     As String
    Dim i_attempt           As Integer
    Dim NewWorkBook         As Workbook
     Set NewWorkBook = Workbooks.Add
     Do While i_attempt < 2
         i_attempt = i_attempt + 1     
        File_Name = Application.GetSaveAsFilename(InitialFileName:=V_WBNameOutPut, filefilter:="Excel Files(*.xlsx),*.xlsx,Excel-Macro Files (*.xlsm),*.xlsm", Title:="Please choose a Folder")
        File_Name_Saved = Left(Right(File_Name, Len(V_WBNameOutPut) + 5), Len(V_WBNameOutPut))
         If File_Name = False Then
            ActiveWorkbook.Close
            End
        Else
            If UCase(File_Name_Saved) <> UCase(V_WBNameOutPut) Then
                If i_attempt < 2 Then
                    MsgBox "Please do not change the File name" & vbCrLf & i_attempt & "/2 Attempt"
                Else
                    ActiveWorkbook.Close
                    End
                End If
            Else
                Application.DisplayAlerts = False
                NewWorkBook.SaveAs File_Name, ConflictResolution:=True
                Exit Do
            End If
        End If
    Loop
End Sub

可能原因 #

• 文件名大小写识别异常：部分特殊系统配置下，Workbooks集合对文件名大小写敏感，V_WBNameOutPut的大小写与实际保存的文件名不一致，导致无法索引到目标工作簿。
• 文件扩展名隐藏导致重复后缀：用户Windows设置中隐藏了已知文件类型的扩展名，保存时可能生成XXX.xlsx.xlsx这类重复后缀的文件，代码截取文件名的逻辑错误，导致V_WBNameOutPut与实际工作簿名称不匹配。
• 工作簿未正确加入集合：用户保存过程中弹窗被拦截、系统异常等导致NewWorkBook.SaveAs未执行成功，或工作簿被意外关闭，未加入Workbooks集合。
• 文件名截取逻辑存在漏洞：代码中File_Name_Saved = Left(Right(File_Name, Len(V_WBNameOutPut) + 5), Len(V_WBNameOutPut))依赖固定长度（+5对应.xlsx的5个字符），若用户选择.xlsm扩展名（6个字符）或V_WBNameOutPut含小数点，会导致截取的文件名错误，实际保存名称与变量值不符。
• 特殊字符/空格干扰：用户保存的路径或文件名包含非ASCII字符、全角符号等，导致Workbooks集合无法通过名称索引定位到目标文件。

解决方案 #

1. 直接使用工作簿对象引用，避免名称索引
   不要通过名称查找激活，而是在CreateWB中保留工作簿对象的全局引用：

   Public g_TargetWB As Workbook
   
   Sub CreateWB()
       ' ... 原有代码 ...
       Application.DisplayAlerts = False
       NewWorkBook.SaveAs File_Name, ConflictResolution:=True
       Set g_TargetWB = NewWorkBook ' 保存对象引用
       Exit Do
       ' ... 原有代码 ...
   End Sub
   
   ' 后续激活时直接调用对象
   g_TargetWB.Activate
   

2. 修复文件名截取逻辑
   替换固定长度截取，通过扩展名拆分提取文件名：

   ' 替换原File_Name_Saved赋值行
   Dim fullNameWithoutExt As String
   fullNameWithoutExt = Left(File_Name, InStrRev(File_Name, ".") - 1)
   File_Name_Saved = Right(fullNameWithoutExt, Len(fullNameWithoutExt) - InStrRev(fullNameWithoutExt, "\") + 1)
   

3. 添加工作簿存在性检查
   在激活前先验证工作簿是否存在，避免报错：

   Dim targetWB As Workbook
   On Error Resume Next
   Set targetWB = Application.Workbooks(V_WBNameOutPut)
   On Error GoTo 0
   If Not targetWB Is Nothing Then
       targetWB.Activate
   Else
       MsgBox "目标工作簿未找到，请检查文件是否已保存并打开。", vbExclamation
       ' 可在此处重新调用CreateWB或处理异常
   End If
   

4. 调整用户系统设置
   指导用户取消隐藏文件扩展名：打开文件资源管理器 → 选项 → 查看 → 取消勾选“隐藏已知文件类型的扩展名”，避免重复后缀问题。

5. 同步变量与实际文件名
   在保存完成后，将V_WBNameOutPut更新为实际工作簿名称：

   ' 在CreateWB的SaveAs之后添加
   V_WBNameOutPut = NewWorkBook.Name
   

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