使用VBA遍历文件夹中的所有.txt文件，然后将内容传输到excel工作表

Sub TraverseFiles()
    Dim FolderPath As String
    Dim FileName As String
    Dim ws As Worksheet
    Dim FileContent As String
    Dim i As Integer
    
    ' 设置文件夹路径
    FolderPath = "C:\YourFolderPath\" ' 替换为实际的文件夹路径
    
    ' 创建新的工作表
    Set ws = ThisWorkbook.Sheets.Add
    
    ' 初始化行数
    i = 1
    
    ' 遍历文件夹中的所有文件
    FileName = Dir(FolderPath & "*.txt")
    Do While FileName <> ""
        ' 打开文件并读取内容
        Open FolderPath & FileName For Input As #1
        FileContent = Input$(LOF(1), 1)
        Close #1
        
        ' 将文件内容传输到工作表
        ws.Cells(i, 1).Value = FileName
        ws.Cells(i, 2).Value = FileContent
        
        ' 增加行数
        i = i + 1
        
        ' 继续下一个文件
        FileName = Dir
    Loop
    
    ' 调整工作表的列宽
    ws.Columns("A:B").AutoFit
    
    ' 提示完成
    MsgBox "文件内容已传输到工作表！"
End Sub