VBA打开工作簿忽略"missing library"错误？

Question

我当前正在使用以下代码打开工作簿并搜索特定字符串：

    Set workbook = Application.Workbooks.Open(Path)
    Set VBProj = workbook.VBProject
    Set oComp = VBProj.VBComponents("Module1")
    Set CodeMod = oComp.CodeModule
    FindWhat = ToFindStr
    With CodeMod
        SL = 1
        EL = .CountOfLines
        SC = 1
        EC = 255
        Found = .Find(target:=FindWhat, StartLine:=SL, StartColumn:=SC, _
            EndLine:=EL, EndColumn:=EC, _
            wholeword:=True, MatchCase:=False, patternsearch:=False)
        Do Until Found = False
            Print #fnum1, "found"
            EL = .CountOfLines
            SC = EC + 1
            EC = 255
            Found = .Find(target:=FindWhat, StartLine:=SL, StartColumn:=SC, _
                EndLine:=EL, EndColumn:=EC, _
                wholeword:=True, MatchCase:=False, patternsearch:=False)
        Loop
    End With

问题是，当我打开几个电子表格时，似乎存在一些编译器错误（缺少库）。有什么办法可以解决这个问题？我只需要将CodeMod内容发送到可搜索的某个地方 - 但问题似乎是打开工作簿。

Answer 1

您需要添加Microsoft Visual Basic for Applications Extensibility参考才能运行代码。

工具>参考>然后检查并单击"确定"。