VBA中Application.Workbooks.Activate因扩展名显示设置报错的替代方案

问题原因 #

Excel的Workbooks集合中，已保存的工作簿名称始终包含完整文件扩展名（比如Book1.xlsx），但Windows的“显示文件扩展名”设置会影响你看到的文件名：

• 勾选时，你看到的是带扩展名的名字；
• 未勾选时，看到的是不带扩展名的名字。
  如果你的V_WBNameOutPut变量存储的名字和Workbooks集合中的实际名称不匹配（比如变量存的是Book1，但集合里是Book1.xlsx），就会触发“下标越界”错误。

解决方案 #

方法1：自动补全扩展名（适用于知道文件所在路径的情况）

用Dir函数获取目标文件的完整带扩展名名称，再进行激活：

Dim targetWBName As String
' 替换为文件实际路径，比如 "D:\Reports\" & V_WBNameOutPut
targetWBName = Dir(V_WBNameOutPut & ".*")

If targetWBName <> "" Then
    Application.Workbooks(targetWBName).Activate
Else
    MsgBox "目标工作簿未打开或不存在！"
End If

方法2：遍历工作簿集合匹配主文件名

忽略扩展名，直接匹配文件名的主体部分，避免因扩展名差异报错：

Dim wb As Workbook
Dim mainFileName As String

' 提取变量中不带扩展名的主体名称
If InStr(V_WBNameOutPut, ".") > 0 Then
    mainFileName = Left(V_WBNameOutPut, InStrRev(V_WBNameOutPut, ".") - 1)
Else
    mainFileName = V_WBNameOutPut
End If

' 遍历所有打开的工作簿
For Each wb In Application.Workbooks
    Dim wbMainName As String
    If InStr(wb.Name, ".") > 0 Then
        wbMainName = Left(wb.Name, InStrRev(wb.Name, ".") - 1)
    Else
        wbMainName = wb.Name
    End If
    
    If wbMainName = mainFileName Then
        wb.Activate
        Exit Sub ' 找到后退出循环
    End If
Next wb

MsgBox "未找到目标工作簿！"

方法3：直接使用工作簿对象（最可靠，推荐）

如果是你自己打开的目标工作簿，不要用名称激活，而是在打开时就保存工作簿对象，后续直接调用对象操作：

Dim wbOutput As Workbook
' 打开文件时获取对象（替换为实际文件路径）
Set wbOutput = Workbooks.Open("D:\YourFiles\" & V_WBNameOutPut)

' 后续直接用对象激活，完全不受扩展名设置影响
wbOutput.Activate

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