アプリの起動とポップアップ

　エクセルで事務を楽にするプログラマーmoimoiです。
　アプリの自動化をしている際にどうしてもキーボードでも自動化できない目視が必要な操作がある場合があります。
　その際、処理をいったん止めてポップアップを出して操作をお願いできたら便利ではないでしょうか？

今回は、そんな方法をご紹介します。

【アプリのパスの取得】

１．ウィンドウズのすべてのアプリより自動化したいアプリを検索

２ー１．右クリック→アプリの場所を開く→ファイルパスのコピー

２－２．右クリック→パスのコピー

２－３．ショートカットアイコンを右クリック→プロパティ→リンク先

【アプリの起動】

アプリ名 = "ファイルパス"

CreateObject("Shell.Application").ShellExecute アプリ名

※ファイルパスと記載しているところに先ほどコピーしたパスを

【ポップアップ】

lpText = "○○したら、「はい」のボタンをクリックして下さい。"
lpCaption = "確認"
If MessageBox(0, lpText, lpCaption, MB_YesNo Or MB_DefaultButton2 Or MB_TOPMOST) = vbYes Then

「はい」ボタンをクリックした際にしたいことを記載

Else
「いいえ」ボタンを押した際にしたいことを記載

Exit Sub

End if

※以前記載していた、記載も一緒に使用してご利用ください。