別ブックのThisWorkbookモジュールのメソッドを呼ぶ(Excel)

VBA覚書

別ブックのThisWorkbookモジュールのメソッドを呼ぶ

前回

akashi-keirin.hatenablog.com

別ブックのシートモジュールのメソッドを呼ぶ実験をした。

では、別ブックのThisWorkbookモジュールのメソッドはどうなのだろうか。

コードの追加

まず、ち～んｗ１号.xlsmのThisWorkbookモジュールに次のコードを追加する。

リスト１　ち～んｗ１号.xlsmのThisWorkbookモジュール
Public Sub callHelloWorld()
  Call Sheet1.helloWorld
End Sub

ご覧のとおり、Sheet1モジュールのhelloWorldメソッドを呼ぶだけのメソッド。

んで、前回のリスト３（＝ち～んｗ２号.xlsmの標準モジュールのコード）にちょこっとコードを追加する。

リスト２　ち～んｗ２号.xlsmの標準モジュール
Public Sub testCallSheetObjectProcedure()
  Dim anotherBook As Workbook
' ち～んｗ１号.xlsmを開いて変数にぶち込む'
  Set anotherBook =  _
        Workbooks.Open(ThisWorkbook.Path & "\ち～んｗ１号.xlsm")
  Call anotherBook.callHelloWorld  '……(*)'
' 「ち～んｗ１」シートを変数にぶち込む'
  Dim targetSheet As Object
  Set targetSheet = anotherBook.Worksheets("ち～んｗ１")
' helloWorldメソッドを呼ぶ'
  Call targetSheet.helloWorld
' ち～んｗ１号.xlsmを閉じる'
  Call anotherBook.Close(SaveChanges:=False)
' オブジェクト変数の解放'
  Set anotherBook = Nothing
  Set targetSheet = Nothing
End Sub

追加したのは(*)の１行だけ。

とりあえず、Workbook型のオブジェクト変数に「.」で無理矢理callHelloWorldをつないでみた。Intellisenseが効かないのでちょっと不安。

実行してみる

リスト２を実行してみると、

f:id:akashi_keirin:20190223201151j:plain

イミディエイト・ウインドウにこのように出力された。

つまり、Workbook型オブジェクトのメソッドであるかのように呼び出すことができた。（コーディング時に入力補完が効かないのが痛いけど。）

おわりに

つまり、Sheetオブジェクトのモジュールに書いたメソッドは、その所属するブックのThisWorkbookモジュールに呼び出し窓口的なメソッドを置けば、気軽に呼び出せる、ということになる。