Excel vba 讀取txt文本文件導(dǎo)入到excel中

在Excel中導(dǎo)入文本文件。

我們可以通過菜單欄的數(shù)據(jù)-穫?cè)⊥獠繑?shù)據(jù)-文本 來導(dǎo)入文本數(shù)據(jù)。

由於TXT文本的格式的特殊性，可以蔘考下麵的自定義函數(shù)導(dǎo)入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