Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


5962 / 13646 ツリー ←次へ | 前へ→

【47948】マクロを使い、ボタンでソフトなどファイルをひらくには? たくや 07/3/27(火) 19:35 質問[未読]
【47950】Re:マクロを使い、ボタンでソフトなどファ... ichinose 07/3/27(火) 19:50 発言[未読]
【47952】Re:マクロを使い、ボタンでソフトなどファ... たくや 07/3/27(火) 20:30 発言[未読]
【47957】Re:マクロを使い、ボタンでソフトなどファ... ichinose 07/3/28(水) 8:46 発言[未読]
【47980】Re:マクロを使い、ボタンでソフトなどファ... たくや 07/3/28(水) 21:52 お礼[未読]

【47948】マクロを使い、ボタンでソフトなどファイ...
質問  たくや  - 07/3/27(火) 19:35 -

引用なし
パスワード
   マクロで、電卓などのソフトを起動させるには
どうのようにすればよいでしょうか?

デスクトップにあるファイルはひらけないのでしょうか??

教えてください。

【47950】Re:マクロを使い、ボタンでソフトなどフ...
発言  ichinose  - 07/3/27(火) 19:50 -

引用なし
パスワード
   ▼たくや さん:
こんばんは。

>マクロで、電卓などのソフトを起動させるには
>どうのようにすればよいでしょうか?

Sub test()
  With CreateObject("WScript.Shell")
    .Run "calc.exe"
    End With
End Sub
これですか?

【47952】Re:マクロを使い、ボタンでソフトなどフ...
発言  たくや  - 07/3/27(火) 20:30 -

引用なし
パスワード
   ▼ichinose さん:
回答ありがとうございます。

できましたら説明文をつけていただけると助かります。

あと、ウインドウズメディアプレーヤーを
きどうさせるにはどうすればよいでしょうか?

>▼たくや さん:
>こんばんは。
>
>>マクロで、電卓などのソフトを起動させるには
>>どうのようにすればよいでしょうか?
>
>Sub test()
>  With CreateObject("WScript.Shell")
>    .Run "calc.exe"
>    End With
>End Sub
>これですか?

【47957】Re:マクロを使い、ボタンでソフトなどフ...
発言  ichinose  - 07/3/28(水) 8:46 -

引用なし
パスワード
   おはようございます。

>
>できましたら説明文をつけていただけると助かります。
Wshについては、

www.roy.hi-ho.ne.jp/mutaguchi/wsh/object/wshshell.htm

のRunメソッドを参照してください。
また、VBAのShell関数でも出来ます。


>>
>>Sub test()
>>  With CreateObject("WScript.Shell")
'Createobject関数もHelpで確認してください
>>    .Run "calc.exe"
>>    End With
>>End Sub


Sub test()
  With CreateObject("wscript.shell")
    .Run "wmplayer.exe"
'バージョンによって名前が違うなら、調べて正しい名前を指定する
'検索パスに登録されていなければ、フルパスで指定する
    End With
End Sub

【47980】Re:マクロを使い、ボタンでソフトなどフ...
お礼  たくや  - 07/3/28(水) 21:52 -

引用なし
パスワード
   ▼ichinose さん:
ありがとうございました。
本当に助かります。


>おはようございます。
>
>>
>>できましたら説明文をつけていただけると助かります。
>Wshについては、
>
>www.roy.hi-ho.ne.jp/mutaguchi/wsh/object/wshshell.htm
>
>のRunメソッドを参照してください。
>また、VBAのShell関数でも出来ます。
>
>
>>>
>>>Sub test()
>>>  With CreateObject("WScript.Shell")
>'Createobject関数もHelpで確認してください
>>>    .Run "calc.exe"
>>>    End With
>>>End Sub
>
>
>Sub test()
>  With CreateObject("wscript.shell")
>    .Run "wmplayer.exe"
>'バージョンによって名前が違うなら、調べて正しい名前を指定する
>'検索パスに登録されていなければ、フルパスで指定する
>    End With
>End Sub

5962 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free