Excel VBA导出工作表 仅将导出文件内公式转为值的实现方法

要实现「仅导出文件内公式转静态值、源工作簿公式完全保留」的效果，核心逻辑是：把指定工作表复制到新建工作簿后，所有转值操作只针对新工作簿内的单元格执行，全程不操作源工作簿内容即可。

原代码可优化点 #

• 原代码中On Error Resume Next会无差别屏蔽所有运行错误，出现路径不存在、工作表名不匹配等问题时无法定位原因，已移除
• 原代码复制工作表后未删除新工作簿默认生成的空白工作表，导出的文件会带多余空表，已补充对应处理逻辑
• 原代码未关闭屏幕刷新和系统提示，导出时会出现屏幕闪烁、覆盖同名文件弹确认框的问题，已优化

修改后可直接运行的代码 #

Sub ExportWorksheets()
    Dim worksheet_list As Variant, worksheet_name As Variant
    Dim new_workbook As Workbook
    Dim saved_folder As String
    Dim File_name As String, File_name_02 As String
    Dim New_File_Name As String
    Dim target_sht As Worksheet, sht As Worksheet
    
    ' 配置需要导出的工作表名称数组
    worksheet_list = Array("Sheet_02")
    ' 导出目标路径为当前系统桌面
    saved_folder = Environ("userprofile") & "\Desktop\"
    
    ' 临时关闭屏幕更新、系统提示，提升运行速度
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
    For Each worksheet_name In worksheet_list
        ' 新建空白工作簿作为导出载体
        Set new_workbook = Workbooks.Add
        
        ' 拼接导出文件名
        File_name = ThisWorkbook.Name
        File_name_02 = Replace(File_name, ".xlsm", "")
        New_File_Name = worksheet_name & "_" & File_name_02 & ".xlsx"
        
        ' 将源工作簿指定工作表复制到新工作簿首位
        ThisWorkbook.Worksheets(worksheet_name).Copy Before:=new_workbook.Worksheets(1)
        
        ' 删除新工作簿自带的默认空白工作表
        For Each sht In new_workbook.Worksheets
            If sht.Name <> worksheet_name Then
                sht.Delete
            End If
        Next sht
        
        ' 仅在新工作簿内将所有公式转为静态值，完全不触碰源工作簿
        Set target_sht = new_workbook.Worksheets(worksheet_name)
        With target_sht.UsedRange
            .Value = .Value
        End With
        
        ' 按xlsx格式保存新文件后关闭
        new_workbook.SaveAs Filename:=saved_folder & New_File_Name, FileFormat:=51
        new_workbook.Close SaveChanges:=False
    Next worksheet_name
    
    ' 恢复Excel默认设置
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    
    MsgBox "Export completed. " & New_File_Name, vbInformation
End Sub

关键逻辑说明 #

• 转值操作的作用范围严格限定在新建的导出工作簿内，源工作簿不会被执行任何写入操作，原有公式会完整保留
• .Value = .Value是VBA中最高效的批量转值写法，直接将区域的显示值覆盖原有公式，执行速度远高于逐单元格遍历处理
• 代码兼容多工作表导出，只需要在worksheet_list数组里添加要导出的工作表名即可批量处理

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