Question

vba怎么把txt导入excel

Answer 1

给你个思路:仅供参考

Public Sub 读取文本文件()

Dim fso As New FileSystemObject

地址 = "H:\我的家.txt"

Dim tsm As TextStream

Set tsm = fso.OpenTextFile(地址)

Cells(1, 1) = tsm.ReadAll

tsm.Close

End Sub

如果运行错误,请到引用里面将此打勾

Answer 2

参考一下：
Sub ImportFromText()
Open "C:\tester.txt" For Input As #1
r = 0
Do Until EOF(1)
Line Input #1, Data
Worksheets("UI").Range("H12").Offset(r, 0) = Data
r = r + 1
Loop
Close #1
End Sub