SAP -> Excel (rechtsbündig)
7 Beiträge
•
Seite 1 von 1
7 Beiträge
Seite 1 von 1
Hallo,
ich habe schon (fast) das ganze Forum nach einer Lösung abgesucht, aber nichts gefunden. Ich würde gerne per SAP-Report eine Exceldatei speichern. Das funktioniert auch schon, hab auch die Hintergrundfarbe einer ZElle ändern können etc.
Aber jetzt möchte ich eine Zelle rechtsbündig machen und es will nicht so wie ich. Hab in der Macroworkbench im Excel diese Aktion aufgezeichnet und gefunden, dass HorizontalAlignment von Range für diese Aktion verantwortlich ist. Wie aber sage ich dass dem Programm?
Habs auch schon mit '0', 'RIGHT', '2', etc. als Werten versucht.
Danke für eure Hillfe!
Ciao Thomas
ich habe schon (fast) das ganze Forum nach einer Lösung abgesucht, aber nichts gefunden. Ich würde gerne per SAP-Report eine Exceldatei speichern. Das funktioniert auch schon, hab auch die Hintergrundfarbe einer ZElle ändern können etc.
Aber jetzt möchte ich eine Zelle rechtsbündig machen und es will nicht so wie ich. Hab in der Macroworkbench im Excel diese Aktion aufgezeichnet und gefunden, dass HorizontalAlignment von Range für diese Aktion verantwortlich ist. Wie aber sage ich dass dem Programm?
Code: Alles auswählen.
DATA: excel TYPE ole2_object,
mapl TYPE ole2_object, " list of workbooks
workbook TYPE ole2_object, " Workbook
map TYPE ole2_object, " Mappe
col TYPE ole2_object, " Spalte
cell TYPE ole2_object. " Zelle
SET PROPERTY OF excel 'Visible' = 0. "nicht sichtbar
CALL METHOD OF excel 'Workbooks' = workbook.
CALL METHOD OF workbook 'Add' = map.
* Spaltenbreite festlegen
CALL METHOD OF excel 'COLUMNS' = col
EXPORTING #1 = 'D:D'.
SET PROPERTY OF col 'ColumnWidth' = '10'.
* optimale Breite Spalte A
CALL METHOD OF excel 'COLUMNS' = col
EXPORTING #1 = 'A:A'.
SET PROPERTY OF col 'AutoFit' = '1'.
* rechtsbündig <--- funktioniert NICHT
CALL METHOD OF excel 'RANGE' = cell
EXPORTING #1 = 'D3'.
SET PROPERTY OF cell 'HorizontalAlignment' = '1'.
Danke für eure Hillfe!
Ciao Thomas
gesponsert ⓘ
Stellenangebote auf ABAPforum.com schalten
kostenfrei für Ausbildungsberufe und Werksstudenten
kostenfrei für Ausbildungsberufe und Werksstudenten
Hallo Kojak,
leider kann ich dir da nicht helfen, aber ich bin gerade selber dabei so nen 'Excel-Program' zu machen. Du würdest mir ein riesen gefallen tun wenn du mir den Bereich gibst, bei dem das excel vom abap erstellt wird.
Ist natürlich deine Entscheidung, ob du dein Werk mir gibst. Wollte mir nur das umschreiben der beispielprogs ersparen
Hab leider noch andere Projekte am laufen und aus irgendwelchen Gründen sind alle unheimlich wichtig und müssen schon gestern fertig sein, obwohl ich die Aufgaben erst morgen bekomm
Naja, wäre auf jedenfall ein feiner Zug von Dir
Thx
Gruß
Markus
PS: per PN
leider kann ich dir da nicht helfen, aber ich bin gerade selber dabei so nen 'Excel-Program' zu machen. Du würdest mir ein riesen gefallen tun wenn du mir den Bereich gibst, bei dem das excel vom abap erstellt wird.
Ist natürlich deine Entscheidung, ob du dein Werk mir gibst. Wollte mir nur das umschreiben der beispielprogs ersparen
Hab leider noch andere Projekte am laufen und aus irgendwelchen Gründen sind alle unheimlich wichtig und müssen schon gestern fertig sein, obwohl ich die Aufgaben erst morgen bekomm
Naja, wäre auf jedenfall ein feiner Zug von Dir
Thx
Gruß
Markus
PS: per PN
Hi,
möglicherweise hilft dies:
METHOD set_cellalignment.
CALL METHOD OF sheets 'Cells' = cells
EXPORTING
#1 = row
#2 = col.
IF NOT sy-subrc EQ 0.
rtn = sy-subrc.
EXIT.
ENDIF.
SET PROPERTY OF cells 'HorizontalAlignment' = alignment .
IF NOT sy-subrc EQ 0.
rtn = sy-subrc.
EXIT.
ENDIF.
ENDMETHOD. "set_cellalignment
alignment aus:
CONSTANTS: left TYPE i VALUE -4131.
CONSTANTS: center TYPE i VALUE -4108.
CONSTANTS: right TYPE i VALUE -4152.
Gruß TakerOne
möglicherweise hilft dies:
METHOD set_cellalignment.
CALL METHOD OF sheets 'Cells' = cells
EXPORTING
#1 = row
#2 = col.
IF NOT sy-subrc EQ 0.
rtn = sy-subrc.
EXIT.
ENDIF.
SET PROPERTY OF cells 'HorizontalAlignment' = alignment .
IF NOT sy-subrc EQ 0.
rtn = sy-subrc.
EXIT.
ENDIF.
ENDMETHOD. "set_cellalignment
alignment aus:
CONSTANTS: left TYPE i VALUE -4131.
CONSTANTS: center TYPE i VALUE -4108.
CONSTANTS: right TYPE i VALUE -4152.
Gruß TakerOne
Ich bin eigentlich ein sehr netter Mensch.
Wenn ich Freunde hätte, könnten diese es bestätigen.
Wenn ich Freunde hätte, könnten diese es bestätigen.
Seite 1 von 1
Vergleichbare Themen
3
Antw.
Antw.
1909
Views
Views
2
Antw.
Antw.
1689
Views
Views
Wie Spalte im Ergebnis der Suchhilfe rechtsbündig?
von mawi » 17.04.2008 17:45 • Verfasst in ABAP® Core
von mawi » 17.04.2008 17:45 • Verfasst in ABAP® Core
0
Antw.
Antw.
2014
Views
Views
1
Antw.
Antw.
2651
Views
Views
SAP zu Excel (Verwendung einer Excel Formatvorlage)
von sjung3 » 28.09.2005 14:34 • Verfasst in ABAP® Core
von sjung3 » 28.09.2005 14:34 • Verfasst in ABAP® Core
2
Antw.
Antw.
4436
Views
Views
EXCEL Export aus SAP mit Excel 2003 / 2007
von hfahrian » 03.02.2014 11:34 • Verfasst in ABAP Objects®
von hfahrian » 03.02.2014 11:34 • Verfasst in ABAP Objects®
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.