Interne Tabell: Export in Excel

[Tomas1433]

Hallo,

ich bin auf der Suche nach einer Möglichkeit über eine BSP eine
Tabelle in MS-Excel zu exportieren. Ich habe schon einiges dazu
gelesen, wie man das mit der SAP GUI macht!!

Leider fehlt mir eine Idee so etwas über eine BSP zu lösen.
Habt Ihr Erfahrung damit bzw. eine Ahnung, ob soetwas
überhaupt möglich ist

Würde mich freuen von euch zu hören!

[Philippa2744]

siehe hier:

http://www.abapforum.com/viewtopic.php?p=2544#2544

[Alva1590]

Hallo,

ich habe mal ein wenig getüftelt und das Problem im Folgenden gelöst:

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

1. * event handler for data retrieval
2. DATA: wa_OrderList LIKE LINE OF ts_OrderList,
3.  
4.       file TYPE XString,
5.       content_length TYPE String,
6.       numC1 TYPE STRING,
7.       numC2 TYPE STRING,
8.  
9.       tempStr TYPE STRING,
10.  
11.       TAB(1) type c,
12.       CRLF(1) type c.
13.  
14. * define special chars
15. TAB = CL_ABAP_CHAR_UTILITIES=>HORIZONTAL_TAB.
16. CRLF = CL_ABAP_CHAR_UTILITIES=>NEWLINE.
17.  
18. * call function RFC: get orderlist
19. CALL FUNCTION 'ZORDERLIST_GETDATA'
20.   TABLES
21.     ITVALUES       = ts_OrderList.
22.  
23. * concatenate table into tempStr: Format for MS-Excel
24. LOOP AT ts_OrderList INTO wa_OrderList.
25.   CONCATENATE
26.     tempStr
27.     wa_OrderList-SD_DOC
28.     TAB
29.     wa_OrderList-CREATION_DATE
30.     TAB
31.     wa_OrderList-Plant
32.     TAB
33.     wa_OrderList-Short_Text
34.     TAB
35.     wa_OrderList-Currency
36.     CRLF
37.     INTO tempStr.
38. ENDLOOP.
39.  
40. * convert tempString to binary
41. DATA: conv   TYPE REF TO CL_ABAP_CONV_OUT_CE.
42.  
43. * convert tempString to binary
44. conv = CL_ABAP_CONV_OUT_CE=>CREATE( ).
45. CALL METHOD conv->write( data = tempStr ).
46.  
47. * get binary file from buffer
48. file = conv->get_buffer( ).
49.  
50. content_length = xstrlen( file ).
51.  
52. *  set response data to be the file content
53. runtime->server->response->set_data( file ).
54.  
55. * set the mime-type and file size in the response
56. runtime->server->response->set_header_field(
57.  
58.             name  = 'Content-Type'
59.  
60.             value = 'application/vnd.ms-excel' ).
61.  
62. runtime->server->response->set_header_field(
63.  
64.             name  = 'Content-Length'
65.  
66.             value = content_length ).
67.  
68. runtime->server->response->delete_header_field(
69.             name = 'Cache-Control' ).
70.  
71. runtime->server->response->delete_header_field(
72.             name = 'Expires' ).
73.  
74. *  response data is complete don't call onLayout method
75. navigation->response_complete( ).
76.  

GeSHi ©

Es wird keine Datei erstellt. Die Daten liegen lediglich im Buffer
und werden erst in Dateiform 'gebrannt', wenn sich der User im
Browser zum Speichern entscheidet!

Am Mittelteil "Concatenate" arbeite ich noch!!
Ist noch nicht wirklich schön!

Über Verbesserungsvorschläge würde ich mich freuen

Beste Grüße!