Как я могу решить эту ошибку Excel Visual Basic во время выполнения «62»?

Question

Я создал скрипт Visual Basic в Excel для открытия, захвата содержимого и закрытия нескольких (более ста) документов Word.

Часть кода:

Private Function GrabTextFile(ByVal file_name As String) As String
Dim fnum As Long
    fnum = FreeFile()
    Open file_name For Input As #fnum
    GrabTextFile = Input$(LOF(fnum), #fnum)
    Close #fnum
End Function

(Остальная часть кода основана на этой странице от VB helper .)

Сценарий завершается с ошибкой:

GrabTextFile = Input$(LOF(fnum), #fnum)

с сообщением:

Run-time error '62':

Input past end of file

Ошибка в документе 34. Однако, если я удаляю этот конкретный документ , а затем повторно запускаю сценарий, он завершается ошибкой для нового документа в этом месте. Это означает, что у меня проблема с освобождением памяти (?).

Answer 1

Поскольку это документы Word, я предлагаю вам попробовать функцию GrabWordFile вместо функции GrabTextFile, указанной на этой странице VB Helper .