Копирование данных в новую книгу 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