Excel保存格式显示差异致VBA报错，求设置调整方法

一、修改系统设置统一Excel保存格式显示 #

另一台电脑显示「Excel工作簿(*.xlsx)」是因为系统开启了显示已知文件类型的扩展名，修改步骤如下：

• 打开「此电脑」，点击顶部菜单栏的「查看」选项卡
• 点击「选项」按钮，在弹出的「文件夹选项」窗口切换到「查看」标签页
• 找到「隐藏已知文件类型的扩展名」选项并勾选，点击「确定」
• 重启Excel后，进入「文件」→「选项」→「保存」板块，「保存文件格式」就会显示为「Excel工作簿」

二、VBA代码优化（更可靠的报错解决方式） #

系统设置可能受版本、权限等因素影响，直接优化代码可以彻底避免环境差异导致的报错：

错误根源 #

当系统显示文件扩展名时，Excel中打开的工作簿名称会包含.xlsx后缀，此时Application.Workbooks("Test")无法匹配到目标工作簿，触发报错；隐藏扩展名时则可直接使用无后缀名称。

方案1：遍历匹配（最稳妥） #

通过遍历所有打开的工作簿，忽略扩展名匹配目标：

Dim targetWB As Workbook
Dim targetName As String
targetName = "Test"

For Each targetWB In Application.Workbooks
    ' 匹配无后缀名称，或名称前缀为目标名且后续为扩展名分隔符
    If Left(targetWB.Name, Len(targetName)) = targetName Then
        If Len(targetWB.Name) = Len(targetName) Or Mid(targetWB.Name, Len(targetName)+1, 1) = "." Then
            targetWB.Activate
            Exit For
        End If
    End If
Next targetWB

' 可选：未找到时的提示
If targetWB Is Nothing Then
    MsgBox "未找到目标工作簿"
End If

方案2：容错式尝试 #

先尝试无后缀名称，失败后再尝试带后缀：

Dim targetName As String
targetName = "Test"

On Error Resume Next
Application.Workbooks(targetName).Activate
If Err.Number <> 0 Then
    Err.Clear
    Application.Workbooks(targetName & ".xlsx").Activate
End If
On Error GoTo 0

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