Quantcast
Channel: SCN: Message List
Viewing all articles
Browse latest Browse all 8594

Re: upload data to internal table without fixing the excel column width

$
0
0

Hi Vinay,

 

you may use "ALSM_EXCEL_TO_INTERNAL_TABLE" or "KCD_EXCEL_OLE_TO_INT_CONVERT" 

function modules for upload excel file into an internal table. Please find the below code for your reference.

 

 

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.

 

 

* 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.

 

 

 

Regards,

Krishna.


Viewing all articles
Browse latest Browse all 8594

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>