Введите последний конец файла VBA Excel

Я пытаюсь прочитать текстовый файл (эти файлы создаются внешней программой, которую нельзя настроить), используя следующий макрос.

    While Not EOF(int_current_file)
    Line Input #int_current_file, buf
    If Left(buf, 1)  "#" Then
        buf1 = Split(buf, "=")
        Print #int_master_file, CInt(Left(buf, 2)) & ";" & CInt(Mid(buf, 3, 4)) & ";" & CInt(Mid(buf, 7, 3)) & ";" & CInt(Mid(buf, 10, 1)) & ";" & CDbl(buf1(1) / 100000000) & ";" & CDate(file_date) & ";" & Mid(file_name, 4, 3)
    End If
    'Line Input #int_current_file, buf
    'Debug.Print Data
Wend

Однако во второй строке этого файла у меня есть следующая строка:

=01082013=01072013=31072013=06082013=1640=380441=21=000001249=#02IFS86.G84=IFSSS5=7ҐK!Ђi—Љ42ЃЁ4№{¤Хo$]ґ•Хp Ё1‹;±~†ЁRLЌг‰®ґн нќРР^±>_‰

Когда макрос пытается прочитать эту строку,error 62 происходит .Input past end of file

Как я могу решить эту проблему?

Ответы на вопрос(1)

Ваш ответ на вопрос