Как сохранить листы нескольких рабочих книг, созданных в одну рабочую книгу, имеющую несколько рабочих листов с использованием сценариев VB?

Question

Я совершенно новичок в VBA, и меня просят сделать улучшения в течение дня.

Мой текущий код создает несколько документов Excel и содержит данные в «Лист1». Теперь я хочу, чтобы был создан один Excel, имеющий несколько листов. Как сохранить листы нескольких рабочих книг, созданных в одной книге с несколькими листами, используя сценарии VB?

Код:

Dim getLCount As Integer, getPCount As Integer, getTotalCountAdd As Integer
Dim getValidColumnNames As String, getValidColumnNames_p As String, checkCol1 As String, checkCol2 As String
Dim addAllColumns As String
Dim foundFlag As Boolean
Dim splitgetValidColumnNames As Variant, splitgetValidColumnNames_i As Variant, splitgetValidColumnNames_p As Variant, splitgetValidColumnNames_p_i As Variant

getLCount = ColN_cnt
getPCount = getColCount '- 1

Wbook_Input.Activate
Worksheets(tableName).Range("A2:B" & getLCount + 2).Copy Destination:=Workbooks(newWorkbookName).Sheets("Sheet1").Cells(4, "A")
Workbooks(newWorkbookName).Activate
Wbook_Input.Activate
Worksheets(tableName).Range("E2:F" & getPCount + 2).Copy Destination:=Workbooks(newWorkbookName).Sheets("Sheet1").Cells(4, "C")
Workbooks(newWorkbookName).Activate
Worksheets.Add
ActiveSheet.Move After:=Sheets(ActiveWorkbook.Sheets.Count)
ActiveWorkbook.Save
Application.CutCopyMode = False
Worksheets("Sheet1").Select
Worksheets("Sheet1").Range("A5").Select