マクロでメッセージボックスの操作(クリック)

Question

マクロで別Bookのマクロを実行したいです。
Book1→Book2→Book3...
その際に各Bookのマクロは全部同じです。
マクロは3種類あり、全てを順に実行していきます。
また全てのマクロにメッセージボックスが表示されています。
(完了後の確認ボタンやマクロ途中での選択ボタン有り)
現在ここで躓いておりまして、マクロでメッセージボックスのボタンをクリックすることは可能でしょうか？
お分かりになる方、ご教授のほどよろしくお願い致します。

Answer 1

細かい単位での強引な解決はできますが、現実的には難しいでしょう。

他のマクロの処理を以下のように分割し、「実行したい処理本体」を呼び出すのがあるべき姿です。

• 実行したい処理本体
• MsgBoxでユーザーから情報を受け取って「実行したい処理本体」に渡して実行する、「実行したい処理本体」を実行し最後に情報を見せる処理

---

一応。MsgBoxの操作の強引な解決方法の案です。

VBAのほとんどの処理は、「ある命令が完了したら次の命令へ進む」という同期処理です。
そのため、MsgBoxが表示された時点で、Excel上のVBAは入力待ちとなり動作が止まります。
入力待ちの間は、Excel.Application.OnTimeメソッドなどによる予約実行も行われません。

ただし、動けないのはExcelであって、「他のプログラムからMsgBoxを操作する」というアプローチであれば操作は可能です。
また、VBAのShell関数を使うと、任意の外部プログラムを非同期で実行出来ます。

これらを踏まえたサンプルが以下になります。Excel上の「マクロ」（Alt+F8）から実行してください。

'Excel上の「マクロ」から実行すること（VBAのエディタから実行しないこと）
Public Sub SendKeysToMsgBoxSample()
    
    Const PsCmd = _
            "powershell.exe -Sta -Command " & _
                "<# SendKeysを使うためのライブラリ読み込み #>" & _
                "Add-Type -AssemblyName System.Windows.Forms;" & _
                "<# ちょっと待機（要調整） #>" & _
                "Start-Sleep -Milliseconds 1000;" & _
                "<# Enterキー送信（VBAのSendKeysと同じ構文 #>" & _
                "[Windows.Forms.SendKeys]::SendWait('{ENTER}');"
    
    Call VBA.Shell(PsCmd, vbHide) 'PowerShell で非同期実行
    Call VBA.AppActivate(Excel.Application.Caption)
    
    Debug.Print MsgBox("Sample")
    
End Sub

上記の例ではWindows 7 以降プリインストールのPowerShellというプログラムを使ってMsgBoxを操作しています。

以下の処理を実行しています。

<# SendKeysを使うためのライブラリ読み込み #>
Add-Type -AssemblyName System.Windows.Forms;
<# ちょっと待機（要調整） #>
Start-Sleep -Milliseconds 1000;
<# Enterキー送信（VBAのSendKeysと同じ構文 #>
[Windows.Forms.SendKeys]::SendWait('{ENTER}');

この方法を使った場合の問題は、外部のマクロの処理時間がどの程度かかるのかわからない点です。

外部のマクロを実行する前に上記のサンプルを実行する必要がありますが、どの程度待てば良いのかがわからないため、ちゃんと処理できる保証がありません。

---

181016追記:汎用化

'やっていることは`SendKeysToMsgBoxSample`とほぼ同じ
Public Sub SendKeysToMsgBoxSample2()
    'Enterキー送信、1000ミリ秒（1秒）待機、Excelを対象
    AsyncSendKeys "{ENTER}", 1000, Excel.Application.Caption
    Call MsgBox("Sample")

End Sub


'非同期SendKeys
    'keyStroke:送るキー文字列
    'delayMilliSec:待機ミリ秒
    'appCaption:対象のウィンドウのタイトル
Public Sub AsyncSendKeys( _
        keyStroke As String, _
        delayMilliSec As Long, _
        appCaption As String)
    
    'デバッグ時は -NoExit スイッチを付けるとPowerShell側の状態を確認しやすい
    '"powershell.exe -Sta -NoExit -Command " & ~
    Const PsCmd = _
            "powershell.exe -Sta -Command """ & _
                "<# SendKeysなどを使うためのライブラリ読み込み #>" & _
                "Add-Type -AssemblyName Microsoft.VisualBasic;" & _
                "<# ちょっと待機（要調整） #>" & _
                "Start-Sleep -Milliseconds $WaitMilliSec;" & _
                "[Microsoft.VisualBasic.Interaction]::AppActivate('$Caption');" & _
                "<# キー送信（VBAのSendKeysと同じ構文 #>" & _
                "(New-Object -TypeName Microsoft.VisualBasic.Devices.Keyboard).SendKeys('$KeyStroke', $true);"""
    
    Dim execCmd As String
    execCmd = VBA.Replace(VBA.Replace(VBA.Replace(PsCmd, _
        "$WaitMilliSec", delayMilliSec), _
        "$Caption", appCaption), _
        "$KeyStroke", keyStroke)
    
    'PowerShell で非同期実行
        'デバッグ時はvbHideを他のものにして、PowerShellのウィンドウが見えるようにする
    Call VBA.Shell(execCmd, vbHide)
End Sub

<# SendKeysを使うためのライブラリ読み込み #>
Add-Type -AssemblyName Microsoft.VisualBasic;
<# ちょっと待機（要調整） #>
Start-Sleep -Milliseconds $WaitSec;
[Microsoft.VisualBasic.Interaction]::AppActivate('$Caption');
<# キー送信（VBAのSendKeysと同じ構文 #>
(New-Object -TypeName Microsoft.VisualBasic.Devices.Keyboard).SendKeys('$KeyStroke', $true);

Comments

[TanakaHiroaki]

これはすごいです。
イベントプロシージャを使って同じようなことにトライしたことが
ありますが、「ある命令が完了したら次の命令へ進む」という同期
処理であるため、VBAで実現できない処理だと思っていました。

[4n5]

遅くなりすいません。
助言いただきありがとうございます。
こちらのマクロ単体ですとすぐ完了しましたが、外部マクロのメッセージボックスが表示されてからは結構時間がかかるみたいで完了に至る目途が立たずでした。。。
powershellの設定などはございますか？
またVBAの参照設定も何か必要でしょうか？
質問ばかりで申し訳ありませんがご教授のほど宜しくお願い致します。

[imihito]

改めて前提として、
あるべき姿から外れた方法のため、外乱に弱く非常に不安定な処理です。
そのため、これを使わずに済むのがベストです。

上手くいかない可能性として
- 待ち時間が足りないのでMsgBoxが出る前にPowerShellが終了している
- Excelからフォーカスが外れて、他のウィンドウにキーが送信されている
などがあります。

条件を指定しやすくした`AsyncSendKeys`プロシージャを追記しましたので、そちらで試してみてください。
また、プロシージャ内部のコメントを参考にPowerShellの実行状況も確認してみてください。

[4n5]

ありがとうございます！
たぶん私のやり方が間違っていると思うのですが、なぜかPowerShellの実行状況は確認できずでしたが、MsgBoxのOKを送信できました。
しかし、この後に出てくる選択ボタンですが、2つ目のマクロの処理途中で出てくるのでBookによって処理するデータ量が違うためタイミングが違います。
これだと待機時間を指定して・・・というよりMsgBoxが出てきたタイミングで、とした方が現実的かと思うのですが可能でしょうか？
質問ばかりで申し訳ありませんが宜しくお願い致します。

[TanakaHiroaki]

VBAからPowerShell非同期実行できるだけで十分ではないでしょうか。非同期実行を開始した時点で予測制御しているので、タイミングコントロールできないと理解しました。

[imihito]

> 処理するデータ量が違うためタイミングが違います
その可能性が予測されたため、回答の最初に「現実的には難しいでしょう」としています。

PowerShell側の処理を作り込めば不可能では無いでしょうが…

[4n5]

＞回答の最初に「現実的には難しいでしょう」としています。
そうでした。。。

VBAだけでなくPowerShellを使用するという初心者の私には発想出来なかったことを教えていただけただけでもかなり大きい収穫となりました。
何とか別の策を考えるなどして試行錯誤してみます。
ありがとうございました！

[TanakaHiroaki]

素人の直感で恐縮ですが、
　imihitoさまのPowerShell非同期実行
　iruyasさまのVBAによるSendKeys
の合わせ技で実現できそうな気がします。

[ExcelVBAer]

感覚が伝わってなさそう。。。
技術的に不可能ではないけど、
仕事で採用されるレベルではないかと。

自分なら、外から実行した時に何か引数を渡して、
メッセージボックスを出さない分岐をしますね。
あえてイバラの道を進みたくないので。

[TanakaHiroaki]

いつもありがとうございます。
レベルは違えどVBAを愛するものとして、ExcelVBerさまの書き込みを心強く思っています。
最近はやりのRPAは、正にこのレベル（不安定なアプリケーション自動操作）であっても、VBAを凌駕しているよう誤解されているのではないでしょうか。（話題が横道にそれ、すみません。）

[ExcelVBAer]

コメントありがとうございます!
なんか嬉しいものですね!

RPAについてはもマクロの記録に近いものから、
プログラミングレベルのものまであるように感じています。

IT化が進むのはいいと思うのですが、
使う側がシステマチックな考え方でないと、
結局はスパゲッティなコードが増えるだけでしょうねぇ...

1行でも多く、よいコードを残せるよう
頑張っていきたいものです。

Answer 2

メッセージボックスを表示させる目的はなんでしょうか。
そして、それをマクロでクリックする目的はなんでしょうか。

(完了後の確認ボタンやマクロ途中での選択ボタン有り)

から推測するに、
ユーザーに確認や選択させるためのメッセージを表示させて、
一定時間経過しても、ユーザーからの操作がなかったら既定の処理を実行する、
ということかと思いますが、どうですか。

だとするなら、下記のリンク先の方法が使えます。

Office TANAKA - Excel VBA Tips[自動的に閉じるMsgBox]

あるいは、
「処理実行中」というメッセージを表示させて、バックグランドで処理を実行して、処理が終了したら、メッセージを閉じる、
というのか目的なら、ユーザーフォームをモードレスで表示させて、処理終了後に閉じるれはいいでしょう。

Comments

[4n5]

回答ありがとうございます。
しかしながらmattuwan様にも返答いたしましたが、別Bookのマクロのコードはこちらでイジらずやらなければいけないため、難しいかもしれません。
もし別のマクロを修正できる場合は参考にさせていただきます。

Answer 3

別ブックから実行したときはフラグを立てて条件分岐してはいかがでしょうか？

Book1のマクロ＞＞

Sub test1()
    Application.Run "Book2!test2", True
End Sub

Book2のマクロ＞＞

Sub Main()
    test2 False
End Sub

Sub test2(ByVal flg As Variant)
    If flg = False Then
        MsgBox "???"
    End If
End Sub

Comments

[4n5]

回答ありがとうございます。
しかしながら別Bookのマクロのコードはこちらでイジらずやらなければいけないため、難しいかもしれません。。。

Answer 4

キーボード操作のみで実行可能なものなら、
SendKeys ステートメントを使って操作できる可能性はあります。
実際の所は、やってみないと分かりませんが...

Comments

[4n5]

sendkeysの手がありましたか。
思い通りに動いてくれればいいのですが。
助言いただきありがとうございます。