IT備忘録

ExcelのVBAを使用して、バッチファイルを実行する。

----
Sub SCP()
   
　Dim SCP As Double
　Dim File_Name As String

　' 実行するファイルのフルパスをセルC2に指定しておきます
  File_Name = Range("B2").Value

  SCP = Shell(File_Name, vbNormalFocus)

End Sub
----

Shell関数の第二引数は
vbHide 0 フォーカスを持ち、非表示にされるウィンドウ。
vbNormalFocus 1 フォーカスを持ち、元のサイズと位置に復元されるウィンドウ
vbMinimizedFocus 2 フォーカスを持ち、最小化表示されるウィンドウ
vbMaximizedFocus 3 フォーカスを持ち、最大化表示されるウィンドウ
vbNormalNoFocus 4 最後にウィンドウを閉じたときのサイズと位置に復元されるフォーカスを持たないウィンドウ。現在アクティブなウィンドウは、アクティブのままです。
vbMinimizedNoFocus 6 最小化表示されるフォーカスを持たないウィンドウ。現在アクティブなウィンドウは、アクティブのままです。

←クリック一票