Externes Programm aktivieren

Private Sub CommandButton1_Click() On Error GoTo zError Dim xxx As Long Application.SendKeys "{EINGABE}", True xxx = Shell("?.exe", vbMaximizedFocus) Application.SendKeys ("%F"), True Application.SendKeys ("%1"), True Exit Sub zError: MsgBox "Fehler!", , "Datei öffnen" End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Test_Fremdprogramm_Shell() Dim Doku As String Doku = "C:\EigeneDateien\privateDokumente\Testdoku.doc" On Error GoTo Errorhandler AppActivate "Microsoft Word" Documents.Open FileName:=Doku Exit Sub Errorhandler: Shell "C:\Programme\Microsoft Office\Office\winword.EXE " & Doku, 3 On Error GoTo 0 Exit Sub End Sub

Hallo Dennis,
mal als Ansatz wenn du das Programm vorher auch selbst über Shell gestartet hast.
Option Explicit
Private Declare Function GetWindowThreadProcessId Lib "user32" _
(ByVal hwnd As Long, lpdwProcessId As Long) As Long
Private Declare Function SetForegroundWindow Lib "user32" ( _
ByVal hwnd As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As String, ByVal _
lpWindowName As String) As Long
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As _
Long, ByVal wCmd As Long) As Long
Private Declare Function GetParent Lib "user32" (ByVal hwnd As _
Long) As Long
Private Const GW_HWNDNEXT As Long = 2&
Private Retval As Long
Private lngShellHandle As Long


Private Function ShellTohWnd(ByVal hhwPfad As String, Optional Mode As VbAppWinStyle)
Dim ProcHWND As Long, ProcHWN As Long
ProcHWND = Shell(hhwPfad, Mode)
Retval = FindWindow(vbNullString, vbNullString)
Do While Retval <> 0
If GetParent(Retval) = 0 Then
Call GetWindowThreadProcessId(Retval, ProcHWN)
If ProcHWN = ProcHWND Then
ShellTohWnd = Retval
Exit Do
End If
End If
Retval = GetWindow(Retval, GW_HWNDNEXT)
Loop
End Function

' Testaufruf
Sub FensterHandleI()
If SetForegroundWindow(lngShellHandle) = 0 Then
lngShellHandle = ShellTohWnd("c:\windows\notepad.exe", vbNormalFocus)
MsgBox lngShellHandle
End If
End Sub
' oder so.
' Aber wenn ein zweites Fenster damit GLEICHZEITIG gehandelt werden soll muss auch eine zweite
' Variable lngShellHandle angelegt werden, sonst geht es natürlich nicht.
Sub FensterHandleII()
If SetForegroundWindow(lngShellHandle) = 0 Then
lngShellHandle = ShellTohWnd("c:\windows\system32\freecell.exe", vbNormalFocus)
MsgBox lngShellHandle
End If
End Sub
Gruß Heiko
PS: Rückmeldung wäre nett !

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Externes Programm aktivieren

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread