Prueba esto:
* Registro para el excel.
data: begin of t_celdas occurs 0,
row like alsmex_tabline-row,
col like alsmex_tabline-col,
value like alsmex_tabline-value,
end of t_celdas.
Constants:
c_filini type i value 1,
c_colini type i value 1,
c_filend type i value 5000,
c_colend type i value 100.
luego
call function 'ALSM_EXCEL_TO_INTERNAL_TABLE'
EXPORTING
filename = p_filec
i_begin_col = c_colini
i_begin_row = c_filini
i_end_col = c_colend
i_end_row = c_filend
TABLES
intern = t_celdas.
y luego
data : le_celda like t_celdas.
field-symbols : <fs>.
loop at t_celdas.
le_celda = t_celdas.
* Asignar campo
assign component le_celda-col of structure gt_legajo to <fs>.
if sy-subrc eq 0.
* Si no sale, asigna valor
<fs> = le_celda-value.
endif.
at end of row.
* Agregar Registro
append gt_legajo.
clear gt_legajo.
endat.
endloop.
|