アドインを取得する

example(VBA)

Sub Main() 
  Dim adObjs As Variant
  Dim p As Integer
  Set adObjs = Application.AddIns
  For p = 1 To adObjs.Count 
    Worksheets("Sheet1").Cells(p, 1) = adObjs(p).Name 
    Worksheets("Sheet1").Cells(p, 2) = adObjs(p).Title 
    Worksheets("Sheet1").Cells(p, 3) = adObjs(p).Installed 
  Next 
End Sub

アドインを組み込む

example(VBA)

Sub Main()
    Dim addInItem As AddIn
    Set addInItem = Application.AddIns.Add(Filename:="C:\Book1.xlam", copyfile:=False)
    addInItem.Installed = True
End Sub
AddIns.Addメゾットの引数

名称

説明

名称

Filename

説明

アドインのファイルパスを指定します。(必須)

名称

CopyFile

説明

アドインファイルが取り外し可能な状態にあるときに True を指定すると、アドイン用のフォルダにコピーします。

プログラムからアドインをインストールするには、AddInsコレクションにアドインオブジェクトを読み込み、そのアドインを有効にするために、InstalledプロパティをTrueにします。