エクセルから、他のアプリケーションを呼び出すVBA

エクセルのシート上に配置されたボタンから、「Ｗｏｒｄ文章」 や 「メモ帳」 を開きたいのですが、どのようなコードを書いたらよいでしょうか？
宜しくお願いします。

No.4 ベストアンサー 回答者： nishi6 回答日時： 2001/06/26 22:28

My Documentsにあるんですね。

空白が曲者です。

Call Shell("winword.exe" & " " & """C:\My Documents\Aaaa\Bbbb\Cccc.doc""", vbNormalFocus)
として下さい。

この回答への補足

お返事が遅くなりましてすみません！

ＯＫです。ちょっとしたことなんですねー！あらためてＶＢＡって、むづかしいなぁ！と思いました。

ありがとうございました。

補足日時：2001/07/05 20:23

No.3 回答者： nishi6 回答日時： 2001/06/26 14:43

Call Shell("winword.exe" & " " & "C:\My Documents\Aaaa\Bbbb\Cccc.doc", vbNormalFocus)

です。Cの前の\が不要です。
誤解が２箇所とは思わなかったです。

この回答への補足

すみません！やはりダメです！

補足日時：2001/06/26 18:37

No.2 回答者： nishi6 回答日時： 2001/06/26 00:23

Call Shell("winword.exe" & "& \C:\My Documents\Aaaa\Bbbb\Cccc.doc", vbNormalFocus)

ではなくて、
Call Shell("winword.exe" & " " & "\C:\My Documents\Aaaa\Bbbb\Cccc.doc", vbNormalFocus)
です。

"winword.exe" と "\C:\My Documents\Aaaa\Bbbb\Cccc.doc" の間に半角スペースを１つ入れるということです。
書き方としては、"winword.exe" & " " & "フルパスファイル名" でしたかね。

この回答への補足

すみません！やはりダメです！

アプリケーション（Word）は開くのですが、
ファイル名またはパスが正しくありません。
次の操作を行って下さい。
＊パス名が正しく入力されていることを確認して下さい。
＊[ファイル]メニューの[開く]をクリックして検索して下さい。

とでます。

ｔｘｔファイルもアプリケーションは開きますが、ファイルが開きません。

ファイル名、パスは何度も確認したんですがダメです。パス取得のＶＢＡがあったので、それでコピーして貼り付けてもやはりダメでした。エクスプローラーからはちゃんと該当するファイルは、開きます。

どうしてでしょうか？
宜しくお願いします。

補足日時：2001/06/26 14:23

No.1 回答者： nishi6 回答日時： 2001/06/25 21:50

こんな感じですか。

Private Sub CommandButton1_Click()
Call Shell("winword.exe", vbNormalFocus) 'Word
Call Shell("notepad.exe", vbNormalFocus) 'メモ帖
End Sub

特定のファイルを呼びたい時は、ソフトの後ろにフルパスのファイル名を書きます。
"winword.exe" & " " & フルパスファイル名,

この回答への補足

またもやnishi6さん！どうもです！
いつも、ありがとうございます。

エラーになってしまいました！

これではないんですよね！？　
↓
Call Shell("winword.exe" & "& \C:\My Documents\Aaaa\Bbbb\Cccc.doc", vbNormalFocus) 'Word

補足日時：2001/06/25 23:18