AccessからExcelのファイルを起動する

Accessのフォーム上にボタンを作成して
クリックすると特定のExcelのファイルが起動する
ようにしたいのですが、簡単な手はありませんか？

No.1 ベストアンサー 回答者： maruru01 回答日時： 2003/02/12 18:02

こんにちは。

maruru01です。

Shell関数を使って、

Shell "C:\Program Files\Microsoft Office\Office\EXCEL.EXE ファイル名"

とします。
ちなみに、Excelの実行ファイルのパスは環境によって違ってきます。

あと、Excelの実行ファイルのパスがわからなくても、ファイルに関連付けられたアプリケーションで開くには、API関数のShellExecute関数を使用します。
API関数については、WEB上で検索して下さい。
このサイトの過去の質問でもヒットするかも知れません。

No.4 回答者： ryuu001 回答日時： 2003/02/12 21:28

１番簡単なのは　ハイパーリンク　です。

コマンドボタンの　”プロパティ”の　”書式”に　
”ハイパーリンクアドレス”　が　あります。
そこに、Excelファイルの　パスとファイル名を設定するだけです。

No.3 回答者： driverII 回答日時： 2003/02/12 20:24

いろいろな方法がありますが、こんな方法もあります。

マクロを作成します。
アプリケーションの実行を選択し、コマンドラインに[EXCEL.EXE "開きたいファイル名"]と指定します。

あとはフォーム上にボタンを作成し、クリック時にそのマクロが実行されるように指定します。

開きたいファイル名を可変にしたい場合は、VBAでコーディングすればいいでしょう。

No.2 回答者： noname#102878 回答日時： 2003/02/12 18:35

初期のWindows95をそのまま使ってるわけじゃないから大丈夫でしょう。

ってことでWSHｗを使いましょう。

-----------------------
Dim wshShell As Object
Set wshShell = CreateObject("Wscript.Shell")
wshShell.Run "C:\hoge\hoge.xls", 1, False
Set wshShell = Nothing
-----------------------

wshShell.Run の
第1引数は「開きたいファイルのフルパス」
第2引数は「ウィンドウの状態」です。
1または省略時は通常サイズ、2は最小化、3は最大化です。
第3引数は「開かれたアプリの終了を待つかどうか」です。
Trueを指定すると、Excelを閉じるまでAccess側の「Set wshShell = Nothing」が実行されません。
通常はFalseでいいと思います。

これならShell関数のようにExcelのインストール場所に左右されないし、API関数のような難しさもないですよね？