連携 VB/VBAからShell関数を使い.bat/.vbs/.jsを実行する

VB&VBA
FROG ふろっぐ
 
  • オプション

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][連携 VB/VBAからShell関数を使い.bat/.vbs/.jsを実行する]
Option Explicit


'**************************************************
'VB/VBAからShell関数を使い.bat/.vbs/.jsを実行する
'**************************************************

Sub Shellbat()
'**************************************************
'VB/VBAからShell関数を使い.batを実行する
'**************************************************
'注意@〜E必須
Dim strPath As String
Dim RetVal As Variant

'Shellにパスやアプリケーション名を渡す時には注意!
'-------------------------------------------------
'注意@パスや名前に空白が無い場合は問題ありません
strPath = "C:\Temp\ftptest.bat"
'注意Aこのような空白があるパスだとエラーになります
strPath = "C:\Documents and Settings\test\デスクトップ\test\ftptest.bat"
'注意Bこのように取得するパスでもエラーになります
strPath = ThisWorkbook.Path & "\ftptest.bat"
'注意C回避するには["""]〜["""]で囲みます
strPath = """C:\Documents and Settings\test\デスクトップ\test\ftptest.bat"""

'タスクID取得及び実行
RetVal = Shell(strPath, 6) 'vbMinimizedNoFocus

If RetVal <> 0 Then
    MsgBox strPath & vbCr & "実行されました。", vbInformation, "[タスクID]" & RetVal
Else
    MsgBox strPath & vbCr & "実行出来ません。", vbCritical, "[ERROR]"
End If

'注意D実行は確認出来ますが終了は確認出来ません。
'注意E終了を確認するにはAPI関数やWSHを使用する方法しかありません。
End Sub


Sub Shellvbs()
'**************************************************
'VB/VBAからShell関数を使い.vbsを実行する
'**************************************************
'上記注意@〜E必須
Dim strPath As String
Dim RetVal As Variant

strPath = "C:\Temp\test.vbs"

RetVal = Shell("WScript.exe """ & strPath & """")

If RetVal <> 0 Then
    MsgBox strPath & vbCr & "実行されました。", vbInformation, "[タスクID]" & RetVal
Else
    MsgBox strPath & vbCr & "実行出来ません。", vbCritical, "[ERROR]"
End If

End Sub


Sub Shelljs()
'**************************************************
'VB/VBAからShell関数を使い.jsを実行する
'**************************************************
'上記注意@〜E必須
Dim strPath As String
Dim RetVal As Variant

strPath = "C:\Temp\test.js"
RetVal = Shell("WScript.exe """ & strPath & """")

If RetVal <> 0 Then
    MsgBox strPath & vbCr & "実行されました。", vbInformation, "[タスクID]" & RetVal
Else
    MsgBox strPath & vbCr & "実行出来ません。", vbCritical, "[ERROR]"
End If

End Sub

'Shell関数(Help抜粋)
'----------------------------------------------------------------
'----------------------------------------------------------------
'プログラムを実行し実行が完了するとプログラムの[タスクID]の値を返す。
'プログラムの実行に問題が発生した場合は[0]を返します。

'構文
'----------------------------------------------------------------
'Shell(pathname[,windowstyle])
'指定項目       省略    内容
'pathname       省略不  実行プログラム名及び
'                       引数名(コマンドラインスイッチ・フォルダ・ドライブ)
'windowstyle    省略可  実行するプログラムのウィンドウの形式値指定(※1)
'                       windowstyleを省略するとフォーカスを持った状態で最小化実行

'(※1)引数[windowstyle]
'----------------------------------------------------------------
'定数               値  フォーカス  内容
'vbHide             0   Focus       非表示
'vbNormalFocus      1   Focus       元のサイズと位置に復元
'vbMinimizedFocus   2   Focus       最小化表示
'vbMaximizedFocus   3   Focus       最大化表示
'vbNormalNoFocus    4   NoFocus     復元
'vbMinimizedNoFocus 6   NoFocus     最小化表示

'注意
'----------------------------------------------------------------
'既定の設定では、Shell 関数はプログラムを非同期的に実行します。
'Shell関数を使用して実行を開始したプログラムが終了しなくても、
'Shell関数の次のステートメントは実行されます。つまり別行動です。

<関連>





Production Japan Import Application. Since 1998