将数据复制到新工作簿VBA

Question

我需要它来复制一个电子表格中的所有数据，创建一个新工作簿，命名并粘贴数据。我的代码中似乎有一个错误，它会打开两个新工作簿，将我的数据粘贴到一个工作簿中并粘贴我复制到另一个中的最后一个东西，这就是它为其指定名称的文件。

' Copy the sheet(1)
ThisWorkbook.Sheets(1).Copy


' Create new Workbook
Set NewBook = Workbooks.Add

' Name it and paste data
ActiveSheet.Paste
ActiveSheet.SaveAs Filename:="test.xlsx"
NewBook.Close

Answer 1

您的有效表格不一定是NewBook。您必须先按以下方式激活工作簿：

' Copy the sheet(1)
ThisWorkbook.Sheets(1).Copy


' Create new Workbook
Set NewBook = Workbooks.Add

' Name it and paste data
NewBook.Activate
ActiveSheet.Paste
NewBook.SaveAs Filename:="test.xlsx"
NewBook.Close