エクセルVBAでエクセル以外の他のアプリケーションを開く方法

Excel・VBA活用術

photo credit: CJS*64 "Man with a camera" Calle Del Arco ! via photopin (license)

2016.11.302017.02.05

photo credit: CJS*64 “Man with a camera” Calle Del Arco ! via photopin (license)

みなさん、こんにちは！
タカハシ(@ntakahashi0505)です。

エクセルVBAでファイルやフォルダを操作する方法をお伝えしています。

前回ですが、エクセルファイルを開いたときに、自動で他の複数のブックを開く方法についてお伝えしました。

エクセルVBAでブックを開いたときに他のワークブックも一緒に自動で開く

エクセルで特定のファイルを開いたら、一緒に使用する他のファイルも自動で開くと便利です。今回はAuto_Openというイベントプロシージャを使ってブック起動時に他のブックも自動で開くVBAプログラムです。

しかし、開く対象は「ブック」つまりエクセルファイルなんですね。WordやPDFなど、他のアプリケーションのファイルも自動で開きたい場合はどうしたらよいでしょうか…？

ということで、今回はエクセルVBAでエクセル以外の他のアプリケーションのファイルを開く方法についてお伝えします。

よろしくお願いいたします！

前回のおさらいと今回のお題
1. PDFやWordファイルをWorkbooks.Openで開いてみる
エクセルファイルもそれ以外のアプリケーションのファイルを開く
まとめ
連載目次：エクセルVBAでファイルやフォルダを操作する方法

前回のおさらいと今回のお題

まず、前回作成したプログラムのおさらいです。

Sub Auto_Open()

Workbooks.Open "C:\Users\Noriaki\Dropbox\40_ブログ\vba-file-dir\開くファイル\エクセル-1.xlsx"
Workbooks.Open "C:\Users\Noriaki\Dropbox\40_ブログ\vba-file-dir\開くファイル\エクセル-2.xlsx"

End Sub

イベントプロシージャAuto_Openにより、二つのブックつまりエクセルファイルを開くプログラムでした。シンプルです。

PDFやWordファイルをWorkbooks.Openで開いてみる

このプログラムですが、自動で開く対象としてPDFファイルや、Wordファイルも追加して実行してみましょう。

以下一文を追加します。

Workbooks.Open "C:\Users\Noriaki\Dropbox\40_ブログ\vba-file-dir\開くファイル\PDF.pdf"
Workbooks.Open "C:\Users\Noriaki\Dropbox\40_ブログ\vba-file-dir\開くファイル\ワード.docx"

実行してみましょう。PDFに関してはどうやら開いたような気がしますが…

中身ぐちゃぐちゃ…。そしてWordファイルに関しては

エラーが出ましたね。実行時エラー「ファイル形式が正しくありません。」が出ました。

当然ですが、Workbooks.OpenではPDFファイルや、Wordファイルは開けないのです。

Wordファイルだけなら、Word.Applicationオブジェクトを使って開くという方法もありますが、ファイル形式ごとに別のやり方…というのは面倒ですよね。

他のやり方はないものでしょうか。

エクセルファイルもそれ以外のアプリケーションのファイルを開く

エクセルVBAでエクセルファイルもエクセル以外の他のアプリケーションのファイルを開く方法についてお伝えします。

ShellオブジェクトのShellExecuteメソッドを使う方法があります。

ShellオブジェクトはWindowsのウィンドウなどを操作することができるオブジェクトで、今回紹介するファイルを開く以外にも様々な操作が可能です。必要に応じて調べてみてください。

Shellオブジェクトの生成

まず、Shell.Applicationオブジェクトの生成ですが

CreateObject(“Shell.Application”)

と書きます。これでShellオブジェクトが生成されます。

ShellExecuteでファイルを開く

任意のファイルを既定のアプリケーションで開きたい場合は

Shellオブジェクト.ShellExecute 開くファイルのフルパス

とします。ShellExecuteメソッドは指定したファイルに対して、オプション指定することで様々な動作を実行することができるのですが、指定しなければ既定の動作である「open」つまりファイルを開く動作が実行されます。

もちろん、エクセルファイルも既定のアプリケーションであるエクセルで開くことができますよ。

エクセル以外のファイルも開くプログラム

ではプログラムにしてみましょう。

Sub Auto_Open()

With CreateObject("Shell.Application")
    .ShellExecute "C:\Users\Noriaki\Dropbox\40_ブログ\vba-file-dir\開くファイル\エクセル-1.xlsx"
    .ShellExecute "C:\Users\Noriaki\Dropbox\40_ブログ\vba-file-dir\開くファイル\エクセル-2.xlsx"
    .ShellExecute "C:\Users\Noriaki\Dropbox\40_ブログ\vba-file-dir\開くファイル\PDF.pdf"
    .ShellExecute "C:\Users\Noriaki\Dropbox\40_ブログ\vba-file-dir\開くファイル\ワード.docx"
End With

End Sub

Withを使えばShellオブジェクトのために変数宣言やセットしなくて済みますね。

では、実行してみましょう。