Fremdprogramm aus Excel starten

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Norman,
danke für Deinen Tipp!
Ich komme allerdings nicht ganz klar mit dem Programm.
zur Info:
mein Fremdprogramm steht unter:
C:\EUFIBU\efibu.exe
Das Programm von Michael Schwimmer mit meiner Adaptierung (lediglich wo steht - original war:) sieht so aus:
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

Sub StartenUndWarten(efibu As String)         'original war: 

Sub StartenUndWarten(Programmname As String)
'

Sub StartenUndWarten()
Dim hwndShell As Long, hwndProzess As Long
Dim lngLäuft As Long
 hwndShell = Shell("c:\eufibu\efibu.exe", 1)   'original war: hwndShell = Shell("c:\eufibu\efibu.exe", 1)
 hwndProzess = OpenProcess(PROCESS_QUERY_INFORMATION, _
    0&, hwndShell)
  Do
    GetExitCodeProcess hwndProzess, lngLäuft
     'ev.
    Sleep 100
Loop While lngLäuft = STILL_ACTIVE
End Sub


Weisst Du vielleicht was ich falsch mache ?

Danke!

mfg Gerhard

Sub StartenUndWarten() Dim hwndShell As Long, hwndProzess As Long Dim lngLäuft As Long Programmname = "c:\eufibu\efibu.exe" hwndShell = Shell(Programmname, 1) hwndProzess = OpenProcess(PROCESS_QUERY_INFORMATION, _ 0&, hwndShell) Do GetExitCodeProcess hwndProzess, lngLäuft 'ev. Sleep 100 Loop While lngLäuft = STILL_ACTIVE End Sub

Sub oder Function nicht definiert und Do wird markiert Ich komme einfach nicht dahinter ! Vielleicht hast Du ja noch einen Tipp! Jedenfalls jetzt schon herzlichen Dank für Deine Mühe! mfg Gerhard

Hallo Norman und Reinhard,
Zunächst wünsche ich einen schönen Sonntag und danke für Eure Mühe!
Ich war leider gestern nicht mehr vor meinem Computer, da ich weg mußte.
Der Grund warum ich das BH-Programm von Excel aus bedienen möchte ist folgender:
die Auswertungen wie zB Saldenliste OP-Liste usw. sind im BH-Programm nicht so wie ich mir das vorstelle. Daher habe ich mir in Excel Makros geschrieben die alles so darstellen wie ich das gerne hätte. Dabei lege ich nir dann in der Arbeitsmappe für jeden Monat eine eigene Tabelle an. Dies hat den Vorteil, dass ich dann noch weitere Auswertungen wie Monatsvergleiche, Diagramme usw automatisch erstellen kann.
Und zu diesem Zweck hätte ich gerne alles von Excelaus gesteuert bzw. automatisiert.
Falls es noch Tipps gibt würde ich mich natürlich freuen!
Ich glaube übrigens auch, das dies mit sendkeys in diesem Fall wahrscheinlich - wenn überhaupt - nur sehr umständlich möglich wäre.
Herzlichen Dank nochmals für die Hilfe!
mfg Gerhard

Beliebteste Forumthreads (12 Monate)

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread