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