Excel VBA質問箱 IV

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

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


57920 / 76732 ←次へ | 前へ→

【23546】VBAから.wsfを実行
質問  Qwsf E-MAIL  - 05/3/27(日) 15:43 -

引用なし
パスワード
   はじめまして,wsfファイルという存在を知り,初めて利用してみました。
さっそく,質問があります。
abc.wsfの実行方法についてです。ダブルクリックするときちんと実行されます。このabc.wsfをエクセルのVBAから実行する方法を今模索中です。いろいろネットで調べて試したのですが実行されませんでした。その例を紹介します。おかしな点があれば遠慮なくご指南ください。
OSは,windowsXP,windowsME,windows98SEを使っています。
実行例その1:runwsf.xls内のモジュール1
////////////////////////////////////////////////
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


Sub Run_Wsf()
On Error GoTo errline
      
  ShellExecute 0, "open", "abc.wsf", "", "%WINDIR%\system32\wscript.exe", 1
  
    
errline:
Err = 0

End Sub

実行例その2:runwsf.xls内のモジュール2
////////////////////////
Sub Run_Wshell()
  Dim WSHShell
  Dim wsfPath As String
  
  wsfPath = ThisWorkbook.Path & "\abc.wsf"
    
  Set WSHShell = CreateObject("WScript.Shell")
  
  WSHShell.Run wsfPath
  MsgBox "abc.wsfを起動しました。"

End Sub

'一応”abc.wsfを起動しました。”というメッセージは表示されますが,何も実行されているようには見えません。

実行例その3:runwsf.xls内のモジュール3
///////////////////////
Sub Run_Shell()
  
   Shell "wscript.exe g:\temp\abc.wsf"
  
End Sub
/////////////////////////////////////
以上3つほど試してみましたが,きちんと実行されませんでした。
ぜひ,アドバイスをお待ちしております。
3 hits

【23546】VBAから.wsfを実行 Qwsf 05/3/27(日) 15:43 質問
【23556】Re:VBAから.wsfを実行 G-Luck 05/3/28(月) 10:48 発言
【23560】Re:VBAから.wsfを実行 Qwsf 05/3/28(月) 13:07 発言
【23561】Re:VBAから.wsfを実行 G-Luck 05/3/28(月) 13:13 発言
【23562】Re:VBAから.wsfを実行 Qwsf 05/3/28(月) 13:36 発言
【23563】Re:VBAから.wsfを実行 G-Luck 05/3/28(月) 13:48 発言
【23573】Re:VBAから.wsfを実行 ちゃっぴ 05/3/28(月) 23:25 発言
【23579】Re:VBAから.wsfを実行 Qwsf 05/3/29(火) 0:22 発言
【23580】Re:VBAから.wsfを実行 ちゃっぴ 05/3/29(火) 0:37 発言
【23585】Re:VBAから.wsfを実行 Qwsf 05/3/29(火) 10:16 お礼
【23581】Re:VBAから.wsfを実行 Qwsf 05/3/29(火) 0:38 お礼
【23582】Re:VBAから.wsfを実行 G-Luck 05/3/29(火) 8:42 発言
【23583】Re:VBAから.wsfを実行 IROC 05/3/29(火) 8:52 発言
【23587】Re:VBAから.wsfを実行 Qwsf 05/3/29(火) 10:25 発言
【23586】Re:VBAから.wsfを実行 Qwsf 05/3/29(火) 10:18 発言

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