Excel VBA保存错误工作表：Sheet2存为文本失败及原工作簿关闭问题

问题原因分析 #

• 保存错误工作表：原代码中Sheets("Sheet2")存在语法错误（缺少闭合引号），且直接对工作表调用SaveAs本质是将整个原工作簿另存为新文件，并非单独导出Sheet2；再加上当前活动工作表是Sheet1，最终显示的自然是Sheet1内容。
• 原工作簿被替换：SaveAs方法会将原工作簿的窗口替换为新保存的文件窗口，因为操作对象是原工作簿本身。

修正后的代码 #

Sub export_as_text_1()
    Dim saveName As String
    Dim newWB As Workbook
    
    ' 获取Sheet1中A3指定的保存名称
    saveName = ThisWorkbook.Worksheets("Sheet1").Range("A3").Value
    
    ' 检查保存名称是否为空
    If saveName = "" Then
        MsgBox "保存名称不能为空，请在Sheet1的A3单元格输入文件名！"
        Exit Sub
    End If
    
    ' 自动补充.txt后缀（若用户未输入）
    If LCase(Right(saveName, 4)) <> ".txt" Then
        saveName = saveName & ".txt"
    End If
    
    ' 将Sheet2复制到新的空白工作簿
    ThisWorkbook.Worksheets("Sheet2").Copy
    Set newWB = ActiveWorkbook
    
    ' 保存新工作簿为文本文件并静默关闭
    With newWB
        .SaveAs Filename:=saveName, FileFormat:=xlTextWindows ' xlTextWindows对应编号21，代码可读性更强
        .Close SaveChanges:=False
    End With
    
    Set newWB = Nothing
End Sub

关键调整说明 #

• 独立复制工作表：通过Copy方法将Sheet2单独复制到新工作簿，操作对象变为新文件，完全不影响原工作簿。
• 显式指定原工作簿：用ThisWorkbook指代当前运行代码的原工作簿，避免因活动工作簿切换导致的错误。
• 处理文件后缀：自动补充.txt后缀，确保生成标准的文本文件格式。
• 静默关闭新文件：Close SaveChanges:=False避免关闭时弹出冗余提示，同时不会打开新生成的文本文件窗口。
• 修复语法错误：补上原代码中Sheets("Sheet2")缺失的闭合引号。

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