How to upload normal excell file to ztable

Question

Hi All there,
Can anybody tell me how to upload normal excell file to ztable directly.
pl provide detail coding
Regards
Sagar

Answer 1

Hi Sagar,
   first upload the excel data into your internal table using a FM than upload the data to your ZTABLE using BDC.
parameters:
  p_file type rlgrap-filename          " File name
  data:
    lw_file  type string.              " File Path
data:
  t_bdcdata type
   standard table
         of bdcdata,
  fs_bdcdata type bdcdata.             " Work area for bdcdata
* Messages of call transaction
data:
  t_messtab type
   standard table
         of bdcmsgcoll,
  fs_messtab type bdcmsgcoll.          " Work area for messtab
at selection-screen on value-request for p_file.
  call function 'F4_FILENAME'
   exporting
     program_name        = syst-cprog
     dynpro_number       = syst-dynnr
     field_name          = ' '
   importing
     file_name           = p_file.
  lw_file = p_file.
  call function 'GUI_UPLOAD'
    exporting
      filename                    = lw_file
      filetype                    = 'ASC'
      has_field_separator         = 'X'
      dat_mode                    = 'X'
    tables
      data_tab                    = t_final_data
    exceptions
      file_open_error              = 1
      file_read_error              = 2
      no_batch                     = 3
      gui_refuse_filetransfer      = 4
      invalid_type                 = 5
      no_authority                 = 6
      unknown_error                = 7
      bad_data_format              = 8
      header_not_allowed           = 9
      separator_not_allowed        = 10
      header_too_long              = 11
      unknown_dp_error             = 12
      access_denied                = 13
      dp_out_of_memory             = 14
      disk_full                    = 15
      dp_timeout                   = 16
      others                       = 17.
  if sy-subrc <> 0.
    message id sy-msgid type sy-msgty number sy-msgno
          with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  endif.                               " IF SY-SUBRC <> 0
  if t_final_data is initial.
    message 'File not found'(003) type 'E'.
  endif.                               " IF T_FINAL_DATA IS INITIAL
end-of-selection.
  perform upload_0585_data_using_bdc.  " populate the bdcdata table using tcode SHDB
  call transaction 'PA30' using t_bdcdata
                           mode 'A'
                       messages into t_messtab.
form upload_0585_data_using_bdc.
  loop at t_final_data into fs_final_data.
perform bdc_field       using 'Q0585-ACNTR(07)'
                               w_curr.
perform bdc_field       using 'Q0585-ACOPC'
                               lw_flag.
perform bdc_field       using 'BDC_OKCODE'
                              '=UPD'.
perform bdc_dynpro      using 'MP058500' '2000'.
perform bdc_field       using 'BDC_OKCODE'
                              '/EBCK'.
perform bdc_dynpro      using 'SAPMP50A' '1000'.
endloop.
*        Start new screen                                              *
form bdc_dynpro using program dynpro.
  clear fs_bdcdata.
  fs_bdcdata-program  = program.
  fs_bdcdata-dynpro   = dynpro.
  fs_bdcdata-dynbegin = 'X'.
  append fs_bdcdata to t_bdcdata.
endform.                               " Form bdc_dynpro using program...
*        Insert field                                                  *
form bdc_field using fnam fval.
    clear fs_bdcdata.
    fs_bdcdata-fnam = fnam.
    fs_bdcdata-fval = fval.
    append fs_bdcdata to t_bdcdata.
endform.                               " Form bdc_field using fnam fval
With luck,
Pritam.