将每个工作表保存为单个文档（仅限值）

我需要将多个工作表保存为单个文档。 我有一个代码，但棘手的部分是只保存值（Excel包含公式）。 每个工作表有不同的名称，成为单独的Excel的名称。 我如何调整代码？ 请帮忙。 谢谢！

代码是：

Sub Make_New_Books() Dim w As Worksheet Application.ScreenUpdating = False Application.DisplayAlerts = False For Each w In ActiveWorkbook.Worksheets w.Copy ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\Requests_for_local_suppliers_to_send\" & w.Name ActiveWorkbook.Close Next w Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub 

Answer 1

这是对现有代码的相当简单的编辑。 在w.Copy命令之后，我们只需使用UsedRangeselect“everything”，然后只复制并粘贴原始数据顶部的值。

.Copy创build一个新的工作表，所以父工作表中的公式不受此操作的影响。

 Sub Make_New_Books() Dim w As Worksheet Application.ScreenUpdating = False Application.DisplayAlerts = False For Each w In ActiveWorkbook.Worksheets w.Copy ActiveSheet.UsedRange.Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\Requests_for_local_suppliers_to_send\" & w.Name ActiveWorkbook.Close Next w Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub