ActiveVBProject.References Error in .FullPath

We have a module that checks machine information for troubleshooting. One of the helper modules checks each link for breaks. However, for one reference, Microsoft Office Soap Library 3.0 stops at an error.

We can work around this, but I'm really curious to know what is causing this error. The link is valid, not broken. The referenced object method just fails for this library.

Failed to execute method 'FullPath' of object 'Reference'

Private Sub getEachRef()

Dim ref As Variant
Dim strRef As String

'On Error Resume Next <- this allows the rest of the code to complete

For Each ref In Application.VBE.ActiveVBProject.References

    frmAbout.lst_About.AddItem "[Reference] " & ref.Description
    frmAbout.lst_About.List(frmAbout.lst_About.ListCount - 1, 1) = ref.FullPath <- error is here

    If ref.IsBroken = True Then
        frmAbout.lst_About.List(frmAbout.lst_About.ListCount - 1, 2) = "Broken Link"
    End If

Next

End Sub

      

+3
vba excel-vba excel


source to share


No one has answered this question yet

Check out similar questions:

46
Repeated calls to Chart.SetSourceData give error 1004
five
Get Contentwindow iframe in vba - Access Denied / Allowed
3
How to automatically start initializing an app object in Powerpoint?
3
Copy only selected table columns after filter to new sheet
1
Excel VBA macro to send emails to unique users in a range
1
how to determine character code (ascii or hex) using Dialogs (wdDialogInsertSymbol) in powerpoint
0
excel replace function in vba access
0
Excel Macro: Applies sorting on each sheet
0
Invalid error in Excel 2013
0
Getting error "ActiveX component cannot create object when connecting to CMS supervisor



All Articles
Loading...
X
Show
Funny
Dev
Pics