インターフェース周りのち～んｗ珍現象
前回
のやり方は、別プロジェクト間でインターフェースを共有しようとしたのがそもそも間違いだったのかも知れん、と思い直して、やり方を変えてみた。
コチラを参考に、インターフェースを含んだブックをアドインにして、参照設定で共有するやり方に改める。
準備１ アドインにする
インターフェースIChokiShowable（インターフェース名らしく、先頭に「I」を付けました。すんません。）を搭載したブックを作り、ChokiShowableAddin.xlamという名前で保存しておく。
このように、「名前を付けて保存」の「ファイルの種類」欄で「Excelアドイン（*.xlam）」を選んだら、勝手に保存先のフォルダが指定されるので、ファイル名だけ指定したらヨロシ。
次に、テキトーにExcelブックを開いて、「ファイル」→「オプション」→「アドイン」の順にたどっていく。
すると、一番下に、「管理」というやつがあるので、
ドロップダウンリストを「Excel アドイン」にして［設定］ボタンをクリック。すると、
こんなやつが出てくるので、「Chokishowableaddin」を選んで［OK］をクリックする。
プロジェクト エクスプローラーは、
こんな状態。
準備２ 参照設定する
次に、参照設定をする。
プロジェクト エクスプローラー上で、「VBAProject(ChokiShowableAddin.xlam)」のところをクリックして、プロパティ ウインドウの「オブジェクト名」のところを「ChokiShowable」にする。（別に何でもいいけど。）すると、プロジェクト エクスプローラーが、
こんなふうになる。
この状態にしておいて、VBEで「ツール」→「参照設定」へと進む。すると、
リストに「ChokiShowable」があるので、チェックして［OK］をクリック。
準備３ インターフェース実装ブックの準備
これまで同様、「ち～んｗ１号.xlsm」を使う。「ち～んｗ１号.xlsm」のThisWorkbookモジュールに次のコードを書く。
リスト１ ち～んｗ１号.xlsmのThisWorkbookモジュール
Option Explicit Implements IChokiShowable Public Sub IChokiShowable_showChoki() Debug.Print "ち～んｗ１号は チョキを 出した！" End Sub
これだけ。
準備４ インターフェース型オブジェクトを返すメソッド
次に、IChokiShowable型のオブジェクトを返すメソッドを作る。
アドインファイル「ChokiShowableAddin.xlam」の標準モジュールに次のコードを書く。
リスト２ ChokiShowableAddin.xlamの標準モジュール
Option Explicit
Public Function getChokiShowableObject( _
ByVal targetBook As Workbook) As IChokiShowable
Dim ret As IChokiShowable
Set ret = targetBook
Set getChokiShowableObject = ret
End Function
Workbook型オブジェクトを受け取って、IChokiShowable型にして返す、というメソッド。
これで、準備はおしまい。
あとは、これまで同様「ち～んｗ２号.xlsm」から呼び出すことを試みる。
ち～んｗ２号.xlsmから呼び出す
次のコードで呼び出しを試みる。
リスト３ ち～んｗ２号.xlsmの標準モジュール
Public Sub testThisWorkbookInterface()
Dim anotherBook As Workbook
Set anotherBook = _
Workbooks.Open(ThisWorkbook.Path & "\ち～んｗ１号.xlsm")
Dim kaniBase As IChokiShowable
Set kaniBase = getChokiShowableObject(anotherBook) '……(1)'
Call kaniBase.showChoki
Set kaniBase = Nothing '……(2)'
Call anotherBook.Close(SaveChanges:=False) '……(3)'
Set anotherBook = Nothing
End Sub
変えたのは(1)のところ。
アドインのgetChokiShowableObjectを用いて、変数kaniBaseにWorkbookオブジェクトをIChokiShowable型オブジェクトとしてぶち込んでいる。
実行結果
リスト３を実行すると、
ぐえっ！ エラー！
［デバッグ］をクリックすると、
ぬな？！ またお前か！
しかしながら、ここで特に何もせずにコードの実行を継続すると、
無事に意図どおりの結果が得られた。
よかったなあ、カニベースくん!!!!!!!! ぼくはもう胸がいっぱいだよ。
おわりに
しっかし、なんで一旦エラーが出るのかわからんわい。
ちなみに、リスト３の(2)、
Set kaniBase = Nothing
を実行せずに、(3)の
Call anotherBook.Close(SaveChanges:=False)
を実行すると、Excelが派手にバグりますｗ
興味のある方はどうぞ。
追記
もしかして、「ち～んｗ１号.xlsm」を開いてanotherBookにぶち込んだ段階では、ThisWorkbookモジュールの
Implements IChokiShowable
（正確にはThisWorkbookモジュールのコード自体）が読み込まれていないのではないか、と思い、リスト３を次のようにしてみた。
リスト３改 ち～んｗ２号.xlsmの標準モジュール
Public Sub testThisWorkbookInterface()
Dim anotherBook As Workbook
Set anotherBook = _
Workbooks.Open(ThisWorkbook.Path & "\ち～んｗ１号.xlsm")
Call anotherBook.callHelloWorld '……(*)'
Dim kaniBase As IChokiShowable
Set kaniBase = getChokiShowableObject(anotherBook) '……(4)'
Call kaniBase.showChoki
Set kaniBase = Nothing
Call anotherBook.Close(SaveChanges:=False)
Set anotherBook = Nothing
End Sub
(*)のところに１行追加。インターフェースとは関係のない「ち～んｗ１号.xlsm」のThisWorkbookモジュールのメソッドを呼び出してみる。これで、確実に(4)の
Set kaniBase = getChokiShowableObject(anotherBook)
実行前に「ち～んｗ１号.xlsm」のThisWorkbookモジュールを読み込んでくれるはずだ。
実行してみると、
今度はエラーが出ずに一発で完走した。
うーーーん……。何だかなーーー。
