組み込まれているかどうかにかかわらず単一のアドインを表します。
注釈
AddIn オブジェクトは、 AddIns コレクションのメンバーです。 AddIns コレクションには、組み込まれているかどうかにかかわらず、Microsoft Excel で使用できるすべてのアドインが含まれます。 これらは、[アドイン] ダイアログ ボックスで表示されるアドインの一覧に対応しています。
例
1 つのアドイン オブジェクトを返すには、アドイン (インデックス) を使用します。ここで、インデックスはアドイン タイトルまたはインデックス番号です。 次の例では、分析ツール アドインをインストールします。
AddIns("analysis toolpak").Installed = True
[ アドイン] ダイアログ ボックスに表示されるアドインのタイトルと、アドインのファイル名を混同しないでください。 アドイン タイトルを直接入力する場合は、[ アドイン] ダイアログ ボックスに表示されるタイトルを正確に入力する必要がありますが、英字の大文字と小文字は区別しなくてもかまいません。
インデックス番号は、[アドイン] ダイアログ ボックスの [利用可能なアドイン] ボックス内のアドインの位置を表します。 次の例では、使用可能なアドインの指定されたプロパティを含むリストを作成します。
With Worksheets("sheet1")
.Rows(1).Font.Bold = True
.Range("a1:d1").Value = _
Array("Name", "Full Name", "Title", "Installed")
For i = 1 To AddIns.Count
.Cells(i + 1, 1) = AddIns(i).Name
.Cells(i + 1, 2) = AddIns(i).FullName
.Cells(i + 1, 3) = AddIns(i).Title
.Cells(i + 1, 4) = AddIns(i).Installed
Next
.Range("a1").CurrentRegion.Columns.AutoFit
End With
Add メソッドは、使用可能なアドインの一覧にアドインを追加しますが、アドインはインストールしません。 アドインをインストールするには、アドインの Installed プロパティを True に設定します。
使用可能なアドインの一覧に表示されないアドインをインストールするには、最初に Add メソッドを使用してから、 Installed プロパティを設定する必要があります。 これは、次の例に示すように、1 つの手順で実行できます ( Add メソッドでは、アドインのタイトルではなくアドインの名前を使用します)。
AddIns.Add("generic.xll").Installed = True
読み込まれたアドインに対応するブックへの参照を返すには、 Workbooks (index) を使用します。ここで、 index はアドイン ファイル名 (タイトルではない) です。 読み込まれたアドインは通常 Workbooks コレクションに表示されないため、ファイル名を使用する必要があります。 次の使用例は、変数 wb に Myaddin.xla 用のブックを設定します。
Set wb = Workbooks("myaddin.xla")
次の使用例は、変数 wb に分析ツール アドインのブックへの参照を設定します。
Set wb = Workbooks(AddIns("analysis toolpak").Name)
Installed プロパティが True を返しても、アドイン内の関数の呼び出しが失敗した場合、アドインは実際には読み込まれていない可能性があります。 その理由は、 Addin オブジェクトはアドインの存在とインストール状態を表しますが、アドイン ブックの実際の内容を表すものではないからです。インストールされているアドインが確実に読み込まれるようにするには、アドイン ブックを開く必要があります。
次の例では、"マイ アドイン" という名前のアドインのブックが ブック コレクションに まだ存在しない場合に、そのアドインのブックを開きます。
On Error Resume Next ' turn off error checking
Set wbMyAddin = Workbooks(AddIns("My Addin").Name)
lastError = Err
On Error Goto 0 ' restore error checking
If lastError <> 0 Then
' the add-in workbook isn't currently open. Manually open it.
Set wbMyAddin = Workbooks.Open(AddIns("My Addin").FullName)
End If
プロパティ
関連項目
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。