另存为Excel，格式相同，但没有公式

我有一个代码，可以从工作簿中提取一个选项卡，并将该选项卡另存为一个单独的工作表。一切对我来说都很好，除了公式也被提取到新的表格中。如何更改下面提到的代码以相同格式保存工作表，但不使用任何公式

Sub PrintFile2()

'check if folder exists
If Dir("C:\Excel Workpaper\", vbDirectory) = "" Then
MkDir "C:\Excel Workpaper\"
End If

'print to defined folder
Application.ScreenUpdating = False
Application.DisplayAlerts = False

Dim wb As Workbook
Sheets("Calculations").Copy
Set wb = ActiveWorkbook

With wb
.SaveAs "C:\Excel Workpaper\ " & Range("B7").Text & " - Excel Workpaper", 
FileFormat:=xlOpenXMLWorkbook
Application.DisplayAlerts = False
Application.ScreenUpdating = True

.Close False
End With

End Sub

---

检查此代码段，此代码将公式更改为值

Dim sh As Worksheet
    For Each sh In ActiveWorkbook.Worksheets
        sh.Select
        With sh.UsedRange
            .Cells.Copy
            .Cells.PasteSpecial xlPasteValues
            .Cells(1).Select
        End With
        Application.CutCopyMode = False
    Next sh

---

如果我理解你的问题，你可以阅读这篇文章。。。希望这有帮助