如何使用VBA将100个工作簿合并为一个主工作簿？

Sub 合并工作簿()
    Dim 主工作簿 As Workbook
    Dim 文件名 As String
    Dim 目标工作簿 As Workbook
    Dim 源工作簿 As Workbook
    Dim 目标工作表 As Worksheet
    Dim 源工作表 As Worksheet
    
    ' 设置主工作簿
    Set 主工作簿 = ThisWorkbook
    
    ' 循环遍历所有工作簿
    文件名 = Dir("C:\路径\*.xlsx") ' 替换为实际的文件路径和扩展名
    Do While 文件名 <> ""
        ' 打开目标工作簿
        Set 目标工作簿 = Workbooks.Open("C:\路径\" & 文件名) ' 替换为实际的文件路径
        
        ' 循环遍历目标工作簿中的所有工作表
        For Each 目标工作表 In 目标工作簿.Sheets
            ' 复制目标工作表到主工作簿
            目标工作表.Copy After:=主工作簿.Sheets(主工作簿.Sheets.Count)
        Next 目标工作表
        
        ' 关闭目标工作簿
        目标工作簿.Close SaveChanges:=False
        
        ' 继续下一个文件
        文件名 = Dir
    Loop
End Sub