¿VBA abre el libro de trabajo ignorando el error de "biblioteca faltante"? - excel, vba

Actualmente estoy usando el siguiente código para abrir libros de trabajo y buscar cadenas específicas:

    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

El problema es que parece haber algún compiladorErrores (falta la biblioteca) cuando abro un par de hojas de cálculo. ¿Hay alguna manera de que pueda evitar esto? Solo necesito obtener el contenido de CodeMod en algún lugar donde se pueda buscar, pero el problema parece ser al abrir el libro.

Respuestas

0 para la respuesta № 1

Necesitas tener el Microsoft Visual Basic for Applications Extensibility Referencia agregada para ejecutar su código.

Herramientas> Referencias> Luego verifíquelo y haga clic en Aceptar.


Menú