Excel VBA：创建临时工作簿时如何避免修改原活动工作簿？

我懂你这糟心的情况——本来想悄悄处理出一个只带指定工作表的新文件，结果原工作簿的Sheet1公式直接没了，完全违背了不碰原文件的初衷。咱们先拆解原代码的问题，再调整成符合预期的版本。

原代码的问题根源 #

你原代码里直接对ActiveWorkbook（也就是你的原工作簿）执行了PasteSpecial xlValues操作，这相当于直接修改了原文件的Sheet1内容，之后再复制工作表的时候，原文件已经被改动了，自然会出现你遇到的问题。

修正后的代码实现 #

按照你原本的逻辑（不碰原文件，用临时工作簿处理），正确的思路应该是先把需要的工作表复制到新工作簿，再在新工作簿里做值粘贴操作，这样原文件全程不会被修改。下面是调整后的代码：

Sub ExtractSheetsWithoutModifyingOriginal()
    Dim originalWB As Workbook
    Dim tempWB As Workbook
    Dim savePath As String
    
    ' 定义原工作簿和保存路径
    Set originalWB = ActiveWorkbook
    savePath = "C:\你的指定文件夹路径\新文件名.xlsx" ' 替换成你的实际路径
    
    ' 步骤1：把Sheet1和Sheet2复制到新的临时工作簿
    originalWB.Sheets(Array("Sheet1", "Sheet2")).Copy
    Set tempWB = ActiveWorkbook ' 此时新复制出来的工作簿是活动工作簿
    
    ' 步骤2：在临时工作簿的Sheet1执行值粘贴（清除公式保留格式）
    With tempWB.Sheets("Sheet1")
        .Cells.Copy
        .Range("A1").PasteSpecial Paste:=xlValues
        .Range("A1").PasteSpecial Paste:=xlFormats ' 确保保留原格式
        Application.CutCopyMode = False ' 清除剪贴板状态，避免Excel卡顿
    End With
    
    ' 步骤3：保存临时工作簿到指定路径
    tempWB.SaveAs Filename:=savePath, FileFormat:=xlOpenXMLWorkbook
    
    ' 可选：如果不需要保留临时工作簿的窗口，可以关闭它
    ' tempWB.Close SaveChanges:=False
End Sub

代码关键点说明 #

• 全程没有修改原工作簿originalWB的任何内容，所有操作都在新生成的tempWB里进行
• 用With语句简化代码，额外添加xlFormats粘贴步骤，确保Sheet1的格式完全保留
• 最后用Application.CutCopyMode = False清除剪贴板，避免Excel一直显示“复制中”的状态

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