比如excel里面不全是我們需要的，還有一些需要處理EXCEL中的日期，去掉‘-’等

DATA:begin_row TYPE i VALUE '2',begin_col TYPE i VALUE '1',end_row   TYPE i VALUE '9999',end_col   TYPE i VALUE '90',filename  TYPE rlgrap-filename,gt_excel  TYPE zalsmex_tabline OCCURS 0 WITH HEADER LINE,gt_excel_copy  TYPE zalsmex_tabline OCCURS 0 WITH HEADER LINE,num       TYPE i,rt_col    TYPE RANGE OF kcd_ex_col_n,rs_col    LIKE LINE OF rt_col,_n_r      TYPE char2,_r        TYPE char1.FIELD-SYMBOLS <fs> .REFRESH:gt_gts_file_line_copy,gt_gts_file_line_2,gt_gts_file_line._n_r = cl_abap_char_utilities=>cr_lf._r = _n_r+1(1).rs_col-sign    = 'I'.rs_col-option  = 'EQ'.rs_col-low     = '0002'.APPEND rs_col TO rt_col.rs_col-low     = '0006'.APPEND rs_col TO rt_col.rs_col-low     = '0010'.APPEND rs_col TO rt_col.rs_col-low     = '0011'.APPEND rs_col TO rt_col.rs_col-low     = '0012'.APPEND rs_col TO rt_col.rs_col-low     = '0013'.APPEND rs_col TO rt_col.rs_col-low     = '0014'.APPEND rs_col TO rt_col.rs_col-low     = '0015'.APPEND rs_col TO rt_col.rs_col-low     = '0016'.APPEND rs_col TO rt_col.rs_col-low     = '0017'.APPEND rs_col TO rt_col.rs_col-low     = '0019'.APPEND rs_col TO rt_col.rs_col-low     = '0020'.APPEND rs_col TO rt_col.rs_col-low     = '0021'.APPEND rs_col TO rt_col.rs_col-low     = '0022'.APPEND rs_col TO rt_col.rs_col-low     = '0023'.APPEND rs_col TO rt_col.rs_col-low     = '0024'.APPEND rs_col TO rt_col.rs_col-low     = '0025'.APPEND rs_col TO rt_col.rs_col-low     = '0029'.APPEND rs_col TO rt_col.rs_col-low     = '0054'.APPEND rs_col TO rt_col.rs_col-low     = '0055'.APPEND rs_col TO rt_col.rs_col-low     = '0056'.APPEND rs_col TO rt_col.rs_col-low     = '0057'.APPEND rs_col TO rt_col.rs_col-low     = '0058'.APPEND rs_col TO rt_col.rs_col-low     = '0060'.APPEND rs_col TO rt_col.rs_col-low     = '0063'.APPEND rs_col TO rt_col.rs_col-low     = '0064'.APPEND rs_col TO rt_col.filename = p_path.CALL FUNCTION 'ZALSM_EXCEL_TO_INTERNAL_TABLE'EXPORTINGfilename    = filenamei_begin_col = begin_coli_begin_row = begin_rowi_end_col   = end_coli_end_row   = end_rowTABLESintern      = gt_excel[].IF gt_excel[] IS INITIAL.MESSAGE '請填充數據' TYPE 'S' DISPLAY LIKE 'E'.
*    .EXIT.ENDIF.SORT gt_excel[] BY row col value.
*  DELETE gt_excel[] WHERE col NOT IN rt_col.*&--------------added by handlmq 17.05.2024 13:04:31  begin---------------------&*
data:I(2) TYPE I.gt_excel_copy[] = gt_excel[].DATA:zn TYPE kcd_ex_row_n.DATA:n  TYPE kcd_ex_col_n.LOOP AT gt_excel_copy.ON CHANGE OF gt_excel_copy-row.zn = gt_excel_copy-row.CLEAR:n.ENDON.n = n + 1.IF n <> gt_excel_copy-col.I = gt_excel_copy-col - n.DO I  TIMES.gt_excel-col = n.gt_excel-row = zn.APPEND gt_excel.n = n + 1.ENDDO.ENDIF.ENDLOOP.
*&--------------added by handlmq 17.05.2024 13:04:31  end-----------------------&*SORT gt_excel[] BY row col value.DELETE gt_excel[] WHERE col NOT IN rt_col.LOOP AT gt_excel.ON CHANGE OF gt_excel-row.IF sy-tabix NE 1.APPEND gs_gts_file_line_copy TO gt_gts_file_line_copy.CLEAR: gs_gts_file_line_copy,num.ENDIF.ENDON.num = num + 1.ASSIGN COMPONENT num OF STRUCTURE gs_gts_file_line_copy TO <fs>.IF <fs> IS ASSIGNED .IF num = 18.REPLACE '-' INTO gt_excel-value WITH ``.REPLACE '-' INTO gt_excel-value WITH ``.ENDIF.IF num = 17.REPLACE ALL OCCURRENCES OF _r IN gt_excel-value WITH ` `.REPLACE ALL OCCURRENCES OF '"' IN gt_excel-value WITH ''.ENDIF.<fs> =  gt_excel-value.UNASSIGN <fs>.ENDIF.ENDLOOP.APPEND gs_gts_file_line_copy TO gt_gts_file_line_copy.