用VBA 在excel 同一sheet 导入多个txt 文件

在Excel中使用VBA（Visual Basic for Applications）来导入同一工作表下的多个TXT文件，可以编写一段循环处理的代码。这里是一个简单的示例步骤：

1. 打开VBA编辑器：在Excel菜单栏中选择“Developer”（开发者），然后点击“Visual Basic”按钮。

2. 创建新模块：在VBA编辑窗口底部，找到“插入”->“模块”，然后在弹出的窗口里开始编写代码。

Sub ImportTXTFiles()
    Dim DirPath As String '指定包含TXT文件的目录路径
    Dim MyFile As String '用于存储单个文件名
    Dim ws As Worksheet '引用目标工作表
    
    '设置目录路径
    DirPath = "C:\YourDirectory\" '替换为你存放TXT文件的实际路径
    
    '假设目标工作表名为Sheet1
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    '遍历目录中的所有TXT文件
    For Each MyFile In Dir(DirPath & "*.txt") '*.txt表示只查找TXT文件
        If MyFile <> "" Then '忽略空字符串
            Debug.Print "Importing " & MyFile '打印正在导入的文件名，你可以删除这行以便直接读取
            Open DirPath & MyFile For Input As #1 '打开文件
            Do Until EOF(1) '读取直到文件结束
                Line Input #1, ws.Cells(ws.Rows.Count, 1).End(xlUp).Offset(1, 0) '将内容追加到最后一行
            Loop
            Close #1 '关闭文件
        End If
    Next MyFile
    
    MsgBox "All TXT files imported successfully.", vbInformation
End Sub

在这个脚本中，你需要修改`DirPath`变量以指向实际的TXT文件目录，并且可以根据需要调整导入数据的方式（例如，如果TXT文件不是文本形式，而是逗号分隔值或其他格式，可能需要更复杂的解析）。