Excel vba 读取txt文本文件导入到excel中

在Excel中导入文本文件。

我们可以通过菜单栏的数据-获取外部数据-文本 来导入文本数据。

由于TXT文本的格式的特殊性，可以参考下面的自定义函数导入txt文件。

 

 

Sub file_txt()
    Dim str_txt() As String, line As Integer, i As Integer, txt As String
    line = 1
    Open "D:\a.txt" For Input As #1
    Do While Not EOF(1)
        Line Input #1, txt
        str_txt = Split(txt, ",")
         For i = 0 To UBound(str_txt)
            Cells(line, i + 1).Value = str_txt(i)
         Next i
        line = line + 1
     Loop
    Close #1
    ActiveSheet.Range(Cells(1, 1), Cells(1, ActiveSheet.UsedRange.Columns.Count)).Interior.ColorIndex = 6
End Sub