SAP-BDC

Former Member — Sun, 04 Jun 2006 02:42:33 GMT

Hai,

Plz explain how to upload data from excel sheet to internal table?

Re: SAP-BDC

Former Member — Sun, 04 Jun 2006 02:47:14 GMT

Hi Srinivasa,

Please check this sample code.

data: itab like alsmex_tabline occurs 0 with header line.
 
TYPES: Begin of t_record,
    name1 like itab-value,
    name2 like itab-value,
    age   like itab-value,
    End of t_record.
DATA: it_record type standard table of t_record initial size 0,
      wa_record type t_record.
DATA: gd_currentrow type i.
 
*Selection Screen Declaration
*----------------------------
PARAMETER p_infile like rlgrap-filename.
 
 
************************************************************************
*START OF SELECTION
 call function 'ALSM_EXCEL_TO_INTERNAL_TABLE'
       exporting
            filename                = p_infile
            i_begin_col             = '1'
            i_begin_row             = '2'  "Do not require headings
            i_end_col               = '14'
            i_end_row               = '31'
       tables
            intern                  = itab
       exceptions
            inconsistent_parameters = 1
            upload_ole              = 2
            others                  = 3.
  if sy-subrc <> 0.
    message e010(zz) with text-001. "Problem uploading Excel Spreadsheet
  endif.
 
* Sort table by rows and colums
  sort itab by row col.
 
* Get first row retrieved
  read table itab index 1.
 
* Set first row retrieved to current row
  gd_currentrow = itab-row.
 
  loop at itab.
*   Reset values for next row
    if itab-row ne gd_currentrow.
      append wa_record to it_record.
      clear wa_record.
      gd_currentrow = itab-row.
    endif.
 
    case itab-col.
      when '0001'.                              "First name
        wa_record-name1 = itab-value.
      when '0002'.                              "Surname
        wa_record-name2 = itab-value.
      when '0003'.                              "Age
        wa_record-age   = itab-value.
    endcase.
  endloop.
  append wa_record to it_record.
*!! Excel data is now contained within the internal table IT_RECORD
 
* Display report data for illustration purposes
  loop at it_record into wa_record.
    write:/     sy-vline,
           (10) wa_record-name1, sy-vline,
           (10) wa_record-name2, sy-vline,
           (10) wa_record-age, sy-vline.
  endloop.

Hope this will help.

Regards,

Ferry Lianto

Please reward points if helpful.

topic SAP-BDC in Application Development and Automation Discussions

SAP-BDC

Re: SAP-BDC