Ich habe folgendes Problem. Ich möchte aus Excel heraus ein Programm mit einer Datei starten. Hierfür habe ich im Forumsarchiv folgenden Code gefunden. Der ist vielleicht etwas zu aufwendig, da ich das Beenden des Programms nicht überwachen muß aber erstmal läuft das Ding. Nur leider kann ich damit nur das Programm starten, nicht aber eine bestimmt Datei öffnen, wenn ich nämlich in den Pfad, wo das Programm stehen so nun die Datei (keine EXE-Datei) eintrage läuft das Programm nicht mehr. :(((
Was muß ich da abändern ?
Option Explicit
Private Const PROCESS_QUERY_INFORMATION = &H400
Private Const STILL_ACTIVE = &H103
Private Declare
Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As Long, lpExitCode As Long) As Long
Private Declare
Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare
Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Public
Sub StartenUndWarten(Programmname As String)
Dim hwndShell As Long, hwndProzess As Long
Dim lngLäuft As Long
? hwndShell = Shell("C:\......\Programm.exe", 1) ?
hwndProzess = OpenProcess(PROCESS_QUERY_INFORMATION, 0&, hwndShell)
Do
GetExitCodeProcess hwndProzess, lngLäuft
'ev.
Sleep 100
DoEvents
Loop While lngLäuft = STILL_ACTIVE
End Sub
TobiM4