VBA遍历文件夹中的文件并将变量范围复制/粘贴到主文件

Sub TraverseFilesAndCopyData()
    Dim FolderPath As String
    Dim FileName As String
    Dim wbSource As Workbook
    Dim wsSource As Worksheet
    Dim wsDestination As Worksheet
    Dim LastRow As Long
    
    ' 设置文件夹路径
    FolderPath = "C:\Your\Folder\Path\"
    
    ' 设置主文件
    Set wsDestination = ThisWorkbook.Sheets("Sheet1") ' 修改为你的主文件的工作表名称
    
    ' 遍历文件夹中的文件
    FileName = Dir(FolderPath & "*.*")
    Do While FileName <> ""
        ' 打开源文件
        Set wbSource = Workbooks.Open(FolderPath & FileName)
        
        ' 假设源文件中的数据在第一个工作表中
        Set wsSource = wbSource.Sheets(1)
        
        ' 获取源文件中数据的最后一行
        LastRow = wsSource.Cells(wsSource.Rows.Count, 1).End(xlUp).Row
        
        ' 将数据复制到主文件中
        wsSource.Range("A1:B" & LastRow).Copy wsDestination.Cells(wsDestination.Rows.Count, 1).End(xlUp).Offset(1)
        
        ' 关闭源文件
        wbSource.Close SaveChanges:=False
        
        ' 继续下一个文件
        FileName = Dir
    Loop
End Sub