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引用才能运行代码。

工具＆gt;参考文献＆gt;然后检查它并单击“确定”。

VBA打开工作簿忽略“遗失库”错误？

1 个答案: