VBA（Excel）将工作表复制到新工作簿

Question

现在，我正在尝试创建一个excel宏，该宏应从我的工作簿中复制一个工作表。 该工作表应另存为一个新的Excel文件，并使用单元格B1中的值命名。 到目前为止一切正常。 问题是：我希望副本是备份的。 因此，表（副本）中的值不应连接到原始表。 简而言之：我只想复制格式+值，而不要复制表中的公式。 您对我如何进行这项工作有任何想法吗？

Private Sub Workbook_AfterSave(ByVal Success As Boolean)

Dim FName           As String
Dim FPath           As String

Dim wbkExport As Workbook
Dim shtToExport As Worksheet
FPath = "C:\Users\User\Desktop\Artikelnummern"
FName = Worksheets("Test").Cells(1, 2).Value

Set shtToExport = ThisWorkbook.Worksheets("Test")
Set wbkExport = Application.Workbooks.Add
shtToExport.Copy Before:=wbkExport.Worksheets(wbkExport.Worksheets.Count)
Application.DisplayAlerts = False                       'Possibly overwrite 
without asking
wbkExport.SaveAs Filename:=FPath & "\" & FName & ".xlsx"
Application.DisplayAlerts = True
wbkExport.Close SaveChanges:=False

End Sub

Answer 1

替换行：

shtToExport.Copy Before:=wbkExport.Worksheets(wbkExport.Worksheets.Count)

附：

shtToExport.Cells.Copy
wbkExport.Worksheets(wbkExport.Worksheets.Count - 1).Range("A1").PasteSpecial xlPasteValues
wbkExport.Worksheets(wbkExport.Worksheets.Count - 1).Range("A1").PasteSpecial xlPasteFormats