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 回答日時： 2004/03/09 02:06

実際に作ってみました。

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

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

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

この回答へのお礼

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

お礼日時：2004/03/09 09:16

No.2 回答者： kakusuke 回答日時： 2004/03/07 23:52

逆に質問なんですけど、

ＶＢＡアドインって
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
は失敗します。

補足日時：2004/03/08 07:14

No.1 回答者： kakusuke 回答日時： 2004/03/07 03:47

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

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

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

そういうことじゃない？

この回答への補足

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

補足日時：2004/03/07 20:29