Я использую VBA, чтобы открыть простой текстовый файл, разделить его относительно некоторой информации в другом месте в моей книге.
Все работает хорошо, я просто не могу понять, почему это только возвращает мне1-я строка файла ...
Строки заканчиваются символом LF
, нет CR
.
Но я не знаю, как сделать Open
или EOF
осознавая это:
Вот (упрощенный) код:
numFile = FreeFile
Open FilePath For Binary Access Read Lock Read As numFile
LineNumber = 1
Do While Not EOF(numFile)
Line Input #numFile, LineFromFile
INFO = Mid(LineFromFile, someSheet.Cells(LineNumber, "D").Value2, someSheet.Cells(LineNumber, "E").Value2)
LineNumber = LineNumber + 1
Loop
Close numFile
Iзнаю, что я мог бы прочитать весь файл в одну строку, а затем разделить его с помощью LF
, чтобы получить строки, но я бы предпочел придерживаться построчное чтение.Спасибо заранее за ваши входы!