使用VBA或宏将特定文件夹中的多个工作簿中的Sheet1数据导入单个工作簿

Sub ImportDataFromWorkbooks()
    Dim FolderPath As String
    Dim Filename As String
    Dim WB As Workbook
    Dim WS As Worksheet
    Dim TargetWS As Worksheet
    
    ' 设置目标工作簿的Sheet1为导入数据的工作表
    Set TargetWS = ThisWorkbook.Sheets("Sheet1")
    
    ' 设置特定文件夹的路径
    FolderPath = "C:\YourFolderPath\"
    
    ' 获取文件夹中的第一个文件名
    Filename = Dir(FolderPath & "*.xlsx")
    
    ' 循环遍历文件夹中的每个文件
    Do While Filename <> ""
        ' 打开当前文件
        Set WB = Workbooks.Open(FolderPath & Filename)
        
        ' 获取当前文件的第一个工作表
        Set WS = WB.Sheets(1)
        
        ' 将当前工作表的数据复制到目标工作表
        WS.UsedRange.Copy TargetWS.Cells(TargetWS.Cells(Rows.Count, 1).End(xlUp).Row + 1, 1)
        
        ' 关闭当前文件，不保存更改
        WB.Close False
        
        ' 获取下一个文件名
        Filename = Dir
    Loop
End Sub