How to upload all excel files data from one folder into internal table.

Question

Dear All,
I have one requirement, It is like I want to upload the frontend file data into my internal table, But here my scenario is;
If I have one folder ( Called : Temp) in my frontend system, in this folder ( Called : Temp)  I have 100 excel files. In each excel file I have some 1000u2019s of entries. All these data of every file I want to take into my internal table.
If I have one file I can go for, CALL METHOD cl_gui_frontend_services=>file_open_dialog and then upload method to upload. But I want to take all these excel files from that folder at a time, is there any class or any thing is there..? plz help..
Thanks...
Edited by: satishsuri on Jan 11, 2011 9:33 AM

Answer 1

Hi satishsuri ,
You will have to use 3 methods together :
CALL METHOD cl_gui_frontend_services=>directory_browse "Browse the Directory
CALL METHOD cl_gui_frontend_services=>directory_list_files "Get all the files from the directory
CALL METHOD cl_gui_frontend_services=>gui_upload "Upload each file in a loop
Example:
TYPES: BEGIN OF ty_data,
         line TYPE string,
      END OF ty_data.
DATA: str_file TYPE string,
      str_dir TYPE string,
      it_file_table TYPE STANDARD TABLE OF file_info,
      wa_file_table TYPE file_info,
      v_count TYPE i,
      it_data TYPE STANDARD TABLE OF ty_data,
      wa_data TYPE ty_data.
CALL METHOD cl_gui_frontend_services=>directory_browse
  CHANGING
    selected_folder = str_dir.
CALL METHOD cl_gui_frontend_services=>directory_list_files
  EXPORTING
    directory  = str_dir
  CHANGING
    file_table = it_file_table
    count      = v_count.
LOOP AT it_file_table INTO wa_file_table.
  CONCATENATE str_dir wa_file_table-filename INTO str_file SEPARATED BY '\'.
  CALL METHOD cl_gui_frontend_services=>gui_upload
    EXPORTING
      filename = str_file
      filetype = 'ASC'
    CHANGING
      data_tab = it_data.
  LOOP AT it_data INTO wa_data.
    WRITE : / wa_data-line.
  ENDLOOP.
  ULINE.
ENDLOOP.
Regards,
Jovito