读取文本文件数据

Public Sub 读取文本文件数据()
    Dim str1 As String, sFName As String, iFNumber As Integer, r As Long
    sFName = Application.GetOpenFilename("文本文件(*.txt),*.txt,所有文件(*.*),*.*", _
        1, "打开文本文件")
    If sFName = "False" Then Exit Sub
    
    iFNumber = FreeFile     '获取可用文件号
    Open sFName For Input As #iFNumber      '用Input方式打开文件
    
    ActiveSheet.Cells.Clear
    r = 2
    Do
        Line Input #iFNumber, str1
        ActiveSheet.Cells(r, 1) = str1
        r = r + 1
    Loop Until EOF(iFNumber)
    
    Close #iFNumber '关闭文件
End Sub

作者：LiW