在工作簿打开时查找添加时出错

Question

我有一个工作簿，打开时会扫描特定的插件，如果它已经打开，它不会重新打开它，但如果不是，它会打开它。首先，它将扫描 application.vbe.vbprojects 以查找未注册的插件。如果我自己打开工作簿它工作正常，如果我先打开一个空白工作簿然后我打开将打开插件的工作簿，我收到一个错误：

Private Sub Workbook_Open()
Dim vbproj As Object
Dim theName As String
Dim flag as Boolean

For Each vbproj In Application.VBE.VBProjects
    theName = GetFilenameFromPath(vbproj.filename) <<--- Run-time error '76'" Path not found
    If theName = "AddIn.xlam" Then
        Flag = True
        Exit For
    End If
Next vbproj

    If Flag = False Then
    Workbooks.Open ("C:\AddIn.xlam"), , True
    Workbooks("AddIn.xlam").IsAddin = True
    End If

End Sub

Function GetFilenameFromPath(ByVal strPath As String) As String    
        If Right$(strPath, 1) <> "\" And Len(strPath) > 0 Then
            GetFilenameFromPath = GetFilenameFromPath(Left$(strPath, Len(strPath) - 1)) + Right$(strPath, 1)
        End If
End Function

Answer 1

Application.AddIns2 集合可用于 Office 2010 及更高版本：

Dim isInstalled As Boolean, a As AddIn

For Each a In Application.AddIns2                              ' not sure if .IsOpen should be checked 
    If a.Name = "AddIn.xlam" Then isInstalled = a.Installed And a.IsOpen: Exit For 
Next

If Not isInstalled Then Workbooks.Open("AddIn.xlam", , True).IsAddin = True

AFAIK，.xla(m) 文件始终使用.IsAddin = True 打开，所以我认为只有 .xlsb 格式的插件才需要。