SAP文件的上传

上传文件前，取得上传文件的名称 FORM help_dis_u. DATA: lc_lname TYPE string, lc_txt TYPE string, lc_txtfl TYPE string, lt_filet TYPE TABLE OF file_table, lw_filet LIKE LINE OF lt_filet, lc_rc TYPE i, lc_usera TYPE i. lc_lname = text-d01. "本地文件名 * IF P_EXCEL IS NOT INITIAL."EXCEL lc_txt = text-d02. "'*.xls' lc_txtfl = text-d03. "'MS EXCEL|*.xls;*xlsx|' * ELSE."TXT * LC_TXT = TEXT-D04. "'*.txt' * LC_TXTFL = TEXT-D05. "'MS TXT|*.txt|' * ENDIF. * 打开对话框 CALL METHOD cl_gui_frontend_services=>file_open_dialog EXPORTING window_title = lc_lname "本地文件名 default_extension = lc_txt "'*.xls' file_filter = lc_txtfl "'MS EXCEL|*.xls|' CHANGING file_table = lt_filet "文件名表 rc = lc_rc "文件数 user_action = lc_usera "用户命令 EXCEPTIONS file_open_dialog_failed = 1 cntl_error = 2 error_no_gui = 3 not_supported_by_gui = 4 OTHERS = 5. IF sy-subrc <> 0. MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. ENDIF. IF lc_usera = 0. READ TABLE lt_filet INTO lw_filet INDEX 1. p_fname = lw_filet-filename. ENDIF. ENDFORM. "HELP_DIS_U 上传数据文件前，需要对数据文件进行检验 DATA: lc_rc TYPE c, lc_file TYPE string, lc_path(100) TYPE c. flg_stop = space. lc_file = p_fname. IF p_fname = space. SET CURSOR FIELD cns_fname. * 文件路径不能为空。 MESSAGE e001. ENDIF. CALL METHOD cl_gui_frontend_services=>file_exist EXPORTING file = lc_file "文件类型 RECEIVING result = lc_rc "结果 EXCEPTIONS cntl_error = 1 error_no_gui = 2 wrong_parameter = 3 not_supported_by_gui = 4 OTHERS = 5. IF lc_rc = space. SET CURSOR FIELD cns_fname. *文件路径&1不存在。 MESSAGE e002 WITH lc_path. ENDIF. 对检测完成后数据文件进行上传 DATA it_upload LIKE TABLE OF alsmex_tabline. DATA wa_upload LIKE LINE OF it_upload. FORM get_data_upload. REFRESH it_upload. *--UPLOAD DATA FROM EXCEL TO INTERNAL TABLE CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE' EXPORTING filename = p_fname "文件路径 i_begin_col = 1 i_begin_row = 1 i_end_col = 21 i_end_row = 65536 TABLES intern = it_upload EXCEPTIONS inconsistent_parameters = 1 upload_ole = 2 OTHERS = 3. IF sy-subrc = 0. ENDIF. ENDFORM." UPLOAD_FROM_EXCEL