Hola, ya he conseguido solucionarlo. Aquí dejo el código por si a alguien le hace falta.
*Declaramos el Type pool para la tabla de salida
TYPE-POOLS: truxs.
TABLES: dd02l.
*----------------------------------------------------------------------*
* TABLAS INTERNAS *
*----------------------------------------------------------------------*
DATA: gt_excel TYPE TABLE OF alsmex_tabline WITH HEADER LINE,
wa_excel TYPE alsmex_tabline.
DATA: BEGIN OF iout OCCURS 0,
rec(1000) TYPE c,
END OF iout.
DATA:
BEGIN OF gt_campos OCCURS 0,
campos(1000) TYPE c,
END OF gt_campos.
DATA:
BEGIN OF gt_condicion ,
condicion(100) TYPE c,
END OF gt_condicion.
*----------------------------------------------------------------------*
* VARIABLES *
*---------------------------------------------------------------------
DATA: gd_tabla(100) TYPE c.
DATA: fin_linea(100) TYPE c.
DATA: ti_campos LIKE STANDARD TABLE OF gt_campos WITH HEADER LINE.
DATA: ti_final LIKE STANDARD TABLE OF gt_campos.
DATA: wa_cabecera LIKE LINE OF gt_campos.
DATA: wa_campos LIKE LINE OF gt_campos.
DATA: ti_campos2 TYPE truxs_t_text_data.
DATA: i_tab LIKE STANDARD TABLE OF gt_campos WITH HEADER LINE.
DATA: where_tab LIKE STANDARD TABLE OF gt_condicion.
DATA: v_id TYPE i,
v_value(30),
gc_o TYPE c VALUE 'O',
gc_x TYPE c VALUE 'X',
gv_result TYPE c,
gv_existe TYPE c,
gv_error TYPE c.
*Esta tabla la utilizamos para las condiciones del excel.
DATA: where_clause(60) TYPE c.
DATA: generic_table_wa TYPE REF TO data,
generic_line TYPE REF TO data, "esta es la tabla general
o_elem TYPE REF TO cl_abap_elemdescr,
o_stru TYPE REF TO cl_abap_structdescr,
nomcamp(240) TYPE c,
intermitente TYPE c.
FIELD-SYMBOLS:
<table> TYPE ANY TABLE,
<wa> TYPE ANY,
<campo> TYPE ANY,
<comp_wa> TYPE abap_compdescr.
*----------------------------------------------------------------------
* PANTALLA DE SELECCIÓN
*---------------------------------------------------------------------
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (28) tcoment1.
PARAMETERS: p_fich(200) TYPE c MODIF ID a DEFAULT 'C:\' OBLIGATORY.
SELECTION-SCREEN END OF LINE.
*----------------------------------------------------------
INITIALIZATION.
tcoment1 = 'Carga el siguiente fichero:'.
*----------------------------------------------------------
*----------------------------------------------------------------------
* Evento AT SELECTION-SCREEN
*----------------------------------------------------------------------
AT SELECTION-SCREEN.
* Cuando se pulsa el botón de ejecutar realiza validaciones de los
* campos obligatorios
IF sy-ucomm = 'ONLI'.
IF p_fich IS INITIAL.
MESSAGE e001(zc) WITH 'El fichero es un campo'
'obligatorio'.
ENDIF.
ENDIF.
*----------------------------------------------------------------------
* Evento AT SELECTION-SCREEN ON VALUE-REQUEST
*----------------------------------------------------------------------
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_fich.
* Función que se encarga de la carga del excel de entrada.
CALL FUNCTION 'WS_FILENAME_GET'
EXPORTING
def_filename = p_fich
mask = ',*.XLS,*.xls.'
mode = gc_o
title = 'SUBIDA DE FICHERO'
IMPORTING
filename = p_fich
EXCEPTIONS
inv_winsys = 1
no_batch = 2
selection_cancel = 3
selection_error = 4
OTHERS = 5.
* Comprobamos que la carga del excel ha ido correctamente y si es así
* comprobamos que sea de tipo '.xls'
IF sy-subrc = 0.
IF p_fich NS '.XLS' OR
p_fich NS '.xls'.
MESSAGE i001(zc) WITH 'El archivo no es .XLS'.
gv_error = gc_x.
ENDIF.
ENDIF.
*--------------------------------------------------------------
TOP-OF-PAGE.
fin_linea = 0.
LOOP AT ti_campos.
* Buscar la longitud de salida de cada campo de la tabla
CONCATENATE gd_tabla '-' ti_campos INTO nomcamp.
o_elem ?= cl_abap_typedescr=>describe_by_name( nomcamp ).
* Escribir cada campo con la longitud de salida correspondiente
fin_linea = fin_linea + ( o_elem->output_length ) + 1.
ENDLOOP.
data linea(500).
linea = fin_linea + 1.
FORMAT COLOR COL_HEADING.
ULINE at (linea).
WRITE: / sy-vline NO-GAP.
LOOP AT ti_campos.
* Buscar la longitud de salida de cada campo de la tabla
CONCATENATE gd_tabla '-' ti_campos INTO nomcamp.
o_elem ?= cl_abap_typedescr=>describe_by_name( nomcamp ).
* Escribir cada campo con la longitud de salida correspondiente
WRITE:
AT (o_elem->output_length) ti_campos QUICKINFO ti_campos NO-GAP,
sy-vline NO-GAP.
ENDLOOP.
data: my_lisel(1000) type c .
clear my_lisel .
WRITE: / sy-vline NO-GAP.
ULINE at (fin_linea).
fin_linea = fin_linea + 1.
FORMAT RESET.
*----------------------------------------------------------------------
* PROCESO PRINCIPAL
*----------------------------------------------------------------------
START-OF-SELECTION.
*VERIFICAMOS QUE SE HAYA SELECCIONADO UN ARCHIVO DE EXCEL
*TAMBIÉN APLICA PARA EL FORMATO DE OFFICE 2007 .XLSX
* Comprueba de que no ha ocurrido ningún error en el evento anterior.
CHECK gv_error IS INITIAL.
*
** Inicializa las tablas y variables generales.
PERFORM inicializar.
IF p_fich IS NOT INITIAL.
PERFORM comprobar_si_existe.
ENDIF.
IF gv_existe = 'S'.
* Descarga el excel a una tabla interna.
PERFORM fichero_a_tabla_interna.
* Se mapea la tabla interna para mas tarde tratar los datos.
PERFORM mapear_tabla.
ELSE.
MESSAGE i001(zc) WITH 'El fichero o directorio no existe'.
ENDIF.
IF gd_tabla IS INITIAL.
MESSAGE e010(ad) WITH 'Error en el archivo, verifique datos'.
ELSE.
*SI TODO HA SALIDO BIEN, YA TENEMOS LOS DATOS EN NUESTRA TABLA INTERNA
* Crear la work area con referencia a la tabla para usar en el select
CREATE DATA generic_table_wa TYPE TABLE OF (gd_tabla).
ASSIGN generic_table_wa->* TO <table>.
CREATE DATA generic_table_wa TYPE (gd_tabla).
ASSIGN generic_table_wa->* TO <wa>.
CLEAR intermitente.
SELECT * INTO CORRESPONDING FIELDS OF TABLE <table>
FROM (gd_tabla) WHERE (where_tab).
* Control del color
IF intermitente = space.
FORMAT COLOR COL_BACKGROUND INTENSIFIED OFF.
intermitente = 'X'.
ELSE.
FORMAT COLOR COL_NORMAL INTENSIFIED ON.
CLEAR intermitente.
ENDIF.
* Mostrar el valor de todos los campos
LOOP AT <table> INTO <wa>.
WRITE: / sy-vline NO-GAP.
LOOP AT ti_campos.
ASSIGN COMPONENT ti_campos-campos OF STRUCTURE <wa> TO <campo>.
IF sy-subrc <> 0.
EXIT.
ENDIF.
WRITE: <campo> NO-GAP, sy-vline NO-GAP.
data: campo(255) type c.
move campo to wa_campos.
append wa_campos to ti_final.
clear campo.
NEW-LINE.
ENDLOOP.
refresh ti_final.
read line 1 field value sy-lisel into my_lisel.
my_lisel = my_lisel(fin_linea).
append my_lisel to ti_final.
data ent type i.
ent = 1.
while my_lisel is not INITIAL.
clear my_lisel.
ent = ent + 1.
read line ent field value sy-lisel into my_lisel.
my_lisel = my_lisel(fin_linea).
append my_lisel to ti_final.
ENDWHILE.
ent = ent + 1.
read line 1 field value sy-lisel into my_lisel.
my_lisel = my_lisel(fin_linea).
append my_lisel to ti_final.
ULINE at (fin_linea).
FORMAT COLOR COL_TOTAL INTENSIFIED OFF.
REFRESH ti_campos.
LOOP AT <table> ASSIGNING <campo>.
ti_campos = <campo>.
APPEND ti_campos.
ENDLOOP.
*Hacemos la bajada del archivo utilizando la tabla
*que obtuvimos en el paso anterior.
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
filename = 'D:\prueba.txt'
TABLES
data_tab = ti_final[]
EXCEPTIONS
file_write_error = 1
no_batch = 2
gui_refuse_filetransfer = 3
invalid_type = 4
no_authority = 5
unknown_error = 6.
ENDIF.
*---------------------------------------------------------------------
*
* Form INICIALIZAR
**----------------------------------------------------------------------
FORM inicializar .
REFRESH: gt_excel.
CLEAR: gv_result, gv_existe, gt_excel,
gv_error.
ENDFORM. " INICIALIZAR
*---------------------------------------------------------------------
*
* Form COMPROBAR_SI_EXISTE
*---------------------------------------------------------------------
FORM comprobar_si_existe .
DATA lv_ruta_fichero TYPE string.
MOVE p_fich TO lv_ruta_fichero.
* Método para ver si existe el fichero.
gv_result = cl_gui_frontend_services=>file_exist( lv_ruta_fichero ).
* En caso de que exista el fichero.
IF NOT gv_result IS INITIAL.
gv_existe = 'S'.
ENDIF.
ENDFORM. " COMPROBAR_SI_EXISTE
*---------------------------------------------------------------------
*
* Form FICHERO_A_TABLA_INTERNA
**--------------------------------------------------------------------
FORM fichero_a_tabla_interna .
DATA: lv_fichero LIKE rlgrap-filename.
MOVE p_fich TO lv_fichero.
* Función que mete un excel en una tabla interna.
CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
EXPORTING
filename = lv_fichero
i_begin_col = 1
i_begin_row = 1
i_end_col = 6
i_end_row = 10000
TABLES
intern = gt_excel
EXCEPTIONS
inconsistent_parameters = 1
upload_ole = 2
OTHERS = 3.
IF sy-subrc <> 0.
MESSAGE i001(zc) WITH 'Error en el archivo, verifique datos'.
ENDIF.
ENDFORM. " FICHERO_A_TABLA_INTERNA
*---------------------------------------------------------------------
* Form MAPEAR_TABLA
*----------------------------------------------------------------------
FORM mapear_tabla .
* Se recorre la tabla interna para mapearla y crear una tabla interna
* que falicite su lectura y se pueda trabajar mejor con ella.
* ORDENAMOS DATOS EN TABLA FINAL.
LOOP AT gt_excel.
IF gt_excel-row = '0001' AND gt_excel-col = '0003'.
MOVE gt_excel-value TO gd_tabla.
ENDIF.
IF gt_excel-row >= 3 AND gt_excel-col = 3.
APPEND gt_excel-value TO ti_campos.
ENDIF.
IF gt_excel-row >= 1 AND gt_excel-col = 6.
APPEND gt_excel-value TO where_tab.
ENDIF.
ENDLOOP
ENDFORM.
