office交流網--QQ交流群號

Access培訓群:792054000         Excel免費交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

Excel vba 讀取txt文本文件導入到excel中

2020-04-28 08:00:00
tmtony8
原創
1979

在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

分享