Макрос Excel VBA - копирование данных из нескольких листов в существующий файл, создание нового файла и вставка выбранных данных в отдельные листы

Question

любая помощь очень ценится.

Описание: У меня есть файл Excel с несколькими листами данных. Мне нужно скопировать ВСЕ данные с нескольких листов, создать НОВЫЙ файл Excel и вставить эти данные на несколько листов. Так что, если у меня есть следующее:

excelfile1.xlsx - лист1 - лист2

Мне нужно выбрать sheet1, скопировать все данные в sheet1, создать новый файл Excel и вставить данные sheet1 в новый файл на sheet1new, а затем сделать то же самое с sheet2.

Вот мой код для обработки 1 листа (но я не уверен, как попросить его обработать действия для 2-го листа, вот где мне нужны некоторые рекомендации):

Dim Directory As String
Dim Filename As String

Directory = Range("directory").Value
Filename = Range("filename").Value





Sheets("RHD").Select

Cells.Select
Range("N15").Activate
Selection.Copy

Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False

ActiveWorkbook.SaveAs Filename:=Directory & Filename, _
    FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close

Sheets("I&S").Select

Answer 1

Worksheets(Array("Sheet1", "Sheet2")).Copy
With ActiveWorkbook
 .SaveAs Filename:=Environ("TEMP") & "\New3.xlsx", FileFormat:=xlOpenXMLWorkbook 
 .Close SaveChanges:=False 
End With 

от docs.microsoft.com