Aus BSP Excel öffnen und ein File importieren
12.03.2004 15:13:32
Christian
ich erstelle zur Zeit auf einem SAP Web Appl. Server 6.30 einen xString. Dieser wird als Response an einen Browser geschickt. Aus dem Browser soll automatisch Excel geöffnet werden. Das Excel geöffnet werden soll erkennt der Browser am CONTENT-TYPE und soll den xString nach Excel exportieren. Das Ganze funktioniert schon, nur wird der komplette String in die erste Zelle geschoben. Hat jemand eine Idee, wie ich den String aufbauen muss, damit die einzelnen Zellen gefüllt werden?
So long
Christian
Coding:
DATA: lv_sy_uname_string TYPE string,
ls_printdata TYPE /sie/med_emwf_sexchangedata.
data: ls_name type string,
lv_lines type i,
lv_sep value ';',
lv_sep2 value '''',
lv_string type string,
lv_cr type x value '13',
lv_lf type x value '10',
lv_off type i,
lv_off2 type i.
describe table ls_printdata-workpool-workpool lines lv_lines.
* Einlesen der der Tabelle und Füllen des xStrings
loop at ls_printdata-workpool-workpool into ls_workpool.
concatenate lv_string lv_sep2 ls_workpool-TRACKING_ID lv_sep2 lv_sep
lv_sep2 ls_workpool-CATEGORY lv_sep2 lv_sep
lv_sep2 ls_workpool-COUNTRY lv_sep2 lv_sep
lv_sep2 ls_workpool-RG_SO_NO lv_sep2 lv_sep
lv_sep2 ls_workpool-RG_PO_NO lv_sep2 lv_sep
lv_sep2 ls_workpool-GG_SO_NO lv_sep2 lv_sep
lv_sep2 ls_workpool-NAME_WE lv_sep2 lv_sep
lv_sep2 ls_workpool-CITY lv_sep2 lv_sep
lv_sep2 ls_workpool-SYSTEM lv_sep2 into lv_string.
* concatenate lv_string ls_workpool-NOTIFYME into ev_xstring.
if sy-tabix < > lv_lines.
concatenate lv_string CL_ABAP_CHAR_UTILITIES=>CR_LF into lv_string.
endif.
endloop.
if sy-tabix = 1.
concatenate lv_string CL_ABAP_CHAR_UTILITIES=>CR_LF into lv_string.
endif.
* Feststellen der String Länge
do.
FIND CL_ABAP_CHAR_UTILITIES=>CR_LF IN lv_string MATCH OFFSET lv_off.
if sy-subrc ne 0.
exit.
else.
concatenate ev_xstring lv_string into ev_xstring.
lv_off = lv_off + 2.
lv_string = lv_string+lv_off.
lv_off2 = lv_off2 + lv_off.
endif.
enddo.
if lv_off2 > 0.
ev_xlenght = lv_off2 + 2.
endif.