如何在vba中将文本文件读入数组

Question

我有一个包含 1000 个数据条目（只有整数）的文本文件。文本文件中每行一个条目。我想知道如何将该数据传输到 VBA 中的数组中。

感谢您抽出时间回复。

Answer 1

我们也可以在不循环的情况下做到这一点：

Sub Test()

 Dim FSO As Object, MyFile As Object
 Dim FileName As String, Arr As Variant

 FileName = "C:\Test\Test.txt" ' change this to your text file full name
 Set FSO = CreateObject("Scripting.FileSystemObject")
 Set MyFile = FSO.OpenTextFile(FileName, 1)
 Arr = Split(MyFile.ReadAll, vbNewLine) ' Arr is zero-based array


 'For test
 'Fill column A from this Array Arr

 Range("A1").Resize(UBound(Arr) + 1, 1).Value = Application.Transpose(Arr)

End Sub