如果你有一个需要重复执行的任务，通常把这个任务外包给一个子程序是个好主意。
下面的例程有两个参数，第一个是master（要复制工作表的工作簿）和一个filename（要打开和复制的文件名）。这个复制例程不关心你的业务逻辑，它只是复制工作表：

Sub Copysheets(masterWB As Workbook, sourceWBName As String)
    Dim sourceWB As Workbook, sourceSheet As Worksheet
    Set sourceWB = Workbooks.Open("\\filepath\filename.xlsx")

    For Each sourceSheet In sourceWB.Sheets
        sourceSheet.Copy After:=masterWB.Sheets(masterWB.Sheets.Count)
    Next
    ' Don't forget to close the file afterwards:
    sourceWB.Close SaveChanges:=False
End Sub

然后，您可以像这样调用例程（这段代码处理您的业务逻辑，但不关心复制是如何完成的）：

Sub CopySheetsFrom4Workbooks()
    Dim masterWB As Workbook
    masterWB = Workbooks.Open("\\filepath\filename.xlsm")
    
    Copysheets masterWB, "\\filepath\filename1.xlst"
    Copysheets masterWB, "\\filepath\filename2.xlst"
    Copysheets masterWB, "\\filepath\filename3.xlst"
    Copysheets masterWB, "\\filepath\filename4.xlst"

    masterWB.Save
End Sub

或者，例如，使用循环复制所有文件的工作表：

Sub CopyAllMyWorkbooks()
    Dim masterWB As Workbook
    masterWB = Workbooks.Open("\\filepath\filename.xlsm")
    
    Dim sourceFilename As String
    sourceFilename = Dir("\\filepath\filename*.xlst")
    Do While sourceFilename <> ""
        Copysheets masterWB, sourceFilename
        sourceFilename = Dir
    Loop
End Sub