Excel VBA 매크로 - 기존 파일의 여러 시트에서 데이터 복사 및 새 파일 만들기 및 선택한 데이터를 별도의 시트에 붙여 넣기

모든 도움이 크게 감사드립니다.

기술: 몇 가지 데이터 시트가있는 Excel 파일이 있습니다. 여러 시트의 모든 데이터를 복사하고 NEW Excel 파일을 만들고이 데이터를 여러 시트에 붙여 넣어야합니다. 그래서 만약 내가 다음과 같은 :

excelfile1.xlsx - sheet1 - sheet2

나는 sheet1을 선택하고, sheet1의 모든 데이터를 복사하고, 새로운 Excel 파일을 만들고, sheet1 데이터를 sheet1의 새 파일에 붙여 넣은 다음 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

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

...에서 docs.microsoft.com