画面から別ブック起動についてです。

質問

いつもお世話になっております。

　VBAで作成した画面（エクセルシートに貼り付いています）で別ブックを開いてマクロ処理を実行させたいのですが、うまくいきません。

（状態）
　・画面から呼び出した別ブックは開きますが、マクロ処理が走ってくれません。
　・別ブックを直接開くとマクロ処理は走ってくれます。
（画面のソース）
Dim objAppXL As Excel.Application
Set objAppXL = CreateObject("Excel.Application")
objAppXL.Caption = ToukeiDay
objAppXL.Visible = True
objAppXL.Workbooks.Open Filename:="別ブックパス"

　というような状況です。よろしくお願いします。

回答No.1

tosi0000 · ベストアンサー

こんにちわ。

この場合には、CreateObject("Excel.Application") ですので、ブックを開いたと言うよりも、新たにexcelのプログラムを立ち上げていると思います。

タスクマネージャーで見てもexcel.exeが２本動いていると思います。
また、ウィンドウで見た時にも、新規のブック名は追加されていないと思います。

Workbooks.Open Filename:="別ブックパス" の記述だけであれば、ブックの立ち上げですので、マクロは動くと思いますが、何か特別な理由があって、別の方法を探していらっしゃると推測します。

したがって、excelアプリケーションプログラムを２本立ち上げて、その間でのやり取りをする必要があります。

不可能ではないと思いますが、excel立ち上げ時にマクロが自動的に動くようにするのが一番簡単と思いますので、VBAでThisWorkbooKオブジェクトに対して、以下の記述をしてはどうでしょうか？

Private Sub Workbook_Open()
Call 実行マクロ名
End Sub

ファイル読み込み時に、自動的にマクロが動きます。
根本的な解決方法ではないのでだめかしら？

お礼

ご回答、ありがとうございます。
Workbooks.Open Filename:="別ブックパス" の記述だけでマクロは動くんですね。＞通常・・・。
でも、動かないのでtosi0000さんが教えてくれたThisWorkbookでCallをかけました。

　うまくいきました。ありがとうございました。