Vba循环在一个excel工作表上打开一个文件夹中的多个文本文件

Sub OpenTextFiles()
    Dim fso As Object
    Dim folder As Object
    Dim file As Object
    Dim filePath As String
    
    ' 创建文件系统对象
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' 指定文件夹路径
    Set folder = fso.GetFolder("C:\Path\To\Your\Folder")
    
    ' 遍历文件夹中的所有文件
    For Each file In folder.Files
        If LCase(file.Name) Like "*.txt" Then
            filePath = file.Path
            ' 打开文本文件
            Workbooks.OpenText Filename:=filePath, _
                                Origin:=xlWindows, _
                                StartRow:=1, _
                                DataType:=xlDelimited, _
                                TextQualifier:=xlDoubleQuote, _
                                ConsecutiveDelimiter:=False, _
                                Tab:=True, _
                                Semicolon:=False, _
                                Comma:=False, _
                                Space:=False, _
                                Other:=False, _
                                FieldInfo:=Array(1, 1), _
                                TrailingMinusNumbers:=True
        End If
    Next file
    
    Set fso = Nothing
End Sub