ich würde gerne aus einem Arbeitsblatt ein
anderes Programm aufrufen.
Geht das? Wenn ja, wie?
LG
michi
Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, _
ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Declare
Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, _
ByVal dwMilliseconds As Long) As Long
Sub Win32WaitTilFinished(ProgEXE As String)
Dim ProcessID As Long
Dim hProcess As Long
Dim RetVal As Long
ProcessID = Shell(ProgEXE, vbMaximizedFocus)
hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, False, ProcessID)
Do
DoEvents
RetVal = WaitForSingleObject(hProcess, 50)
Loop Until RetVal <> WAIT_TIMEOUT
End Sub
Sub Start()
Call Win32WaitTilFinished("ntbackup.exe")
End Sub
Sub ext_Prog_oeffnen()
Status = Shell("C:\Programme\Password_Security\PasSec.exe", 1)
End Sub