excel資料判斷
DATA error_msg type string. PERFORM CHECK_DATA_REQUIRE CHANGING error_msg. if error_msg is not initial. WRITE:/ error_msg. EXIT. ENDIF. FORM CHECK_DATA_REQUIRE CHANGING i_error_msg. clear i_error_msg. DATA: last_row like line of gt_excel, last_row_val type i, current_row type i value 2. "第一排是標題不理 READ TABLE gt_excel index lines( gt_excel ) INTO gs_excel. last_row_val = gs_excel-row. while current_row <= last_row_val DO 5 TIMES. READ TABLE GT_EXCEL WITH KEY row = current_row and col = SY-INDEX. IF SY-SUBRC <> 0. "有一排一筆找不到 CONCATENATE current_row '列-' SY-INDEX '沒有資料---' cl_abap_char_utilities=>newline INTO i_error_msg ENDIF. ENDDO. endwhile. ENDFORM.