Добрый день, уважаемы форумчане!
есть такой макрос, который предназначен для программного добавлении объектной модели, Он ругается на ошибку-Compile error: User-defined type not defined
подскажите как можно как можно избежать эту ошибку.
заранее благодарю!
есть такой макрос, который предназначен для программного добавлении объектной модели, Он ругается на ошибку-Compile error: User-defined type not defined
подскажите как можно как можно избежать эту ошибку.
заранее благодарю!
Код |
---|
Sub AddReference() Dim VBAEditor As VBIDE.VBE Dim vbProj As VBIDE.VBProject Dim chkRef As VBIDE.Reference Dim BoolExists As Boolean Set VBAEditor = Application.VBE Set vbProj = ActiveWorkbook.VBProject '~~> Check if "Microsoft VBScript Regular Expressions 5.5" is already added For Each chkRef In vbProj.References If chkRef.Name = "Microsoft Visual Basic for Applications Extensibility 5.3" Then BoolExists = True GoTo CleanUp End If Next vbProj.References.AddFromFile "C:\Program Files (x86)\Common Files\Microsoft Shared\VBA\VBA6\VBE6EXT.OLB" CleanUp: If BoolExists = True Then MsgBox "Reference already exists" Else MsgBox "Reference Added Successfully" End If Set vbProj = Nothing Set VBAEditor = Nothing End Sub |