No.004

アプリケーションを起動し動作させる 《Shell・SendKeys・Wait》

2003/2007/2010/2013

Excelからメモ帳を起動するなど、Office製品でない他ののアプリケーションを起動するためのVBAの記述をご紹介します。

プログラムを実行させるには、Shell関数を利用します。

メモ帳を起動する場合は
　　Shell "notepad.exe", 1
電卓を起動する場合は
　　Shell "calc.exe", 1
ペイントを起動する場合は
　　Shell "mspaint.exe", 1
ちなみにPowerPointを起動する場合は
　　Shell "POWERPNT.EXE", 1
という具合に、最初の引数にアプリケーションの起動ファイルを指定します。

メモ帳のなどの起動ファイルはシステム フォルダーにあり、Windowsの標準的な環境設定によりパスが通っていますので、ファイル名のみの指定で可能です。
パスが通っていないアプリケーションの場合は、起動ファイル前のパスも記述します。

最後の数値は開いてくる状態の設定で、「1」は開いたウィンドウがアクティブになります。詳細は下記の＜ヘルプmemo＞でご確認ください。

Office以外のアプリケーションでは、例えばメモ帳ではVBAは通用しません。
そんなときでもキーボードのキー操作を送れる SendKeysステートメント を利用すれば、メモ帳に簡単な操作をさせることができます。

例えば、Excelで何かをコピーしておき、メモ帳を起動し、ショートカット キー「Ctrl」＋「V」で貼り付け、「Alt」＋「F4」で名前を付けて保存するといった動作が可能です。
次のサンプルを参考にしてください。

Sub Sample()

　　Shell "notepad.exe", 1　　　'メモ帳起動

　　SendKeys "^V"　　　'「Ctrl」＋「V」
　　SendKeys "%{F4}"　　　'「Alt」＋「F4」
　　SendKeys "{Enter}"　　　'メッセージ確定
　　Application.Wait Now + TimeValue("0:00:03")　　　'3秒待つ
　　SendKeys "d:¥memo.txt"　　　'保存先入力
　　SendKeys "{Enter}"　　　'ダイアログ ボックス確定"

End Sub

SendKeysステートメントについては、ヘルプ「InputBox のテキスト ボックス入力時に日本語入力をオンにする」のページ下の方にある［ヘルプmemo］をご覧ください。

ここでポイントは、Waitメソッドで少し待つことです。
Waitメソッドは、引数に時間を指定し、その時間まで動作を停止します。
上記の引数「Now + TimeValue("0:00:03")」は、現時間の3秒後です。
今回、Waitメソッドの記述がない場合、次に進みません。ダイアログ ボックスが表示されて、確実にアクティブになるまで数秒待ってあげるというイメージです。
SendKeysで止まってしまったときは、その前にWaitしてあげてください。

またShell関数は、アプリケーションの起動に成功した場合、OSが内部的に使用するタスクIDという数値を任意に返しますが、うまく開けない場合は必ず「0」を返します。
そこで変数を利用して、次のような対応ができます。

　　Dim Kido_note As Long
　　Kido_note = Shell("notepad.exe", 1)
　　If Kido_note = 0 Then
　　　　MsgBox "メモ帳起動に失敗しました"
　　End If