Excel VBA代码故障咨询：文件另存为失败及原文件未关闭异常

咱先来捋捋你遇到的核心状况：file2确实完成了非日期单元格的高亮，但没生成预期的副本，还一直开着；file1也保持打开状态（如果这不是你想要的，咱也一起解决）。结合你的需求，我从几个VBA实操里常见的坑点给你分析：

1. 副本保存的逻辑可能搞错了 #

你要的是「修改原file2后存副本，原文件不保存就关闭」，这里最容易踩的坑是搞混SaveAs和SaveCopyAs的区别：

• 用SaveAs的话，执行之后当前打开的工作簿会直接变成副本文件，原文件的修改状态会被覆盖，后续关闭操作容易乱套；
• 更适合你的是SaveCopyAs——它会把当前修改后的内容存成副本，但打开的还是原file2，原文件的修改不会被保存到原路径，完美匹配你的需求！

举个正确的保存副本写法：

' 先让用户选副本的保存路径
Dim savePath As Variant
savePath = Application.GetSaveAsFilename( _
    FileFilter:="Excel Workbook (*.xlsx), *.xlsx", _
    Title:="选择file2副本的保存位置")

' 如果用户没取消保存，就生成副本
If savePath <> "False" Then
    wb2.SaveCopyAs Filename:=savePath
End If

2. 文件关闭的参数没设置对 #

你说file2还处于打开状态，大概率是关闭时没加SaveChanges:=False这个参数。默认情况下，VBA关闭工作簿时会弹出保存提示，如果你没处理这个提示，代码就会卡住，文件自然关不掉。正确的关闭写法是：

' 关闭原file2，不保存修改
wb2.Close SaveChanges:=False

要是你不需要file1一直开着，同样给它加这个参数关闭就行。

3. 可能没处理用户取消操作的情况 #

比如用户在选保存路径时点了「取消」，你的代码如果没判断这个情况，就会跳过保存步骤，自然没副本生成。上面的示例里加了If savePath <> "False"的判断，就是为了避免这种情况。

4. 缺错误捕获导致代码中断 #

要是保存时遇到路径不存在、权限不足这类错误，代码会直接中断，后续的关闭操作也没法执行，文件就一直开着。给代码加个错误捕获能避免这种尴尬：

On Error GoTo ErrorHandler ' 开头加这个，捕获错误

' 中间是你的业务代码

ErrorHandler:
    MsgBox "操作出错啦：" & Err.Description
    ' 出错时也要把打开的文件都关掉
    If Not wb2 Is Nothing Then wb2.Close SaveChanges:=False
    If Not wb1 Is Nothing Then wb1.Close SaveChanges:=False

给你整理的完整修正示例代码 #

把这些点整合起来，你可以参考下面的完整代码，替换你原有的逻辑：

Sub LogSAVEAS()
    Dim wb1 As Workbook, wb2 As Workbook
    Dim filePath1 As Variant, filePath2 As Variant
    
    ' 开启错误捕获
    On Error GoTo ErrorHandler
    
    ' 选择file1
    filePath1 = Application.GetOpenFilename( _
        Title:="请选择file1", _
        FileFilter:="Excel文件 *.xls*; *.csv")
    If filePath1 = False Then Exit Sub ' 用户取消选择，直接退出
    
    Set wb1 = Workbooks.Open(filePath1)
    
    ' 选择file2
    filePath2 = Application.GetOpenFilename( _
        Title:="请选择file2", _
        FileFilter:="Excel文件 *.xls*; *.csv")
    If filePath2 = False Then
        wb1.Close SaveChanges:=False ' 取消时先关掉file1
        Exit Sub
    End If
    
    Set wb2 = Workbooks.Open(filePath2)
    
    ' 高亮非日期单元格的逻辑（这里用你自己的高亮代码就行，我给个示例）
    Dim rng As Range, cell As Range
    Set rng = wb2.Sheets(1).UsedRange ' 假设操作第一个工作表
    For Each cell In rng
        If Not IsDate(cell.Value) Then
            cell.Interior.ColorIndex = 6 ' 黄色高亮，你可以换其他颜色
        End If
    Next cell
    
    ' 保存file2的副本
    Dim savePath As Variant
    savePath = Application.GetSaveAsFilename( _
        FileFilter:="Excel工作簿 (*.xlsx), *.xlsx", _
        Title:="保存file2的副本")
    If savePath <> False Then
        wb2.SaveCopyAs Filename:=savePath
    End If
    
    ' 关闭所有文件
    wb2.Close SaveChanges:=False ' 原file2不保存关闭
    wb1.Close SaveChanges:=False ' 关闭file1，不需要的话就保留这句
    
    Exit Sub
    
    ' 错误处理分支
ErrorHandler:
    MsgBox "操作出错：" & Err.Description
    ' 确保出错时所有打开的文件都被关闭
    If Not wb2 Is Nothing Then wb2.Close SaveChanges:=False
    If Not wb1 Is Nothing Then wb1.Close SaveChanges:=False
End Sub

你可以对照自己的原代码，看看是不是踩了上面说的某几个坑，替换成这个逻辑应该就能解决问题啦。

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