galaxy01
12-10-07, 08:08
Hallo zusammen,
ich möchter gerne in Excel ein Macro schreiben um in einer MainFrame Application eine Abfrage zustarten.
Was läuft schon:
Ich rufe die Application auf und starte meine DB2 Abfrage, so weit so gut,
nun möchte ich aber, das Excel solange warte bis die Abfrage komplett durchgelaufen ist und die Command Zeile wieder verfügbar ist.
der bisherige Code:
Set PSObject = CreateObject("PCOMM.autECLSession")
PSObject.SetConnectionByName ("B")
PSObject.autECLOIA.WaitForAppAvailable
PSObject.autECLOIA.WaitForInputReady
PSObject.autECLPS.SendKeys "'" & REPORT_TITLE & "'", 8, 23
PSObject.autECLPS.SendKeys "'" & PRODUCT_TYPE & "'", 9, 23
PSObject.autECLPS.SendKeys "'" & VEHICLE_LINE & "'", 10, 23
PSObject.autECLPS.SendKeys "'" & EFF_POINTS & "'", 11, 23
PSObject.autECLPS.SendKeys "'" & EFF_POINTS_CONT & "'", 12, 23
PSObject.autECLPS.SendKeys "'" & PROG_ID & "'", 13, 23
PSObject.autECLPS.SendKeys SAVE_FILE, 14, 23
Hat jemand eine Idee wie ich hier weiter kommen kann?
Gruß
Markus
ich möchter gerne in Excel ein Macro schreiben um in einer MainFrame Application eine Abfrage zustarten.
Was läuft schon:
Ich rufe die Application auf und starte meine DB2 Abfrage, so weit so gut,
nun möchte ich aber, das Excel solange warte bis die Abfrage komplett durchgelaufen ist und die Command Zeile wieder verfügbar ist.
der bisherige Code:
Set PSObject = CreateObject("PCOMM.autECLSession")
PSObject.SetConnectionByName ("B")
PSObject.autECLOIA.WaitForAppAvailable
PSObject.autECLOIA.WaitForInputReady
PSObject.autECLPS.SendKeys "'" & REPORT_TITLE & "'", 8, 23
PSObject.autECLPS.SendKeys "'" & PRODUCT_TYPE & "'", 9, 23
PSObject.autECLPS.SendKeys "'" & VEHICLE_LINE & "'", 10, 23
PSObject.autECLPS.SendKeys "'" & EFF_POINTS & "'", 11, 23
PSObject.autECLPS.SendKeys "'" & EFF_POINTS_CONT & "'", 12, 23
PSObject.autECLPS.SendKeys "'" & PROG_ID & "'", 13, 23
PSObject.autECLPS.SendKeys SAVE_FILE, 14, 23
Hat jemand eine Idee wie ich hier weiter kommen kann?
Gruß
Markus