Vba导入txt文本到x4表格

可以使用VBA编写一个宏来实现将txt文本导入到Excel表格中的步骤，具体步骤如下：

1. 打开Excel表格，按下Alt+F11打开VBA编辑器

2. 在VBA编辑器中，插入一个新模块

3. 在新模块中编写以下代码：

Sub ImportTxt()
    Dim FilePath As String
    Dim RowCounter As Long
    Dim TextLine As String
    Dim Arr() As String
    
    '选择txt文件
    FilePath = Application.GetOpenFilename("Text Files (*.txt), *.txt")
    
    '如果选择了文件
    If FilePath <> False Then
        '打开文件
        Open FilePath For Input As #1
        
        '读取文件内容
        Do Until EOF(1)
            Line Input #1, TextLine
            Arr = Split(TextLine, ",")
            
            '将内容写入表格
            RowCounter = RowCounter + 1
            Range("A" & RowCounter).Resize(1, UBound(Arr) + 1) = Arr
        Loop
        
        '关闭文件
        Close #1
    End If    
End Sub

4. 点击运行按钮或按下F5运行宏

5. 选择要导入的txt文件并点击打开

6. VBA将会自动将txt文件内容导入到Excel表格中，每一行对应一个txt文件中的一行，每一列对应txt文件中以逗号为分隔符的不同字段。

注意：在运行宏之前，请确保在Excel表格中有足够的空间来容纳txt文件中的所有行和列。