VBA实例2-读取txt文本内容到Excel

Sub test()
    Dim objStream, strData, Arr1, i As Long
    Dim pathX As String, strX As String, N As Long
'第一部分选中需要读取的txt文件
    With Application.FileDialog(msoFileDialogFilePicker)
                With .Filters
                        .Clear
                        .Add "txt文件", "*.txt"
                End With
                .AllowMultiSelect = False
                If Not .Show Then Exit Sub
                pathX = .SelectedItems(1)
    End With
'第二部分读取UTF-8格式的txt文件内容保存至strData变量中
    '创建ADODB.Stream对象
    Set objStream = CreateObject("ADODB.Stream")
    '指定字符集为UTF-8
    objStream.Charset = "utf-8"
    '使用Open方法打开流对象
    objStream.Open
    '加载文本文件
    objStream.LoadFromFile (pathX)
    '使用ReadText返回文件内容
    strData = objStream.ReadText()
'第三部分用Split函数按行来分割字符串存至数组中，处理数据，然后通过循环填写至sheet表中
    Arr1 = Split(strData, vbCrLf)
    objStream.Close
    Set objStream = Nothing
    N = 1
    For i = 0 To UBound(Arr1)
        strX = Arr1(i)
        If strX <> "" Then
            Range("A" & N) = strX
        End If
        N = N + 1
    Next
End Sub