VBA IDE Add-In

質問

今日は、Visual Basic 6 で、VBA IDE の Add-In を書いてます。新しいプロジェクトで「アドイン」を選んで、Connect.dsr を Visual Basic for Application IDE にして、Excel の VBA IDE の Code Window の右クリックに自分の WithEvents Office.CommandBarButton を追加しました。
これの Click イベントハンドラで、その場所の VBA が属している Workbook（ThisWorkbook）への参照を得るにはどうしたらよいのでしょうか？

回答No.3

kakusuke · ベストアンサー

実際に作ってみました。

その結果、
構造上、
Ｅｘｃｅｌと
ＶＢＥはそれぞれで独立した
アプリケーションだということが判明しました。

つまり
ＶＢＥ上に表示されている、
Ｗｏｒｋｂｏｏｋは、
コードペインオブジェクト
だということです。

というわけで、
別プロセスの
アドイン（ＥＸＣＥＬ用）を
作成したほうが
早いと思いますよ。

お礼

ありがとうございます。たいへん参考になりました。
言われてみれば、この Add-In は（機能は VBE に付くのだけれども）Excel の VBE 専用になるので、それが美しいような気がしてきました。今のままだと Word VBA にも入っちゃってるし…。
次の日曜日に VBE Add-In はやめて Excel COM Add-In に挑戦してみます。

回答No.2

kakusuke

逆に質問なんですけど、
ＶＢＡアドインって
Workbook単位でインスタンスを作成しないんですか？
１Workbookに対して１アドインだったと思いますが。

補足

たぶん、１つの VBE に１つです。初めて VBE が現れるときに生成されます。本体の Excel が終了するときに破壊されます。同じ Excel で新しいブックを作成しても、Add-In は生成されません。Excel をもう１つ起動して VBE を起動すると、新しい Add-In が生成されます。

CommandBarButton.Click ハンドラにブレークポイントを置いて、ここで OnConnection の時に保存しておいた Application As VBE をデバッグのローカルウィンドウで見てみると、.SelectedVBComponent.Name が "ThisWorkbook" なのですが、これは As VBComponent で、
　Dim a As Excel.Workbook
　Set a = .SelectedVBComponent
は失敗します。

回答No.1

kakusuke

あまり詳しくありませんが…

Add-In側で、
WorkBookオブジェクトを
WithEvents で宣言し、

IDE側で
set a = ThisWorkbook
ってすればいいんじゃないんでしょうか？

そういうことじゃない？

補足

> IDE側で
> set a = ThisWorkbook
>
VBA から代入するのではなく、Add-In 側から探したいです。複数のブックを開いてるときに「どのブックでクリックされたのか」を知りたいです。例えば、そのブックのプロパティを取り出したいのです。