Selektion mehrer Excel-Sheets

Die Frage ist als "gelöst" markiert. Den entsprechend Beitrag findest du hier.

Alles rund um die Sprache ABAP®: Funktionsbausteine, Listen, ALV
3 Beiträge • Seite 1 von 1
3 Beiträge Seite 1 von 1

Selektion mehrer Excel-Sheets

Beitrag von Ludo ( / / 0 / 3 ) »
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':

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'.
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

gesponsert
Stellenangebote auf ABAPforum.com schalten
kostenfrei für Ausbildungsberufe und Werksstudenten


Beitrag von Patrick76 (ForumUser / 34 / 0 / 1 ) »
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

Beitrag von Ludo ( / / 0 / 3 ) »
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:

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'.
Anschliessend kann man die restlichen Blätter selektieren und ausdrucken:

Code: Alles auswählen.

CALL METHOD OF h_worksheets 'Select'.
CALL METHOD OF h_worksheets 'PrintOut'.
Ist nicht unbedingt sehr elegant, aber es funktioniert...

Gruss
Ludo

Seite 1 von 1

Vergleichbare Themen

2
Antw.
2490
Views
Excel: Export & Aufbereitung in mehreren Sheets
von urk » 14.04.2005 09:53 • Verfasst in ABAP® Core
2
Antw.
2617
Views
Mehrere Sheets
von lisa » 07.09.2008 22:21 • Verfasst in ABAP® für Anfänger
14
Antw.
13239
Views
Append mehrer Zeilen mit VALUE #
von Romaniac » 09.01.2018 18:14 • Verfasst in ABAP® Core
2
Antw.
1683
Views
Mehrer Änhänge per Mail verschicken
von godevilgo » 28.04.2006 15:08 • Verfasst in ABAP® Core
6
Antw.
769
Views
Mehrer Selects in eine Tabelle bringen
von burggartenkind » 25.07.2019 13:44 • Verfasst in ABAP® für Anfänger

Ü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

Newsletter Anmeldung

Keine Beiträge verpassen! Wöchentlich versenden wir lesenwerte Beiträge aus unserer Community.
Die letzte Ausgabe findest du hier.
Details zum Versandverfahren und zu Ihren Widerrufsmöglichkeiten findest du in unserer Datenschutzerklärung.

Unbeantwortete Forenbeiträge

Zwischensumme Adobe Forms
vor 4 Tagen von Lucyalison 1 / 72
Group Items auf einer Filterbar
vor einer Woche von Bright4.5 1 / 111
tRFC Transaktionen SM58
vor 4 Wochen von A6272 1 / 141