英語で読む

次の方法で共有


AddIn オブジェクト (Excel)

組み込まれているかどうかにかかわらず単一のアドインを表します。

注釈

AddIn オブジェクトは、 AddIns コレクションのメンバーです。 AddIns コレクションには、組み込まれているかどうかにかかわらず、Microsoft Excel で使用できるすべてのアドインが含まれます。 これらは、[アドイン] ダイアログ ボックスで表示されるアドインの一覧に対応しています。

1 つの AddIn オブジェクトを返すには、AddIns (index) を使用します。index はアドインのタイトルまたはインデックス番号です。 次の例では、Analysis Toolpak アドインをインストールします。

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

ブック (インデックス) を使用します。index はアドイン ファイル名 (タイトルではありません) で、読み込まれたアドインに対応するブックへの参照を返します。 読み込まれたアドインは ブック コレクションに 通常表示されないため、ファイル名を使用する必要があります。 次の使用例は、変数 wb に Myaddin.xla 用のブックを設定します。

Set wb = Workbooks("myaddin.xla")

次の使用例は、変数 wb に分析ツール アドインのブックへの参照を設定します。

Set wb = Workbooks(AddIns("analysis toolpak").Name)

Installed プロパティがTrue を返しても、アドイン内の関数の呼び出しがまだ失敗する場合、アドインが実際に読み込まれていない可能性があります。 これは、 Addin オブジェクトはアドインの存在とインストール状態を表しますが、アドイン ブックの実際の内容を表していないためです。インストールされているアドインが確実に読み込まれるよう、アドイン ブックを開く必要があります。

次の例では、アドインが Workbooks コレクションにまだ存在しない場合は、"My 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 のサポートおよびフィードバックを参照してください。