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

现在我正在尝试创build一个应该从我的工作簿复制一个工作表的Excelmacros。 这个工作表应该被保存为一个新的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