Upload Excel File data to ALV GRID

Hello,

I am new in ABAP, and i am trying  to upload an Excel file to ALV. I am using the function "GUI_UPLOAD" to get the data from the excel to the internal table, but the data is not passing to my itenral table, i dont know what i am doing wrong, and would appreciate any help you guys could give me. The Excel file i am trying to pass is a table of Assets from a company.

Thank you very much in advance

Regards

Miguel

1. *&---------------------------------------------------------------------*
2. *& Report  ZOPEN_XLS
3. *&
4. *&---------------------------------------------------------------------*
5. *&
6. *&
7. *&---------------------------------------------------------------------*
9. INCLUDE ZOPEN_XLS_TOP                           .    " global Data
11. * INCLUDE ZOPEN_XLS_O01                           .  " PBO-Modules
12. * INCLUDE ZOPEN_XLS_I01                           .  " PAI-Modules
13. INCLUDE ZOPEN_XLS_F01                           .  " FORM-Routines
15. *****************Defenição de parametro de seleção
16. PARAMETERS P_FILE(1024) TYPE C.
18. *****************Evento para ativar o matchcode
19. AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE.
23. *****************Metodo para exibir o popup de seleção de arquivos
24.   CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_OPEN_DIALOG
25.     CHANGING
26.       FILE_TABLE              = IT_FILE
27.       RC                      = V_RC
28.     EXCEPTIONS
29.       FILE_OPEN_DIALOG_FAILED = 1
30.       CNTL_ERROR              = 2
31.       ERROR_NO_GUI            = 3
32.       NOT_SUPPORTED_BY_GUI    = 4
33.       OTHERS                  = 5.
34.   IF SY-SUBRC <> 0.
35.     MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
36.               WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
37.   ELSE.
38. ******************Identifica o arquivo selecionado e joga para o parametro de seleção
39.     READ TABLE IT_FILE INTO WA_FILE INDEX 1.
40.     P_FILE = WA_FILE-FILENAME.
41.   ENDIF.
43. LV_FILE = P_FILE.
45. START-OF-SELECTION.
47.   PERFORM F_UPLOAD.
49. END-OF-SELECTION.
51.   IF NOT IT_OUTDATA IS INITIAL.
52.     PERFORM F_FIELDCAT_ALV.
54.     PERFORM F_DISPLAY_ALV.
56.   ENDIF.
58. /////////////////////////////////////////////////////////////////////////////////////////////////////
60. *&---------------------------------------------------------------------*
61. *& Include ZOPEN_XLS_TOP                                     Report ZOPEN_XLS
62. *&
63. *&---------------------------------------------------------------------*
64. REPORT ZOPEN_XLS.
66. TYPE-POOLS : SLIS.
68. DATA: IT_FILE TYPE FILETABLE,
69.       WA_FILE TYPE FILE_TABLE,
70.       V_RC    TYPE I.
72. TYPES : BEGIN OF TY_OUTDATA,
73.           BUKRS TYPE ANLA-BUKRS,
74.           ANLN1 TYPE ANLA-ANLN1,
75.           ANLN2 TYPE ANLA-ANLN2,
76.           ANLKL TYPE ANLA-ANLKL,
77.           TXT50 TYPE ANLA-TXT50,
78.           MENGE TYPE ANLA-MENGE,
79.           GSBER TYPE ANLZ-GSBER,
80.           KOSTL TYPE ANLZ-KOSTL,
81.           STORT TYPE ANLZ-STORT,
82.         END OF TY_OUTDATA.
85. DATA :  IT_OUTDATA TYPE TABLE OF TY_OUTDATA,
86.         WA_OUTDATA TYPE          TY_OUTDATA,
88.         IT_FCAT TYPE SLIS_T_FIELDCAT_ALV,
89.         WA_FCAT TYPE SLIS_FIELDCAT_ALV.
91. **********************Variáveis para o GUI UPLOAD
92. DATA LV_FILE TYPE STRING.
94. //////////////////////////////////////////////////////////////////////////////////////////////////////
96. *&---------------------------------------------------------------------*
97. *&  Include           ZOPEN_XLS_F01
98. *&---------------------------------------------------------------------*
99. *&---------------------------------------------------------------------*
100. *&      Form  F_UPLOAD
101. *&---------------------------------------------------------------------*
102. *       text
103. *----------------------------------------------------------------------*
104. *  -->  p1        text
105. *  <--  p2        text
106. *----------------------------------------------------------------------*
107. FORM F_UPLOAD .
109. *Função para fazer o upload e passar para a tabela interna.
110. *Neste caso o tipo ASC é para arquivos TXT e Excel.
111. *O tipo BIN é para word e pdf.
113.   CALL FUNCTION 'GUI_UPLOAD'
114.     EXPORTING
115.       FILENAME                = LV_FILE
116.       FILETYPE                = 'ASC'
117. *     HAS_FIELD_SEPARATOR     = ' '
118. *     HEADER_LENGTH           = 0
119. *     READ_BY_LINE            = 'X'
120. *     DAT_MODE                = ' '
121. *     CODEPAGE                = ' '
122. *     IGNORE_CERR             = ABAP_TRUE
123. *     REPLACEMENT             = '#'
124. *     CHECK_BOM               = ' '
125. *     VIRUS_SCAN_PROFILE      =
126. *     NO_AUTH_CHECK           = ' '
127. * IMPORTING
128. *     FILELENGTH              =
129. *     HEADER                  =
130.     TABLES
131.       DATA_TAB                = IT_OUTDATA
132.     EXCEPTIONS
133.       FILE_OPEN_ERROR         = 1
134.       FILE_READ_ERROR         = 2
135.       NO_BATCH                = 3
136.       GUI_REFUSE_FILETRANSFER = 4
137.       INVALID_TYPE            = 5
138.       NO_AUTHORITY            = 6
139.       UNKNOWN_ERROR           = 7
140.       BAD_DATA_FORMAT         = 8
141.       HEADER_NOT_ALLOWED      = 9
142.       SEPARATOR_NOT_ALLOWED   = 10
143.       HEADER_TOO_LONG         = 11
144.       UNKNOWN_DP_ERROR        = 12
145.       ACCESS_DENIED           = 13
146.       DP_OUT_OF_MEMORY        = 14
147.       DISK_FULL               = 15
148.       DP_TIMEOUT              = 16
149.       OTHERS                  = 17.
150.   IF SY-SUBRC <> 0.
151. * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
152. *         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
153.   ENDIF.
155. ENDFORM.
156. *&---------------------------------------------------------------------*
157. *&      Form  F_FIELDCAT_ALV
158. *&---------------------------------------------------------------------*
159. *       text
160. *----------------------------------------------------------------------*
161. *  -->  p1        text
162. *  <--  p2        text
163. *----------------------------------------------------------------------*
164. FORM F_FIELDCAT_ALV .
166.   REFRESH : IT_FCAT.
167.   CLEAR : WA_FCAT.
169.   WA_FCAT-ROW_POS = '1'.
170.   WA_FCAT-COL_POS = '1'.
171.   WA_FCAT-FIELDNAME = 'BUKRS'.
172.   WA_FCAT-TABNAME = 'IT_OUTDATA'.
173.   WA_FCAT-SELTEXT_L = TEXT-001.
174.   APPEND WA_FCAT TO IT_FCAT.
175.   CLEAR : WA_FCAT.
177.   WA_FCAT-ROW_POS = '1'.
178.   WA_FCAT-COL_POS = '2'.
179.   WA_FCAT-FIELDNAME = 'ANLN1'.
180.   WA_FCAT-TABNAME = 'IT_OUTDATA'.
181.   WA_FCAT-SELTEXT_L = TEXT-002.
182.   APPEND WA_FCAT TO IT_FCAT.
183.   CLEAR : WA_FCAT.
185.   WA_FCAT-ROW_POS = '1'.
186.   WA_FCAT-COL_POS = '3'.
187.   WA_FCAT-FIELDNAME = 'ANLN2'.
188.   WA_FCAT-TABNAME = 'IT_OUTDATA'.
189.   WA_FCAT-SELTEXT_L = TEXT-003.
190.   APPEND WA_FCAT TO IT_FCAT.
191.   CLEAR : WA_FCAT.
193.   WA_FCAT-ROW_POS = '1'.
194.   WA_FCAT-COL_POS = '4'.
195.   WA_FCAT-FIELDNAME = 'ANLKL'.
196.   WA_FCAT-TABNAME = 'IT_OUTDATA'.
197.   WA_FCAT-SELTEXT_L = TEXT-004.
198.   APPEND WA_FCAT TO IT_FCAT.
199.   CLEAR : WA_FCAT.
201.   WA_FCAT-ROW_POS = '1'.
202.   WA_FCAT-COL_POS = '5'.
203.   WA_FCAT-FIELDNAME = 'TXT50'.
204.   WA_FCAT-TABNAME = 'IT_OUTDATA'.
205.   WA_FCAT-SELTEXT_L = TEXT-005.
206.   APPEND WA_FCAT TO IT_FCAT.
207.   CLEAR : WA_FCAT.
209.   WA_FCAT-ROW_POS = '1'.
210.   WA_FCAT-COL_POS = '6'.
211.   WA_FCAT-FIELDNAME = 'MENGE'.
212.   WA_FCAT-TABNAME = 'IT_OUTDATA'.
213.   WA_FCAT-SELTEXT_L = TEXT-006.
214.   APPEND WA_FCAT TO IT_FCAT.
215.   CLEAR : WA_FCAT.
217.   WA_FCAT-ROW_POS = '1'.
218.   WA_FCAT-COL_POS = '7'.
219.   WA_FCAT-FIELDNAME = 'GSBER'.
220.   WA_FCAT-TABNAME = 'IT_OUTDATA'.
221.   WA_FCAT-SELTEXT_L = TEXT-007.
222.   APPEND WA_FCAT TO IT_FCAT.
223.   CLEAR : WA_FCAT.
225.   WA_FCAT-ROW_POS = '1'.
226.   WA_FCAT-COL_POS = '8'.
227.   WA_FCAT-FIELDNAME = 'KOSTL'.
228.   WA_FCAT-TABNAME = 'IT_OUTDATA'.
229.   WA_FCAT-SELTEXT_L = TEXT-008.
230.   APPEND WA_FCAT TO IT_FCAT.
231.   CLEAR : WA_FCAT.
233.   WA_FCAT-ROW_POS = '1'.
234.   WA_FCAT-COL_POS = '9'.
235.   WA_FCAT-FIELDNAME = 'STORT'.
236.   WA_FCAT-TABNAME = 'IT_OUTDATA'.
237.   WA_FCAT-SELTEXT_L = TEXT-009.
238.   APPEND WA_FCAT TO IT_FCAT.
239.   CLEAR : WA_FCAT.
241. ENDFORM.
242. *&---------------------------------------------------------------------*
243. *&      Form  F_DISPLAY_ALV
244. *&---------------------------------------------------------------------*
245. *       text
246. *----------------------------------------------------------------------*
247. *  -->  p1        text
248. *  <--  p2        text
249. *----------------------------------------------------------------------*
250. FORM F_DISPLAY_ALV .
252.     CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
253.       EXPORTING
254. *       I_INTERFACE_CHECK  = ' '
255. *       I_BYPASSING_BUFFER = ' '
256. *       I_BUFFER_ACTIVE    = ' '
257.         I_CALLBACK_PROGRAM = SY-REPID
258. *       I_CALLBACK_PF_STATUS_SET          = ' '
259. *       I_CALLBACK_USER_COMMAND           = ' '
260. *       I_CALLBACK_TOP_OF_PAGE            = ' '
261. *       I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
262. *       I_CALLBACK_HTML_END_OF_LIST       = ' '
263. *       I_STRUCTURE_NAME   =
264. *       I_BACKGROUND_ID    = ' '
265. *       I_GRID_TITLE       =
266. *       I_GRID_SETTINGS    =
267. *       IS_LAYOUT          =
268.         IT_FIELDCAT        = IT_FCAT
269. *       IT_EXCLUDING       =
270. *       IT_SPECIAL_GROUPS  =
271. *       IT_SORT            =
272. *       IT_FILTER          =
273. *       IS_SEL_HIDE        =
274. *       I_DEFAULT          = 'X'
275.         I_SAVE             = 'A'
276. *       IS_VARIANT         =
277. *       IT_EVENTS          =
278. *       IT_EVENT_EXIT      =
279. *       IS_PRINT           =
280. *       IS_REPREP_ID       =
281. *       I_SCREEN_START_COLUMN             = 0
282. *       I_SCREEN_START_LINE               = 0
283. *       I_SCREEN_END_COLUMN               = 0
284. *       I_SCREEN_END_LINE  = 0
285. *       I_HTML_HEIGHT_TOP  = 0
286. *       I_HTML_HEIGHT_END  = 0
287. *       IT_ALV_GRAPHICS    =
288. *       IT_HYPERLINK       =
289. *       IT_ADD_FIELDCAT    =
290. *       IT_EXCEPT_QINFO    =
291. *       IR_SALV_FULLSCREEN_ADAPTER        =
292. *   IMPORTING
293. *       E_EXIT_CAUSED_BY_CALLER           =
294. *       ES_EXIT_CAUSED_BY_USER            =
295.       TABLES
296.         T_OUTTAB           = IT_OUTDATA
297.       EXCEPTIONS
298.         PROGRAM_ERROR      = 1
299.         OTHERS             = 2.
300.     IF SY-SUBRC <> 0.
301. * Implement suitable error handling here
302.     ENDIF.
305. ENDFORM.