3

アドインがインストールされ、参照されているかどうかを確認したい。以下のコードは、アドインがインストールされているかどうかをチェックします。Excelで参照されているかどうかを確認するにはどうすればよいですか。

参照とは、ツール > アドイン > アドイン ダイログ ボックス > アドインがインストールされている場合 > 特定の名前のアドインがチェックされているかどうかを確認することです。

できればループなしでお願いします。

Sub Demo() 
    Dim b As Boolean 
    b = CheckAddin("Solver add-in") 
    MsgBox "Solver is " & IIf(b, "", "not ") & "installed" 
End Sub 

Function CheckAddin(s As String) As Boolean 
    Dim x As Variant 
    On Error Resume Next 
    x = AddIns(s).Installed 
    On Error Goto 0 
    If IsEmpty(x) Then 
        CheckAddin = False 
    Else 
        CheckAddin = True 
    End If 
End Function
4

3 に答える 3

3

他のワークブックとほとんど同じように、アドインが開いていることをテストする必要があります。アドインが読み込まれている場合、これは True を返します。

Function AddinIsLoaded(AddinName As String) As Boolean
On Error Resume Next
AddinIsLoaded = Len(Workbooks(AddIns(AddinName).Name).Name) > 0
End Function

例えば：

Sub Test
Debug.Print AddinIsLoaded("Solver add-in")
End Sub
于 2013-04-11T14:54:01.163 に答える