vba提取多个txt文件数据

您可以使用VBA的文件操作函数和文本处理函数来提取多个txt文件的数据。以下是一个示例代码，可以读取指定文件夹中所有txt文件的内容并提取其中的数据。

Sub ReadTxtFiles()

    Dim folderPath As String
    Dim fileName As String
    Dim fileContent As String
    Dim totalContent As String
    
    folderPath = "C:\Users\username\Desktop\TxtFiles\" '指定文件夹路径
    fileName = Dir(folderPath & "*.txt") '获取第一个txt文件的文件名
    
    Do While fileName <> ""
    
        fileContent = ""
        Open folderPath & fileName For Input As #1 '打开文件
        Do While Not EOF(1) '逐行读取文件内容
            Line Input #1, fileContent
            '在此可以使用文本处理函数提取所需数据
            totalContent = totalContent & fileContent & vbCrLf
        Loop
        Close #1 '关闭文件
        
        fileName = Dir '获取下一个txt文件的文件名
    Loop
    
    '在此可以将提取的数据输出到Excel表格或其他文件中
    '例如：Range("A1").Value = totalContent
    
End Sub

请将代码中的文件夹路径改为您实际的文件夹路径，并根据需要添加文本处理函数来提取所需数据。