导出文本文件的数据到Excel

前面讲了两篇关于excel文件与文本文本的交互的内容

excel vba 创建文本文件

excel内容导出为文本文件

今天反过来，如何把文本文件内容写入到Excel工作表中？

运行下面的函数代码，会弹出选择对话框，选择文本文件后。文本文件数据就会从当前工作表的A列开始添加数据。

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 = 1
    Do
        Line Input #iFNumber, str1
        ActiveSheet.Cells(r, 1) = str1
        r = r + 1
    Loop Until EOF(iFNumber)
    Close #iFNumber '关闭文件
End Sub

文本文件内容：

导出到Excel的效果图：