VBA导入要访问的文件夹中的所有文件

Dim folderPath As String
With Application.FileDialog(msoFileDialogFolderPicker)
    .Title = "选择文件夹"
    If .Show = -1 Then
        folderPath = .SelectedItems(1)
    Else
        Exit Sub
    End If
End With

Dim fso As Object
Dim folder As Object
Dim file As Object

Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(folderPath)

For Each file In folder.Files
    ' 对每个文件进行操作，例如导入数据等
Next file

Dim wb As Workbook
Dim ws As Worksheet

Set wb = ThisWorkbook ' 当前工作簿
Set ws = wb.Worksheets("Sheet1") ' 目标工作表

For Each file In folder.Files
    ' 导入文件数据到目标工作表
    With ws.QueryTables.Add(Connection:="TEXT;" & file.Path, Destination:=ws.Cells(ws.Rows.Count, 1).End(xlUp).Offset(1, 0))
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileCommaDelimiter = True ' 根据实际情况选择分隔符
        .Refresh
    End With
Next file