office交流网--QQ交流群号

Access培训群:792054000         Excel免费交流群群:686050929          Outlook交流群:221378704    

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

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

2020-04-28 08:00:00
tmtony8
原创
499

在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

分享