ABAP - levantar un excel y pasarlo a una orden de SPOOL.

DATA: it_excel TYPE STANDARD TABLE OF alsmex_tabline,

      wa_excel TYPE alsmex_tabline,

      it_spool TYPE STANDARD TABLE OF tsp01,

      wa_spool TYPE tsp01.

* Cargar el archivo de Excel en la tabla interna

CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'

  EXPORTING

    filename          = 'ruta_del_archivo.xlsx'

    i_begin_col       = 'A'

    i_begin_row       = 1

  TABLES

    intern            = it_excel.

* Escribir los datos de la tabla interna en la orden de spool

LOOP AT it_excel INTO wa_excel.

  CLEAR wa_spool.

  wa_spool-tddest = 'LOCL'.

  wa_spool-tdsprt = 'LP01'.

  wa_spool-tdimmed = 'X'.

  wa_spool-tdnopr = 'X'.

  wa_spool-tdname = 'nombre_de_la_orden_de_spool'.

  wa_spool-tdpid = sy-pid.

  wa_spool-tdrequest = 'X'.

  CONCATENATE wa_excel-col1 wa_excel-col2 wa_excel-col3 INTO wa_spool-tdline.

  APPEND wa_spool TO it_spool.

ENDLOOP.

* Crear la orden de spool

CALL FUNCTION 'RSPO_CREATE_SPOOL_REQUEST'

  EXPORTING

    do_dialog        = 'X'

  TABLES

    t_spool          = it_spool.