Selektion mehrer Excel-Sheets
Die Frage ist als "gelöst" markiert. Den entsprechend Beitrag findest du hier.
3 Beiträge
•
Seite 1 von 1
3 Beiträge
Seite 1 von 1
Hallo zusammen
Ich habe folgendes Problem: ich möchte per OLE im Excel mehrere Sheets selektieren, um diese dann mit einem (und nicht mehreren) Druckauftrag auszugeben. Grund hierfür ist, dass die Ausgabe je nach Wunsch auf einen PDF-Konverter umgeleitet werden soll, und ich beim Drucken der einzelnen Sheets nacheinander mehrere PDF-Files erhalten würde.
Hier mein Coding zur Auwahl des Sheets 'Blatt1':
Dies klappt so auch, nur möchte ich mehrere Sheets z.B. Blatt1 Blatt2 und Blatt3 selektieren. Die Makro-Aufzeichnung zeigt:
Sheets(Array("Blatt1", "Blatt2", "Blatt3")).Select
Weiss jemand wie man so ein Array per exporting-Parameter mitgeben kann?
Gruss
Ludo
Ich habe folgendes Problem: ich möchte per OLE im Excel mehrere Sheets selektieren, um diese dann mit einem (und nicht mehreren) Druckauftrag auszugeben. Grund hierfür ist, dass die Ausgabe je nach Wunsch auf einen PDF-Konverter umgeleitet werden soll, und ich beim Drucken der einzelnen Sheets nacheinander mehrere PDF-Files erhalten würde.
Hier mein Coding zur Auwahl des Sheets 'Blatt1':
Code: Alles auswählen.
* Excel starten
CREATE OBJECT h_excel 'EXCEL.APPLICATION'.
* Excel sichtbar ausführen
SET PROPERTY OF h_excel 'Visible' = 1.
* bestehendes File öffnen
CALL METHOD OF h_excel 'Workbooks' = h_mapl.
CALL METHOD OF h_mapl 'OPEN'
EXPORTING
#1 = 'C:\Temp\test.xls'.
* Sheet selektieren
CALL METHOD OF h_excel 'Sheets' = h_worksheet
EXPORTING
#1 = 'Blatt1'.
CALL METHOD OF h_worksheet 'Select'.
Sheets(Array("Blatt1", "Blatt2", "Blatt3")).Select
Weiss jemand wie man so ein Array per exporting-Parameter mitgeben kann?
Gruss
Ludo
gesponsert ⓘ
Stellenangebote auf ABAPforum.com schalten
kostenfrei für Ausbildungsberufe und Werksstudenten
kostenfrei für Ausbildungsberufe und Werksstudenten
Hi!
zu dem Array fällt mir spontan nichts ein, aber wenn es Dir darum geht, alle Sheets eines Workbooks in einen einzigen Druckauftrag zu packen, dann nimm die Methode "PrintOut" des "Application.ActiveWorkbook"-Objekts.
viele Grüße, Patrick
zu dem Array fällt mir spontan nichts ein, aber wenn es Dir darum geht, alle Sheets eines Workbooks in einen einzigen Druckauftrag zu packen, dann nimm die Methode "PrintOut" des "Application.ActiveWorkbook"-Objekts.
viele Grüße, Patrick
Hallo Patrick
Das Problem ist, dass ich nicht alle Sheets, sondern nur eine bestimmte Auswahl drucken möchte.
Ich habe das im Moment so gelöst, dass ich die Sheets, die ich nicht gedruckt haben möchte, einfach lösche:
Anschliessend kann man die restlichen Blätter selektieren und ausdrucken:
Ist nicht unbedingt sehr elegant, aber es funktioniert...
Gruss
Ludo
Das Problem ist, dass ich nicht alle Sheets, sondern nur eine bestimmte Auswahl drucken möchte.
Ich habe das im Moment so gelöst, dass ich die Sheets, die ich nicht gedruckt haben möchte, einfach lösche:
Code: Alles auswählen.
CALL METHOD OF h_excel 'Sheets' = h_worksheets.
CALL METHOD OF h_worksheets 'Item' = h_worksheet
EXPORTING #1 = 'BlattXY'.
CALL METHOD OF h_worksheet 'Delete'.
Code: Alles auswählen.
CALL METHOD OF h_worksheets 'Select'.
CALL METHOD OF h_worksheets 'PrintOut'.
Gruss
Ludo
Seite 1 von 1
Vergleichbare Themen
2
Antw.
Antw.
2636
Views
Views
14
Antw.
Antw.
14524
Views
Views
2
Antw.
Antw.
2040
Views
Views
6
Antw.
Antw.
1088
Views
Views
Mehrer Selects in eine Tabelle bringen
von burggartenkind » 25.07.2019 13:44 • Verfasst in ABAP® für Anfänger
von burggartenkind » 25.07.2019 13:44 • Verfasst in ABAP® für Anfänger
Frage die ABAP Experten
Über diesen Beitrag
Die Frage ist als "gelöst" markiert. Den entsprechend Beitrag findest du hier.
Unterstütze die Community und teile den Beitrag für mehr Leser und Austausch
Aktuelle Forenbeiträge
Newsletter Anmeldung
Keine Beiträge verpassen! Wöchentlich versenden wir lesenwerte Beiträge aus unserer Community.Die letzte Ausgabe findest du hier.