Excel更新后VBA脚本无法识别CSV工作簿问题求助

问题核心 #

Excel升级到16.0版本后，原VBA脚本无法识别未保存的CSV工作簿，根源在于文件名匹配逻辑错误，版本更新后对未保存工作簿的属性处理变化进一步放大了问题：

• 目标CSV文件名为New enrollments.随机数字（无.csv后缀），但原代码用wb.Name Like ".csv"判断，完全不匹配实际格式
• 原工作簿数量判断逻辑矛盾（注释要求2个工作簿打开，代码却判断Count <>3）

修复步骤 #

1. 替换不可靠的文件名判断，改用文件格式识别 #

CSV工作簿的FileFormat属性固定为xlCSV（数值6），直接判断该属性比依赖文件名更可靠，不受未保存状态或命名规则影响。

2. 修正工作簿数量判断逻辑 #

确保仅打开源CSV工作簿和**目标工作簿New Enrollments**两个文件，修正数量判断条件。

3. 明确指定目标工作表 #

原代码依赖ActiveSheet，改用直接引用目标工作表company enrollments，避免激活工作表带来的潜在错误。

完整修正代码 #

Sub tgr()
    Dim wb As Workbook
    Dim wsSource As Worksheet
    Dim wsDest As Worksheet
    
    ' 检查是否仅打开2个工作簿（源CSV + 目标工作簿）
    If Application.Workbooks.Count <> 2 Then
        MsgBox "ERROR - 当前打开了 [" & Application.Workbooks.Count & "] 个工作簿。" & Chr(10) & _
               "必须仅打开以下两个工作簿：" & Chr(10) & _
               "- 源CSV工作簿（格式为New enrollments.随机数字）" & Chr(10) & _
               "- 目标工作簿New Enrollments"
        Exit Sub
    End If
    
    For Each wb In Application.Workbooks
        ' 通过文件格式判断源CSV工作簿，不受文件名影响
        If wb.FileFormat = xlCSV Then
            Set wsSource = wb.Worksheets(1) ' CSV默认只有一个工作表，直接引用第1个
        ElseIf wb.Name = "New Enrollments.xlsm" Then ' 明确指定目标工作簿（根据实际扩展名调整）
            Set wsDest = wb.Worksheets("company enrollments") ' 直接指定目标工作表
        End If
    Next wb
    
    ' 检查是否成功匹配源和目标
    If wsSource Is Nothing Then
        MsgBox "ERROR - 无法找到有效的源CSV工作簿"
        Exit Sub
    ElseIf wsDest Is Nothing Then
        MsgBox "ERROR - 无法找到目标工作簿的company enrollments工作表"
        Exit Sub
    End If
    
    ' 后续数据复制逻辑示例（可根据实际需求修改）
    wsSource.UsedRange.Copy wsDest.Range("A1")
End Sub

额外注意事项 #

• 若目标工作簿扩展名不是.xlsm，请修改代码中wb.Name = "New Enrollments.xlsm"的扩展名部分
• 消除版本依赖：在VBA编辑器中，通过「工具→引用」取消勾选特定版本的Microsoft Office Object Library，改用后期绑定（若涉及Office对象操作），避免版本升级导致的引用失效

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