Batch Files from Excel
Batch Files from Excel
(OP)
Does anyone know if it is possible to run a batch file from an excel macro? I've tried using
Application.Run "C:\temp\MyBatchFile.bat"
But that didnt work
anyone got any ideas
Application.Run "C:\temp\MyBatchFile.bat"
But that didnt work
anyone got any ideas





RE: Batch Files from Excel
Shell "C:\temp\MyBatchFile.bat",vbNormalFocus
instead of vbNormalFocus you can use different from list
Thanks,
Vlado
RE: Batch Files from Excel
Thanks alot
Dave
RE: Batch Files from Excel
Option Explicit
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
Private Const SYNCHRONIZE = &H100000
Private Const INFINITE = -1&
Sub Main()
Dim sPrgm As String
sPrgm = "C:\Winnt\notepad.exe"
RunUntilFinished sPrgm
MsgBox "App is finished!"
End
End Sub
Public Sub RunUntilFinished(ByVal sApp As String)
Dim lProcID As Long
Dim hProc As Long
' Start the App
On Error GoTo ErrHndlr
lProcID = Shell(sApp, vbNormalFocus)
On Error GoTo 0
DoEvents
' Wait for the App
hProc = OpenProcess(SYNCHRONIZE, 0, lProcID)
If hProc <> 0 Then
WaitForSingleObject hProc, INFINITE
CloseHandle hProc
End If
Exit Sub
ErrHndlr:
MsgBox "Error starting App:" & vbCrLf & _
"App: " & sApp & vbCrLf & _
"Err Desc: " & Err.Description
Err.Clear
End Sub
DimensionalSolutions@Core.com
While I welcome e-mail messages, please post all thread activity in these forums for the benefit of all members.
RE: Batch Files from Excel
cheers
Dave