Datumsformat in Excel

[Finnley3515]

Hallo Experten,

Das Programm das ich derzeit bearbeite füllt eine interne Tabelle und überträgt diese in einen Excel-Sheet. Eine zusätzliche Anforderung ist, dass einige Felder farblich markiert werden müssen.

Grundsätzlich funktioniert das Programm schon ganz gut bis auf ein Problem bei den Datumsfeldern.
Das Datum soll im Format JJJJ/MM/TT ausgegeben werden. Das funktioniert, wenn die Zelle nicht farblich markiert ist. Sobald eine farbliche Markierung greift, wird das Datum im Format TT/MM/JJJJ angezeigt und die Zellenformatierung entspricht einer Textzelle.

Für die Kommunikation mit Excel verwende ich die Tabellenkalkulationsschnittstelle (i_oi_spreadsheet) der Desktop Office Intergration. Ich hole mir das Format der Zelle über die Methode get_cell_format, ändere die Hintergrundfarbe und lade das geänderte Format über die Methode cell_format wieder zurück. Danach lade ich mit der Methode insert_one_table die Daten in das Excelsheet. Das Coding habe ich hier mal angehängt.

Hat hier vielleicht jemand eine Idee wie ich das richtige Datumsformat ausgegeben bekomme?

Danke schon mal für die Hilfe

Code: [Select all] [Expand/Collapse] [Download] (Untitled.txt)

1.     LOOP AT lt_change_field INTO ls_change_field.
2.       sheet_interface->get_cell_format(
3.         EXPORTING
4.           row      = ls_change_field-row    " Zeile
5.           column   = ls_change_field-col    " Spalte
6.           no_flush = 'X'    " flush?
7. *          updating = -1    " screen updating
8.         IMPORTING
9.           format   = ls_format_item    " Format der Zelle
10.           error    = error    " error?
11. *          retcode  = retcode    " text of error
12.       ).
13.       MOVE-CORRESPONDING ls_format_item TO ls_cell.
14.       ls_cell-top     = ls_change_field-row.
15.       ls_cell-left    = ls_change_field-col.
16.       ls_cell-rows    = 1.
17.       ls_cell-columns = 1.
18.       ls_cell-back    = 6.
19.       APPEND ls_cell TO lt_cells.
20.     ENDLOOP.
21.  
22.     sheet_interface->cell_format(
23.       EXPORTING
24.         no_flush = 'X'    " flush?
25.         cells    = lt_cells    " Tabelle der Zellinformationen
26.       IMPORTING
27.         error    = error    " error?
28.        ).
29.  
30.   sheet_interface->insert_one_table(
31.       EXPORTING
32.        ddic_name    = 'Z_EXCEL_OUTPUT'    " Name of a table of the data dictionary
33.             data_table   = lt_edl_excel_output    " Data
34. *         fields_table = fields_table    " The fields of the table
35.             rangename    = 'EDL_RESULT'    " The name of the range
36.             no_flush     = ' '    " flush?
37.             wholetable   = i_oi_spreadsheet=>spreadsheet_insertall    " Inserts the whole table?
38. *         updating     = -1    " Screen updating
39.           IMPORTING
40.             error        = error    " errors?
41. *         retcode      =            retcode    " text of the error
42.         ).
43.  

GeSHi ©