Excel VBA質問箱 IV

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

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


7652 / 13644 ツリー ←次へ | 前へ→

【37725】筆まめの起動方法について Gori 06/5/16(火) 22:45 質問[未読]
【37733】Re:筆まめの起動方法について Kein 06/5/17(水) 12:41 発言[未読]
【37752】Re:筆まめの起動方法について Gori 06/5/17(水) 22:22 お礼[未読]

【37725】筆まめの起動方法について
質問  Gori  - 06/5/16(火) 22:45 -

引用なし
パスワード
   エクセルのVBAで「筆まめVer14」を起動したいのですが、Shell関数を使用しても全く反応しません。
どちらかご存知の方がいらっしゃいましたら教えてください。

Sub Test()
  Dim RetVal
  RetVal = Shell("C:\Program Files\Creoapp\Mamew14\Mamew14.exe", 1)
End Sub

「筆まめVer8」では、正常に起動したのですが...

【37733】Re:筆まめの起動方法について
発言  Kein  - 06/5/17(水) 12:41 -

引用なし
パスワード
   原因は分かりませんが、他のソフトを起動する方法はいくつかあります。
例えば Win32API の ShellExecute とか WshShell オブジェクト の
Runメソッドです。いちおうそれらも試してみて下さい。

【37752】Re:筆まめの起動方法について
お礼  Gori  - 06/5/17(水) 22:22 -

引用なし
パスワード
   ▼Kein さん:
>原因は分かりませんが、他のソフトを起動する方法はいくつかあります。
>例えば Win32API の ShellExecute とか WshShell オブジェクト の
>Runメソッドです。いちおうそれらも試してみて下さい。

Keinさん
早速のご教示ありがとうございました。
ShellExecute を試したところ、うまく起動することができました。

〔宣言節〕
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) _
As Long

〔モジュール〕
  Dim Ret As Long
  Dim PG As String
'
  PG = "C:\Program Files\Creoapp\Mamew14\Mamew14.exe"
'--> EXEプログラムの実行
  Ret = ShellExecute(w1, "Open", PG, "", "", SW_SHOWNORMAL)

以上です。
ほんとうにありがとうございました。

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