-
Daten aus AS400 mittels Query in Makro einbinden
Hallo zusammen,
ich poste mal gerne ein Test Skript vorab:
OPTION EXPLICIT
autECLSession.SetConnectionByName(ThisSessionName)
REM This line calls the macro subroutine
subSub1_
sub subSub1_()
autECLSession.autECLOIA.WaitForAppAvailable
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "3860884221"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[enter]"
autECLSession.autECLPS.WaitForAttrib 12,1,"10","3c",3,10000
autECLSession.autECLPS.Wait 3120
autECLSession.autECLOIA.WaitForAppAvailable
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[pf12]"
autECLSession.autECLPS.WaitForAttrib 4,32,"10","3c",3,10000
autECLSession.autECLPS.Wait 1201
autECLSession.autECLOIA.WaitForAppAvailable
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[pf12]"
autECLSession.autECLPS.WaitForAttrib 21,6,"00","3c",3,10000
autECLSession.autECLPS.WaitForCursor 21,7,10000
autECLSession.autECLOIA.WaitForAppAvailable
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "1"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[enter]"
end sub
Die Fett gedruckte Passage soll durch eine Variable oder wie auch immer eine neue Kundennummer aus einer Excel Tabelle nehmen.
Mein Ziel ist es ein und den selben Befehl auf bestimmte Kd.Nr. auszuführen die aus einer Abfrage aus der AS400 in Excel resultieren.
Wie muss das Makro geschrieben sein, dass er sich die Kd.Nr. aus Excel rauszieht?
Danke für eine kurze Antwort.
sweety2401
-
Da hier VBA im Spiel ist kannst du ActiveX-Automation verwenden.
Per CreateObject("Excel.Application") kannst du eine Excel-Instanz starten, Workbooks öffnen u.v.m.
Genauso kannst du auch SQL (ggf. besser) native mit ADODB durchführen.
myCon = CreateObject("ADODB.Connection")
usw.usf.
Similar Threads
-
By petzi-mg in forum NEWSboard Windows
Antworten: 3
Letzter Beitrag: 22-05-15, 07:10
-
By Haunted in forum NEWSboard Java
Antworten: 5
Letzter Beitrag: 15-05-14, 02:41
-
By karin-vogelmann in forum NEWSboard Windows
Antworten: 0
Letzter Beitrag: 06-06-03, 15:26
-
By HJM in forum NEWSboard Windows
Antworten: 3
Letzter Beitrag: 25-02-02, 22:27
-
By qiwi2000 in forum IBM i Hauptforum
Antworten: 1
Letzter Beitrag: 30-11-01, 08:59
Berechtigungen
- Neue Themen erstellen: Nein
- Themen beantworten: Nein
- You may not post attachments
- You may not edit your posts
-
Foren-Regeln
|
Erweiterte Foren Suche
Google Foren Suche
Forum & Artikel Update eMail
AS/400 / IBM i
Server Expert Gruppen
Unternehmens IT
|
Kategorien online Artikel
- Big Data, Analytics, BI, MIS
- Cloud, Social Media, Devices
- DMS, Archivierung, Druck
- ERP + Add-ons, Business Software
- Hochverfügbarkeit
- Human Resources, Personal
- IBM Announcements
- IT-Karikaturen
- Leitartikel
- Load`n`go
- Messen, Veranstaltungen
- NEWSolutions Dossiers
- Programmierung
- Security
- Software Development + Change Mgmt.
- Solutions & Provider
- Speicher – Storage
- Strategische Berichte
- Systemmanagement
- Tools, Hot-Tips
Auf dem Laufenden bleiben
|
Bookmarks