vba宏从一张纸复制数据并将其保存到新工作簿

Question

我不确定这里出了什么问题。

下面的代码应该从当前工作簿的一张工作表中复制我的所有数据，将其粘贴到一个新工作簿中，然后将该工作簿保存在与当前工作簿相同的目录中。

Sub copy_to_new_workbook()

ThisWorkbook.Sheets("summary_data").Copy


' Create new Workbook
Set NewBook = Workbooks.Add

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


End Sub

但是会发生什么，它是否创建了一个名为"export.xlsx"的新 excel 文件，并且复制的只是我的 vba 代码？ 另外打开一个名为book2或book3的新工作簿，这个工作簿有我需要的数据但没有保存？

此外，我想保存新工作簿，其标题如下： export_DD_MM_YYYY ，名称字段中包含今天的日期。

谢谢。

Answer 1

 ThisWorkbook.Sheets("summary_data").Copy

创建工作表的副本（不是内容） - 如果您没有指定该副本的位置，那么它将在新工作簿中创建。

那时你可以打电话

Set NewBook = Activeworkbook 

并保存。

如果您只想复制工作表内容，则可以使用：

 ThisWorkbook.Sheets("summary_data").Cells.Copy 

要么

 ThisWorkbook.Sheets("summary_data").UsedRange.Copy