导出文本文件的数据到Excel-VBA源码.rar

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