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

我已经在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上失败。但是，如果我删除了该特定文档，然后重新运行脚本，则该文档在该位置的新文档上将失败。对我而言，这意味着我在释放一些内存（？）时遇到问题。

最佳答案

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