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.

ABAP