excel - 使用vba读取整个文本文件

Question

我正在尝试使用 vba 读取文本文件。我尝试了下面的代码

Open "C:\tester.txt" For Input As #1
Worksheets("UI").Range("H12").Value = Input$(LOF(1), 1)
Close #1

当我运行这个时，我收到一个错误。

运行时错误“62”。输入超过文件末尾。

文本文件的内容是:

Unable to open COM10. Make sure it is connected
Plus other stuff
And more stuff
way more stuff

提前感谢您的帮助。

Answer 1

您可以将整个文件读入变体数组，然后一次转储，而不是逐个单元地循环。

将路径从 C:\temp\test.txt 更改为适合的路径。

Sub Qantas_Delay()
Dim objFSO As Object
Dim objTF As Object
Dim strIn 'As String
Dim X

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTF = objFSO.OpenTextFile("C:\temp\test.txt", 1)
strIn = objTF.readall
X = Split(strIn, vbNewLine)
[h12].Resize(UBound(X) + 1, 1) = Application.Transpose(X)
objTF.Close

End Sub