vba逐行读取html文件,[求助] 请问下 如何用VBA逐行读取文本文件

去程序版搜索搜索吧

Sub OneTxt() '打开一个txt文件

Dim Filename As Variant, extLine&, mArr() As String

Dim i%, j%

ChDir ThisWorkbook.Path

Filename = Application.GetOpenFilename("Text Files (*.txt), *.txt", , "请选取档案", , MultiSelect:=False)

If Filename = False Then Exit Sub '最后一个选项MultiSelect等于false表示只能选择一个文件，如下面的等于true可以选择多个文件

'选择多个文件的时候是一个数组，需要循环打开，一个的时候就是字符串

j = 1

With Worksheets("sheet1")

.Cells.ClearContents '删除第一个表的内容

Open Filename For Input As #1 ' 以只读的方式打开文件，参考open方法的帮助

Do While Not EOF(1) ' 循环至文件尾。

Line Input #1, TextLine ' 读入一行数据并将其赋予某变量

mArr = Split(TextLine, " ") '按空格分开这个字符，循环赋值给单元格

For i = 0 To UBound(mArr)

.Cells(j, i + 2) = mArr(i) '此处参考split函数的帮助

Next i

.Cells(j, 1) = Dir(Filename) '等于文件名

j = j + 1

Loop

Close #1 ' 关闭文件。

End With

End Sub