VBA（Excel）ワークシートを新しいワークブックにコピー

Question

今、ワークブックから1つのワークシートをコピーするエクセルマクロを作成しようとしています。このワークシートは、セルB1の値で命名された新しいExcelファイルとして保存する必要があります。 これまでのところすべてうまくいきます。 問題は次のとおりです。コピーがバックアップであることを希望します。したがって、テーブル（コピー）の値は元のテーブルに接続しないでください。 これを簡潔にするために、フォーマット+値はコピーしたいが、テーブルの式はコピーしないでください。 私はこの仕事をどのようにすることができますか？

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