导入Excel数据进行ABAP程序行列转置

DATA: lt_load TYPE TABLE OF alsmex_tabline,
      ls_load TYPE alsmex_tabline.
  FIELD-SYMBOLS <fs_fld> TYPE any.
  CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
    EXPORTING
      filename                = p_file
      i_begin_col             = '1'  "p_col_b
      i_begin_row             = '2' "p_row_b
      i_end_col               = '200'  "p_col_e
      i_end_row               = '65000'
    TABLES
      intern                  = lt_load
    EXCEPTIONS
      inconsistent_parameters = 1
      upload_ole              = 2
      OTHERS                  = 3.
  IF sy-subrc <> 0.
*    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
*            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.
  LOOP AT  lt_load INTO ls_load.
    UNASSIGN <fs_fld>.
    ASSIGN COMPONENT ls_load-col OF STRUCTURE gw_out TO <fs_fld>.
    IF <fs_fld> IS ASSIGNED.
      <fs_fld> = ls_load-value.
    ENDIF.
    AT END OF row.
      APPEND gw_out TO gt_out.
      CLEAR gw_out.
    ENDAT.
  ENDLOOP.