ThisWorkbookモジュールにインターフェースを実装することはできるのか

前回

akashi-keirin.hatenablog.com

ブックのThisWorkbookモジュールにメソッドを搭載したら、まるでブックのメソッドであるかのように呼び出すことができることを示した。

では、ThisWorkbookモジュールにインターフェースをImplementsしたら、各ブックに共通メソッドの搭載を強制させることができるのだろうか。

ちょっとやってみた。

インターフェース作り

クラスモジュールを挿入。

ChokiShowableというアホなオブジェクト名のインターフェースを作成。

で、次のようなコードを書いておく。

リスト１　クラスモジュール

Option Explicit

Public Sub showChoki()
End Sub

showChokiというメソッドを書いておく。

このインターフェースを実装したオブジェクトには、必ずshowChokiメソッドが搭載されていることになる。

ちょうど、マンガ『キン肉マン』に出てきた超人「カニベース」の着ぐるみのようなものだと思ってもらえばよい。カニベースの着ぐるみを着ると、チョキが出せるようになるのだ！

このChokiShowableインターフェースを、「ち～んｗ１号.xlsm」、「ち～んｗ２号.xlsm」それぞれに装着しておく。

プロジェクトエクスプローラーはこんな状態。

f:id:akashi_keirin:20190224102107j:plain

インターフェースの実装

今度は、「ち～んｗ１号.xlsm」のThisWorkbookモジュールにChokiShowableインターフェースを実装する。

リスト２　ち～んｗ１号.xlsmのThisWorkbookモジュール

Option Explicit

Implements ChokiShowable

Public Sub ChokiShowable_showChoki()
  Debug.Print "ち～んｗ１号は　チョキを　出した！"
End Sub

Public Sub callHelloWorld()
  Call Sheet1.helloWorld
End Sub

このように、showChokiメソッドを搭載。

これでおしまい。ちょっと独特の書き方ですな。

インターフェースメソッドを呼び出す

このshowChokiメソッドを呼び出すコードを「ち～んｗ２号.xlsm」の標準モジュールに書く。

リスト３　ち～んｗ１号.xlsmの標準モジュール

Public Sub testThisWorkbookInterface()
  Dim anotherBook As Workbook
  Set anotherBook = _
        Workbooks.Open(ThisWorkbook.Path & "\ち～んｗ１号.xlsm")
  Dim kaniBase As ChokiShowable  '……(1)'
  Set kaniBase = anotherBook
  Call kaniBase.showChoki  '……(2)'
  Call anotherBook.Close(SaveChanges:=False)
  Set anotherBook = Nothing
End Sub

「ち～んｗ１号.xlsm」を開いて変数にぶち込むところまでは前回と同じ。

今回は、こうして得たWorkbookオブジェクトを(1)の