vba读取文本文件数据

Sub 读取文本文件数据()
    Dim astr(1 To 3) As String
    Dim i  As Integer
    Dim sfname As String
    Dim ifnumber As Integer
    Dim r As Long
    sfname = Application.InputBox(prompt:="请输入文本文件的名称", _
    Title:="输入文件名称", Type:=2)
    If sfname = "False" Or sfname = "" Then Exit Sub
    sfname = ThisWorkbook.Path & "\" & sfname & ".txt"
    If Len(Dir(sfname, vbDirectory)) > 0 Then
        ifnumber = FreeFile
        Open sfname For Input As #ifnumber
        Sheet1.Cells.Clear
        r = 2
        Do
            Input #ifnumber, astr(1), astr(2), astr(3)
            With Sheet1
                For i = 1 To 3
                    .Cells(r, i) = astr(i)
                Next
            End With
            r = r + 1
        Loop Until EOF(ifnumber)
        Close #ifnumber
    Else
        MsgBox "输入的文件不存在,请不要添加扩展名!"
    End If
End Sub