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