Von Excel zu SAP

Code: Alles auswählen.

*&---------------------------------------------------------------------*
*& Report  ZIMPORT
*&
*&---------------------------------------------------------------------*
*& PROGRAMM ZUM IMPORTIEREN VON TEXTFILES
*&
*&---------------------------------------------------------------------*

REPORT  ZIMPORT no standard page heading.

*Data Declaration
*----------------
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 source like rlgrap-filename.


************************************************************************
*START OF SELECTION
 call function 'ALSM_EXCEL_TO_INTERNAL_TABLE'
       exporting
            filename                = source
            i_begin_col             = '1'
            i_begin_row             = '1'  "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.
    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'.                              "Vorname
        wa_record-name1 = itab-value.
      when '0002'.                              "Nachname
        wa_record-name2 = itab-value.
      when '0003'.                              "Alter
        wa_record-age   = itab-value.
    endcase.
  endloop.
  append wa_record to it_record.

  write:/     sy-vline,
         (10) 'Name', sy-vline,
         (10) 'Vorname', sy-vline,
         (10) 'Alter', sy-vline.

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