vba 将html转换excel,VBA把Txt文档转换成Excel表格形式

Sub ChangeTxtToExl()

Dim fso, Tx As Object

Dim arr As Variant

Dim line As String

Dim i As Integer

Application.ScreenUpdating = False

Set fso = CreateObject('Scripting.FileSystemObject') '创建FSO对象

Set Tx = fso.OpenTextFile('E:\办公技巧\test.txt', 1) '在此处修改成test.txt的实际路径

i = 1

ThisWorkbook.Sheets(1).Activate '转换结束后，应先保存为带宏的工作薄文件(方便以后再次修改)。

Do While Tx.AtEndOfStream <> True '再另存为工作簿文件，在之前还可以进行一些格式化处理，当然也可以使用vba代码来实现

line = Tx.ReadLine

arr = Split(line)

Cells(1, i).Resize(UBound(arr) 1, 1) = Application.Transpose(arr)

i = i 1

Loop

Tx.Close

Application.ScreenUpdating = True

Set fso = Nothing

End Sub