导出文本文件的数据到Excel

前面讲了两篇关于excel文件与文本文本的交互的内容excel vba 创建文本文件excel内容导出为文本文件
今天反过来，如何把文本文件内容写入到Excel工作表中？运行下面的函数代码，会弹出选择对话框，选择文本文件后。文本文件数据就会从当前工作表的A列开始添加数据。Sub读取文本文件数据()
Dimstr1AsString,sFNameAsString,iFNumberAsInteger,rAsLong
sFName=Application.GetOpenFilename("文本文件(*.txt),*.txt,所有文件(*.*),*.*",1,"打开文本文件")
IfsFName="False"ThenExitSub
iFNumber=FreeFile '获取可用文件号
OpensFNameForInputAs#iFNumber '用Input方式打开文件
ActiveSheet.Cells.Clear
r=1
Do
LineInput#iFNumber,str1
ActiveSheet.Cells(r,1)=str1
r=r+1
LoopUntilEOF(iFNumber)
Close#iFNumber '关闭文件
EndSub
文本文件内容：

1510736778500588.png

导出到Excel的效果图：

1510736771104222.png