新しいブックにデータをコピーする

Question

1つのスプレッドシートからすべてのデータをコピーし、新しいワークブックを作成し、名前を付けてデータを貼り付けるには、これが必要です。私は、2つの新しいワークブックを開き、自分のデータを1つに貼り付け、最後に貼り付けたバグをコードに入れているように見えます。これは、名前を割り当てるファイルです。

' 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