How to put entries in the table

Question

Hy,
i have a table in which i have to enter the enteries, it's a user created Z table. How can i upload the enteries in that table from a excel file.
thanks in advance.
regards,
kartikey rawat.

Answer 1

Hi,
Look at this sample code....
tables zfbillplanitm.
data: begin of itab occurs 0,
      bukrs like zfbillplanitm-bukrs,
      fplnr like zfbillplanitm-fplnr,
     fpltr like zfbillplanitm-fpltr,
      fpltr(6) type c,
      vbeln like zfbillplanitm-vbeln,
      overwrite,
      end of itab.
data bplan_it like standard table of zfbillplanitm with header line.
data: w_cref1 type ref to zcl_standard_report_interfaces.
data: w_foot1 type string,
      w_foot2 type string,
      w_foot3 type string,
      w_flag  type c.
data: begin of error_it occurs 0,
      bukrs like zfbillplanitm-bukrs,
      fplnr like zfbillplanitm-fplnr,
     fpltr like zfbillplanitm-fpltr,
      fpltr(6) type c,
      vbeln like zfbillplanitm-vbeln,
      error(40) type c,
      end of error_it.
data inv like vbrk-vbeln.
constants: a value '|'.
selection-screen: begin of block sel with frame title text-001.
parameters: p_file type rlgrap-filename.
parameters: test as checkbox default 'X'.
selection-screen: end of block sel.
  clear itab.
  call function 'WS_UPLOAD'
       exporting
            codepage                = ' '
            filename                = p_file
            filetype                = 'DAT'
       tables
            data_tab                = itab
       exceptions
            conversion_error        = 1
            file_open_error         = 2
            file_read_error         = 3
            invalid_type            = 4
            no_batch                = 5
            unknown_error           = 6
            invalid_table_width     = 7
            gui_refuse_filetransfer = 8
            customer_error          = 9
            others                  = 10.
  if sy-subrc ne 0.
    message e000 with text-e01.
    stop.
  endif.
  sort itab by bukrs fplnr.
****here you do what ever manipulation you want in ITAB.
Later ITAB data was processed into bplan_it.
    loop at bplan_it.
      update zfbillplanitm from bplan_it.
      if sy-subrc eq 0.
        commit work.
      else.
        rollback work.
      endif.
      clear bplan_it.
    endloop.
I hope this will helps u if not revert back.
Thanks.
If this helps u reward with points.