在vba中读取rep文件

Question

我试图阅读＆＃34; .rep＆＃34;文件在VBA中，这里是我使用的代码：

FileNum = FreeFile()
Open FileName For Input As #FileNum

Line Input #FileNum, DataLine
LineItems = Split(DataLine, vbTab)

除了在最后一个代码行之后，我将所有文件放在＆＃34; LineItems＆＃34; （它变成了一个包含15K单元格的数组），而不仅仅是第一行（当我通过Excel打开同一个文件时 - 我在正确的行中看到它）

有没有人知道如何逐行阅读？ 谢谢

Answer 1

请尝试vbNewline？

LineItems = Split(DataLine, vbNewLine)

或者这个：

LineItems = Split(DataLine, vbCrLf)

编辑1：好的，然后尝试：

Dim LineItems() As String    

Open Filename For Input As #Filenum
LineItems() = Split(Input$(LOF(Filenum), #Filenum), vbNewLine)
Close #Filenum