如何解决此Excel Visual Basic运行时错误“62”？

Question

我在Excel中创建了一个Visual Basic脚本来打开，获取内容并关闭一个（超过一百个）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

（其余代码主要基于this page from VB helper。）

脚本在线失败：

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

带有消息：

Run-time error '62':

Input past end of file

它在文档34上失败。但是，如果我删除该特定文档然后重新运行该脚本，它将在该位置的新文档上失败。这对我来说意味着我有一个问题，即释放一些内存（？）。

Answer 1

由于这些是Word文档，我建议您尝试GrabWordFile函数，而不是VB Helper page上列出的GrabTextFile函数。