Excel File wird nicht gespeichter, Warum

[Jill2195]

Hallo AF-User

Ich muss ein Programm schreiben. Als vorlage habe ich das Programm: RSDEMO01 verwendet.

Dann habe ich eingefügt, das das Excel-File gespeichert werden soll.
CALL METHOD OF H_MAP 'SaveAs' EXPORTING #1 = 'C:/mappe1.xls'.

Es gibt kein Fehler, aber das Excel wird auch nicht gespeichert.

Warum funktioniert dies nicht? Fehlt etwas?

Danke für die Antworten!

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

1. *&---------------------------------------------------------------------*
2. *& Report  Z05_EXCEL_KONZ
3. *&
4. *&---------------------------------------------------------------------*
5. *&
6. *&
7. *&---------------------------------------------------------------------*
8.  
9. REPORT  Z05_EXCEL_KONZ.
10.  
11. INCLUDE OLE2INCL.
12. * handles for OLE objects
13. DATA: H_EXCEL TYPE OLE2_OBJECT,        " Excel object
14.       H_MAPL TYPE OLE2_OBJECT,         " list of workbooks
15.       H_MAP TYPE OLE2_OBJECT,          " workbook
16.       H_ZL TYPE OLE2_OBJECT,           " cell
17.       H_F TYPE OLE2_OBJECT.            " font
18. TABLES: SPFLI.
19. DATA  H TYPE I.
20. * table of flights
21. DATA: IT_SPFLI LIKE SPFLI OCCURS 10 WITH HEADER LINE.
22.  
23. *&---------------------------------------------------------------------*
24. *&   Event START-OF-SELECTION
25. *&---------------------------------------------------------------------*
26. START-OF-SELECTION.
27. * read flights
28.   SELECT * FROM SPFLI INTO TABLE IT_SPFLI UP TO 10 ROWS.
29. * display header
30.   ULINE (61).
31.   WRITE: /     SY-VLINE NO-GAP,
32.           (3)  'Flg'(001) COLOR COL_HEADING NO-GAP, SY-VLINE NO-GAP,
33.           (4)  'Nr'(002) COLOR COL_HEADING NO-GAP, SY-VLINE NO-GAP,
34.           (20) 'Von'(003) COLOR COL_HEADING NO-GAP, SY-VLINE NO-GAP,
35.           (20) 'Nach'(004) COLOR COL_HEADING NO-GAP, SY-VLINE NO-GAP,
36.           (8)  'Zeit'(005) COLOR COL_HEADING NO-GAP, SY-VLINE NO-GAP.
37.   ULINE (61).
38. * display flights
39.   LOOP AT IT_SPFLI.
40.   WRITE: / SY-VLINE NO-GAP,
41.            IT_SPFLI-CARRID COLOR COL_KEY NO-GAP, SY-VLINE NO-GAP,
42.            IT_SPFLI-CONNID COLOR COL_NORMAL NO-GAP, SY-VLINE NO-GAP,
43.            IT_SPFLI-CITYFROM COLOR COL_NORMAL NO-GAP, SY-VLINE NO-GAP,
44.            IT_SPFLI-CITYTO COLOR COL_NORMAL NO-GAP, SY-VLINE NO-GAP,
45.            IT_SPFLI-DEPTIME COLOR COL_NORMAL NO-GAP, SY-VLINE NO-GAP.
46.   ENDLOOP.
47.   ULINE (61).
48. * tell user what is going on
49.   CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
50.      EXPORTING
51. *           PERCENTAGE = 0
52.            TEXT       = TEXT-007
53.        EXCEPTIONS
54.             OTHERS     = 1.
55. * start Excel
56.   CREATE OBJECT H_EXCEL 'EXCEL.APPLICATION'.
57.   PERFORM ERR_HDL.
58.   SET PROPERTY OF H_EXCEL  'Visible' = 1.
59.   PERFORM ERR_HDL.
60. * tell user what is going on
61.   CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
62.      EXPORTING
63. *           PERCENTAGE = 0
64.            TEXT       = TEXT-008
65.        EXCEPTIONS
66.             OTHERS     = 1.
67. * get list of workbooks, initially empty
68.   CALL METHOD OF H_EXCEL 'Workbooks' = H_MAPL.
69.   PERFORM ERR_HDL.
70. * add a new workbook
71.   CALL METHOD OF H_MAPL 'Add' = H_MAP.
72.   PERFORM ERR_HDL.
73. * tell user what is going on
74.   CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
75.      EXPORTING
76. *           PERCENTAGE = 0
77.            TEXT       = TEXT-009
78.        EXCEPTIONS
79.             OTHERS     = 1.
80. * output column headings to active Excel sheet
81.   PERFORM FILL_CELL USING 1 1 1 'Flug'(001).
82.   PERFORM FILL_CELL USING 1 2 1 'Nr'(002).
83.   PERFORM FILL_CELL USING 1 3 1 'Von'(003).
84.   PERFORM FILL_CELL USING 1 4 1 'Nach'(004).
85.   PERFORM FILL_CELL USING 1 5 1 'Zeit'(005).
86.   LOOP AT IT_SPFLI.
87. * copy flights to active EXCEL sheet
88.     H = SY-TABIX + 1.
89.     PERFORM FILL_CELL USING H 1 0 IT_SPFLI-CARRID.
90.     PERFORM FILL_CELL USING H 2 0 IT_SPFLI-CONNID.
91.     PERFORM FILL_CELL USING H 3 0 IT_SPFLI-CITYFROM.
92.     PERFORM FILL_CELL USING H 4 0 IT_SPFLI-CITYTO.
93.     PERFORM FILL_CELL USING H 5 0 IT_SPFLI-DEPTIME.
94.   ENDLOOP.
95.  
96.   CALL METHOD OF H_MAP 'SaveAs' EXPORTING #1 = 'C:/mappe1.xls'.
97.  
98. * disconnect from Excel
99.   FREE OBJECT H_EXCEL.
100.   PERFORM ERR_HDL.
101.  
102. *---------------------------------------------------------------------*
103. *       FORM FILL_CELL                                                *
104. *---------------------------------------------------------------------*
105. *       sets cell at coordinates i,j to value val boldtype bold       *
106. *---------------------------------------------------------------------*
107. FORM FILL_CELL USING I J BOLD VAL.
108.   CALL METHOD OF H_EXCEL 'Cells' = H_ZL EXPORTING #1 = I #2 = J.
109.   PERFORM ERR_HDL.
110.   SET PROPERTY OF H_ZL 'Value' = VAL .
111.   PERFORM ERR_HDL.
112.   GET PROPERTY OF H_ZL 'Font' = H_F.
113.   PERFORM ERR_HDL.
114.   SET PROPERTY OF H_F 'Bold' = BOLD .
115.   PERFORM ERR_HDL.
116. ENDFORM.
117. *&---------------------------------------------------------------------*
118. *&      Form  ERR_HDL
119. *&---------------------------------------------------------------------*
120. *       outputs OLE error if any                                       *
121. *----------------------------------------------------------------------*
122. *  -->  p1        text
123. *  <--  p2        text
124. *----------------------------------------------------------------------*
125. FORM ERR_HDL.
126. IF SY-SUBRC <> 0.
127.   WRITE: / 'Fehler bei OLE-Automation:'(010), SY-SUBRC.
128.   STOP.
129. ENDIF.
130. ENDFORM.                    " ERR_HDL

GeSHi ©

[Jonny2227]

Sali,

muss der Pfad nicht C:\Mappe.xls (für Windows) sein oder wo willst du es ablegen ?

Gruss Jens

[Jill2195]

Richtig, habe diverse Beispiele gefunden, aber darauf bin ich nicht gekommen...

Danke vielmals!