有没有办法循环访问多个工作簿，以便将区域复制到一个活动工作簿中？

Sub CopyDataFromMultipleWorkbooks()
    Dim SourceFolder As String
    Dim Filename As String
    Dim CurrentWorkbook As Workbook
    Dim TargetWorkbook As Workbook
    Dim SourceWorksheet As Worksheet
    Dim TargetWorksheet As Worksheet
    Dim CopyRange As Range
    Dim LastRow As Long
    
    ' 设置源文件夹路径
    SourceFolder = "C:\Path\To\Source\Folder\"
    
    ' 打开目标工作簿
    Set TargetWorkbook = ThisWorkbook ' 当前活动工作簿
    
    ' 设置目标工作表
    Set TargetWorksheet = TargetWorkbook.Worksheets("Sheet1") ' 修改为目标工作表的名称
    
    ' 循环遍历源文件夹中的所有文件
    Filename = Dir(SourceFolder & "*.xlsx") ' 修改为源文件的扩展名
    Do While Filename <> ""
        ' 打开当前源工作簿
        Set CurrentWorkbook = Workbooks.Open(SourceFolder & Filename)
        
        ' 设置当前源工作表
        Set SourceWorksheet = CurrentWorkbook.Worksheets("Sheet1") ' 修改为源工作表的名称
        
        ' 获取当前源工作表中的数据范围
        LastRow = SourceWorksheet.Cells(Rows.Count, 1).End(xlUp).Row
        Set CopyRange = SourceWorksheet.Range("A1:D" & LastRow) ' 修改为实际的数据范围
        
        ' 将数据复制到目标工作表中
        LastRow = TargetWorksheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
        CopyRange.Copy TargetWorksheet.Cells(LastRow, 1)
        
        ' 关闭当前源工作簿，保存更改
        CurrentWorkbook.Close SaveChanges:=False
        
        ' 继续处理下一个文件
        Filename = Dir
    Loop
    
    ' 清理对象变量
    Set CopyRange = Nothing
    Set SourceWorksheet = Nothing
    Set TargetWorksheet = Nothing
    Set CurrentWorkbook = Nothing
    Set TargetWorkbook = Nothing
    
    MsgBox "数据复制完成。"
End Sub