前面讲了两篇关于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的效果图：