Accessフォームからの外部アプリ起動方法

質問

お世話になります。
掲題の件、Accessのフォームからボタンをクリックし、
外部アプリケーション（たとえばExcel等）を起動する
ことは可能でしょうか？

起動可能であればどのようなVBA記述をしたら良いか
教えて頂けたら幸いです。

[作成環境]
起動ボタン名：　起動
Excelのパス ：　
C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE

以上、宜しくお願い致します。

回答No.3

Wendy02 · ベストアンサー

#2 さんで示された、Access クラブに書いてある方法で、オートメーション・オブジェクトを持つアプリケーションは、書いてあるように登録できます。ただし、トラブルがあると常駐してしまいますので、終わったら、必ず、きちんと閉じてください。

＞(たとえばExcel等）
ということで、オートメーション・オブジェクトを持たないもの(Office以外）でしたら、以下のように、標準モジュールに書いて、ボタンに登録してみてください。

ファイル名は、確実に設定してください。

Function OpenApp()
Dim rtn As Long
　rtn = Shell("C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE", vbNormalFocus)
End Function

私は、このコードに関して、エラートラップを入れるべきかは分かりません。不安でしたら、Accessクラブのコードを参考に、エラートラップを入れてください。通常、「ファイル名を指定して実行」で開けるようなら、問題はないはずです。

お礼

ありがとうございます。
おかげさまで解決できました。
色々と参考になる情報をありがとうございました。

回答No.2

AloneAgain

こんにちは。

参考URLをご覧ください。
▽簡単にExcelを起動させる方法

参考URL：

http://www.accessclub.jp/actips/tips_101.htm

お礼

ありがとうございます。
おかげさまで解決できました。
まさかコマンドボタンウィザードに本件の
作成方法があるとは思いませんでした。
情報ありがとうございました。

回答No.1

taranko

マクロを１つ作り、アクションをアプリケーションの
実行にし、下のコマンドラインの中にパス
C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXEを入れて実行するとエクセルが起動
すると思います。
このマクロをボタンのクリック時に動くように
設定するとできると思います。
いかがでしょうか。

お礼

ありがとうございます。
おかげさまで解決できました。
マクロでも作成できるのですね。
色々な方法がありどの方法が一番良いか迷い
ますが勉強をして幅を広げて行きたいと思います。
ありがとうございました。