Excel Template mit Daten füllen und Downloaden

Excel Template mit Daten füllen und Downloaden

Hallo alle zusammen,

vielleicht kann mir ja jemand von euch bei meinem Problem behilflich sein:

Ich möchte gewisse Spalten einer Tabelle in ein Excel-Template laden und dieses danach lokal abspeichern (dies sollte alles im Hintergrund geschehen).

Ich habe mir dazu schon diverse Tutorials durchgelesen, aber irgendwie fehlt mir noch der nötige Durchblick.

Glaubt man den Return Codes der einzelnen Methoden zum Öffnen des Templates, dürfte dies bereits problemlos funktionieren.
Um das Excel Template mit Daten zu befüllen verwende ich die Methode insert_one_table aus dem I_OI_SPREADSHEET Interface.
Der Rückgabewert (Error_Code) der Methode lässt auch auf keinen Fehler schließen ( I_OI_ERROR~HAS_SUCCEEDED = 'X' ), jedoch sind die Daten nicht vorhanden (oder ich suche an der falschen Stelle).
Jetzt hätte ich versucht, das Template lokal abzuspeichern um zu sehen ob Daten eingefügt wurden oder nicht, jedoch sind keine Daten vorhanden.

Hat vielleicht jemand von euch eine Ahnung, was ich hier falsche?

Danke für eure Hilfe.

LG Rainer

Ps.: Anbei noch mein Coding (in der Excel_tab stehen die Daten welche ich in das Excel Template eingefügt haben möchte).

FORM f_open_document USING l_clsnam TYPE sbdst_classname
l_clstyp TYPE sbdst_classtype
l_objkey TYPE sbdst_object_key
l_desc TYPE char255.

DATA: locint_signature TYPE sbdst_signature,
locint_uris TYPE sbdst_uri,
locwa_signature LIKE LINE OF locint_signature,
locwa_uris LIKE LINE OF locint_uris.

CALL METHOD c_oi_container_control_creator=>get_container_control
IMPORTING
control = r_control
retcode = wf_retcode.

IF wf_retcode NE c_oi_errors=>ret_ok.
CALL METHOD c_oi_errors=>raise_message
EXPORTING
type = 'E'.
ENDIF.

CREATE OBJECT r_container
EXPORTING
container_name = 'EXCEL'. "Custom Control Name

CALL METHOD r_control->init_control
EXPORTING
r3_application_name = 'ZRHXPEP01'
inplace_enabled = abap_true
inplace_scroll_documents = abap_true
parent = r_container
IMPORTING
retcode = wf_retcode.

IF wf_retcode NE c_oi_errors=>ret_ok.
CALL METHOD c_oi_errors=>raise_message
EXPORTING
type = 'E'.
ENDIF.

CREATE OBJECT r_document.

* Get Document with URL
locwa_signature-prop_name = 'DESCRIPTION'.
* Description of the table template in OAOR
locwa_signature-prop_value = l_desc.
APPEND locwa_signature TO locint_signature.

CALL METHOD r_document->get_with_url
EXPORTING
classname = l_clsnam
classtype = l_clstyp
object_key = l_objkey
CHANGING
uris = locint_uris
signature = locint_signature
EXCEPTIONS
nothing_found = 1
error_kpro = 2
internal_error = 3
parameter_error = 4
not_authorized = 5
not_allowed = 6.

IF sy-subrc NE 0.
MESSAGE 'Error Retrieving Document' TYPE 'E'.
ENDIF.

READ TABLE locint_uris INTO locwa_uris INDEX 1.

CALL METHOD r_control->get_document_proxy
EXPORTING
document_type = 'MS Excel Applikation'
IMPORTING
document_proxy = r_proxy
retcode = wf_retcode.

IF wf_retcode NE c_oi_errors=>ret_ok.
CALL METHOD c_oi_errors=>show_message
EXPORTING
type = 'E'.
ENDIF.

* Open Document
CALL METHOD r_proxy->open_document
EXPORTING
document_url = locwa_uris-uri
open_inplace = abap_true
protect_document = abap_true "Protect Document initially
IMPORTING
retcode = wf_retcode.

IF wf_retcode NE c_oi_errors=>ret_ok.
CALL METHOD c_oi_errors=>show_message
EXPORTING
type = 'E'.
ENDIF.


CALL METHOD r_proxy->get_spreadsheet_interface
IMPORTING
sheet_interface = r_excel
retcode = wf_retcode.

IF wf_retcode NE c_oi_errors=>ret_ok.
CALL METHOD c_oi_errors=>show_message
EXPORTING
type = 'E'.
ENDIF.


ENDFORM.

FORM f_fill_data.
PERFORM fill_output_excel.
DATA: locint_fields TYPE TABLE OF rfc_fields,
entries TYPE i.
DESCRIBE TABLE t_outtab LINES entries.
PERFORM f_create_range USING 3 "Begin of row
1 "Begin of column
entries
3
'Unterschriften'.

CALL FUNCTION 'DP_GET_FIELDS_FROM_TABLE'
TABLES
data = excel_tab
fields = locint_fields
EXCEPTIONS
dp_invalid_table = 1
OTHERS = 2.

IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.


* Insert the table entries into Excel
CALL METHOD r_excel->insert_one_table
EXPORTING
fields_table = locint_fields[] "Defn of fields
data_table = excel_tab[] "Data
rangename = 'Unterschriften' "Range Name
"no_flush = 'X'
IMPORTING
error = r_error
retcode = wf_retcode.

IF r_error->has_failed = abap_true.
CALL METHOD r_error->raise_message
EXPORTING
type = 'E'.
ENDIF.



ENDFORM.

FORM f_create_Range USING l_top TYPE i
l_left TYPE i
l_row TYPE i
l_column TYPE i
l_range TYPE char255.
CALL METHOD r_excel->set_selection
EXPORTING
top = l_top
left = l_left
rows = l_row
columns = l_column.

CALL METHOD r_excel->insert_range
EXPORTING
name = l_range
rows = l_row
columns = l_column
IMPORTING
error = r_error.

IF r_error->has_failed = abap_true.
CALL METHOD r_error->raise_message
EXPORTING
type = 'E'.
ENDIF.
ENDFORM.

Re: Excel Template mit Daten füllen und Downloaden

Hallo Stefan,

vielen Dank für den Hinweis, hätte mich sonst vermutlich noch einige Zeit damit gequält und geärgert warum es nicht funktioniert (:

Danke für den Link, hat mir weiter geholfen.

LG
Rainer