OLE2 Excel
7 Beiträge
•
Seite 1 von 1
7 Beiträge
Seite 1 von 1
Hallo,
ich erstelle mir über die OLE2 Objekte eine Excel Datei mit 3 extra Tabellen (Also die links unten).
Ich schreibe meine ganzen Daten etwas schöner aufbereitet in die Einzellnen Tabellen.
Dabei sollen die Spaltenbreite automatisch angepasst werden über:
Im ersten Worksheet, also in der ersten Tabelle funktioniert das auch einwandfrei. Ab der 2. plötzlich nicht mehr und ich weiß nicht warum.
Verkürzter Programmablauf:
-> Excel erstellen
-> Worksheet hinzufügen (die 3 Tabellen)
-> Daten in alle 3 Tabellen schreiben und aufbereiten (Hier auch der Autofit)
-> Abspeichern
-> Free Objects
Ich habe was OLE angeht bisher leider wenig Erfahrung und bin für jeden Vorschlag dankbar
ich erstelle mir über die OLE2 Objekte eine Excel Datei mit 3 extra Tabellen (Also die links unten).
Ich schreibe meine ganzen Daten etwas schöner aufbereitet in die Einzellnen Tabellen.
Dabei sollen die Spaltenbreite automatisch angepasst werden über:
Code: Alles auswählen.
CALL METHOD OF
go_column
'Autofit'.Verkürzter Programmablauf:
-> Excel erstellen
-> Worksheet hinzufügen (die 3 Tabellen)
-> Daten in alle 3 Tabellen schreiben und aufbereiten (Hier auch der Autofit)
-> Abspeichern
-> Free Objects
Ich habe was OLE angeht bisher leider wenig Erfahrung und bin für jeden Vorschlag dankbar
gesponsert ⓘ
Stellenangebote auf ABAPforum.com schalten
kostenfrei für Ausbildungsberufe und Werksstudenten
kostenfrei für Ausbildungsberufe und Werksstudenten
Autofit wirkt nur auf die markierten Zellen.
Code: Alles auswählen.
* Gesamte Tabelle formatieren
CALL METHOD OF excel 'Columns' = column.
CALL METHOD OF column 'Autofit'.
FREE OBJECT column.
* Teilweise formatierung
CALL METHOD OF excel 'Range' = cell EXPORTING #1 = 'A1:IV65536'.
CALL METHOD OF cell 'Select'.
CALL METHOD OF excel 'Selection' = cell.
GET PROPERTY OF cell 'Columns' = column.
CALL METHOD OF column 'Autofit'.
* Markierung nicht stehen lassen
CALL METHOD OF excel 'Range' = cell EXPORTING #1 = 'A1'.
CALL METHOD OF cell 'Select'.
FREE OBJECT cell.
FREE OBJECT column.
Hallo,Daniel hat geschrieben:Autofit wirkt nur auf die markierten Zellen.
Code: Alles auswählen.
* Gesamte Tabelle formatieren CALL METHOD OF excel 'Columns' = column. CALL METHOD OF column 'Autofit'. FREE OBJECT column. * Teilweise formatierung CALL METHOD OF excel 'Range' = cell EXPORTING #1 = 'A1:IV65536'. CALL METHOD OF cell 'Select'. CALL METHOD OF excel 'Selection' = cell. GET PROPERTY OF cell 'Columns' = column. CALL METHOD OF column 'Autofit'. * Markierung nicht stehen lassen CALL METHOD OF excel 'Range' = cell EXPORTING #1 = 'A1'. CALL METHOD OF cell 'Select'. FREE OBJECT cell. FREE OBJECT column.
danke schon mal aber wenn ich die Zeilen
Code: Alles auswählen.
CALL METHOD OF go_application 'Columns' = go_column.
CALL METHOD OF go_column 'Autofit'.
Beitrag
von black_adept (Top Expert / 4090 / 127 /
940
)
»
Wchselst du auch vor jedem Autofit bzw. der Range-Definition das aktive Tabellenblatt?
Bringt auch nichts. Hättest du vielleicht ein kurzes unaufwändiges Beispiel für mich mit einer Excel-Datei mit 2 oder mehreren Tabellen bei denen der Autofit greift.black_adept hat geschrieben:Wchselst du auch vor jedem Autofit bzw. der Range-Definition das aktive Tabellenblatt?
Seite 1 von 1
Vergleichbare Themen
1
Antw.
Antw.
364
Views
Views
3
Antw.
Antw.
1481
Views
Views
Frage die ABAP Experten
Über diesen Beitrag
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.