－ちょっと使えるネタを紹介－
Excel VBAで、別アプリケーションを起動する方法について、ご紹介します。アプリケーションの起動には、「Wscript.Shell」の「Run」を使います。具体的なVBAコードを使って、解説します。
この記事では、別アプリケーションを起動する方法について、ご紹介しました。
別アプリケーションを起動するには、「Wscript.Shell」の「Run」を使うと便利です。
注意点として、起動するファイル名にスペースがある場合は、空白「""""」で囲む必要があります。
起動する際は、「非同期」と「同期」があって、状況に応じて使い分けることができるので、便利です。
では、別アプリケーションを起動する方法について、解説していきます。
この記事で紹介すること
目次から見たい項目へ移動すると便利ですよ。
目次
VBAで、別アプリケーションを起動する方法について、ご紹介します。
別アプリケーションを起動したい場合は、「Wscript.Shell」の「Run」を使うと便利です。
では、解説していきます。
「Wscript.Shell」の「Run」は、次のように入力して使用します。
「CreateObject("Wscript.Shell").Run ファイル名」
というような感じです。
実行すると、「拡張子に紐づいているアプリケーション」で、ファイルを開くことができます。
事前に、拡張子の紐づけを変更しておけば、使うアプリケーションを変更できます。
では、「Wscript.Shell」の「Run」を使って、新規のメモ帳を開いてみます。
Sub TEST1()
With CreateObject("Wscript.Shell")
'新規のメモ帳を起動
.Run "notepad.exe"
End With
End Sub
では、実行してみます。
新規のメモ帳を開くことができました。
次は、「Wscript.Shell」の「Run」を使って、保存されているメモ帳を開いてみます。
「Run」のあとに、メモ帳のフルパスを入力するとできます。
Sub TEST2()
With CreateObject("Wscript.Shell")
'メモ帳を起動
.Run "C:\TEST\TEST.txt"
End With
End Sub
では、実行してみます。
「.txt」はメモ帳に紐づいているので、メモ帳で開かれました。
次は、「Wscript.Shell」の「Run」を使って、PDFファイルを起動してみます。
Sub TEST3()
With CreateObject("Wscript.Shell")
'PDFを起動
.Run "C:\TEST\TEST.pdf"
End With
End Sub
では、実行してみます。
「.pdf」は、「Adobe Acrobat Reader」に紐づいているので、「Adobe Acrobat Reader」で開かれました。
次は、「Wscript.Shell」の「Run」を使って、CSVファイルを起動してみます。
Sub TEST4()
With CreateObject("Wscript.Shell")
'CSVファイルを起動
.Run "C:\TEST\TEST.csv"
End With
End Sub
では、実行します。
CSVファイルを起動することができました。
「.csv」は、Excelに紐づいているので、Excelで表示されました。
「Wscript.Shell」の「Run」を使って、Excelを起動することもできます。
Sub TEST5()
With CreateObject("Wscript.Shell")
'Excelファイルを起動
.Run "C:\TEST\TEST.xlsx"
End With
End Sub
では、実行します。
Excelを起動することができました。
まぁ、起動はできますけど、Excelを開くなら、「Workbooks.Open」がいいですね。
「Wscript.Shell」の「Run」を使う際の注意で、ファイル名にスペースがあると、エラーとなります。
ファイル名にスペースがある場合は、文字列を空白「""""」で囲みましょう。
ファイル名にスペース「" "」がある場合で、メモ帳を起動してみます。
Sub TEST6()
With CreateObject("Wscript.Shell")
'メモ帳を起動
.Run "C:\TEST\TEST .txt" '←エラーとなる
End With
End Sub
次のスペースがあるメモ帳を用意しました。
では、実行してみます。
ファイル名にスペース「" "」があるので、エラーとなりました。
ファイル名に「" "」がある場合は、空白「""""」で囲む必要があります。
Sub TEST7()
With CreateObject("Wscript.Shell")
'ファイル名にスペースがある場合
.Run """" & "C:\TEST\TEST .txt" & """"
End With
End Sub
先ほどと同じスペースのあるメモ帳で試してみます。
では、実行します。
ファイル名にスペースがあっても、空白「""""」で囲むことで、メモ帳を起動することができました。
「Wscript.Shell」の「Run」では、アプリケーションを指定して、開くことができます。
起動するアプリケーションを指定するには、次のように入力します。
「CreateObject("Wscript.Shell").Run "起動するアプリケーションのフルパス 起動するファイルのフルパス"」
というような感じです。
最初に、「起動するアプリケーションのフルパス」を入力して、「半角スペース」を入力したあとに、「起動するファイルのフルパス」を入力するのがポイントです。
「.csv」の拡張子には、Excelで開くように紐づけています。
ファイルの形も、「Excel」になっていますね。
「Wscript.Shell」の「Run」を使って、「.csv」ファイルを開いてみます。
Sub TEST8()
With CreateObject("Wscript.Shell")
'.csvをエクセルで起動
.Run "C:\TEST\TEST.csv"
End With
End Sub
実行します。
「.csv」ファイルがExcelで開かれました。
「.csv」には「Excel」が紐づいています。
この「.csv」ファイルを「メモ帳」で起動してみます。
Sub TEST9()
With CreateObject("Wscript.Shell")
'CSVをメモ帳で開く
.Run "C:\Windows\System32\notepad.exe C:\TEST\TEST.csv"
'↓でもできます。
'.Run "notepad.exe C:\TEST\TEST.csv"
End With
End Sub
では、実行してみます。
「.csv」ファイルを、メモ帳で起動することができました。
起動するアプリケーションを指定して、ファイルを起動したい場合に、使えます。
「Wscript.Shell」の「Run」では、「非同期」と「同期」が選択できます。
今までの説明は、すべて「非同期」です。
「非同期」は、起動するVBAコードを実行して、その完了にかかわらず、次のVBAコードへ進みます。
「同期」の場合は、アプリケーションを起動するVBAコードを実行すると、アプリケーションが起動して閉じられると、次のVBAコードに進みます。
まとめると、
という感じです。
では、ちょっとやってみます。
まず、非同期で複数のアプリケーションを、起動してみます。
Sub TEST10()
With CreateObject("Wscript.Shell")
.Run "C:\TEST\TEST1.pdf" '非同期で開く
.Run "C:\TEST\TEST2.pdf" '非同期で開く
.Run "C:\TEST\TEST3.pdf" '非同期で開く
End With
Debug.Print "完了"
End Sub
複数のPDFファイルを、用意しました。
では、実行してみます。
結果は、複数のPDFファイルが起動されて、最後のVBAコードも実行されています。
これが、「非同期」で「Wscript.Shell」の「Run」を実行した場合です。
「Wscript.Shell」の「Run」を同期して、実行する場合は、3番目の引数に「True」を入力します。
「CreateObject("Wscript.Shell").Run ファイル名, , True」
という感じです。
複数のPDFファイルを、「同期」した場合で起動してみます。
Sub TEST11()
With CreateObject("Wscript.Shell")
.Run "C:\TEST\TEST1.pdf", , True '同期して開く
.Run "C:\TEST\TEST2.pdf", , True '同期して開く
.Run "C:\TEST\TEST3.pdf", , True '同期して開く
End With
Debug.Print "完了"
End Sub
先ほどと同じPDFファイルを使って、試してみます。
では、実行します。
まず、「TEST1.pdf」が開きます。
「TEST1.pdf」を閉じると、「TEST2.pdf」が開きます。
「TEST2.pdf」を閉じると、「TEST3.pdf」が開きます。
「TEST3.pdf」を閉じると、最後のVBAコードが実行されます。
こんな感じで、「同期」にすると、「Run」のコードが完了したあとに、次のVBAコードに進みます。
この記事では、別アプリケーションを起動する方法について、ご紹介しました。
別アプリケーションを起動するには、「Wscript.Shell」の「Run」を使うと便利です。
注意点として、起動するファイル名にスペースがある場合は、空白「""""」で囲むというのがありました。
起動する際は、「非同期」と「同期」がありますので、状況に応じて、使い分けるといいです。
参考になればと思います。最後までご覧くださいまして、ありがとうございました。
関連する記事から探す
カテゴリから見たい項目を探すと便利ですよ。
↓キーワードを入力する