DATA lv_filename TYPE string. TYPES:BEGIN OF ty_excel, werks TYPE marc-werks, bwart TYPE matdoc-bwart, cpudt TYPE matdoc-cpudt, "凭证日期 budat TYPE matdoc-budat, "过账日期 hsdat TYPE matdoc-hsdat, "生产日期 lifnr TYPE matdoc-lifnr, "供应商 20181031 lgort TYPE matdoc-lgort, insmk TYPE matdoc-insmk, "库存类型 matnr TYPE matdoc-matnr, erfmg TYPE matdoc-erfmg, charg TYPE matdoc-charg, erfme TYPE matdoc-erfme, exbwr TYPE matdoc-exbwr, zhxm TYPE zmmb011_t-zhxm, END OF ty_excel. DATA: gt_excel TYPE STANDARD TABLE OF ty_excel. PARAMETERS p_file TYPE rlgrap-filename MODIF ID imp. lv_filename = p_file. CALL FUNCTION 'ZBC_UPLOAD_EXCEL_OLE' EXPORTING pi_filename = lv_filename pi_startline = '2' pi_startcolumn = '1' TABLES pt_tab = gt_excel EXCEPTIONS open_file_err = 1 OTHERS = 2. IF sy-subrc <> 0. MESSAGE e003(zbc) WITH sy-msgv1 sy-msgv2. ELSE. SORT gt_excel. ENDIF.
ZBC_UPLOAD_EXCEL_OLE
都必输入
FUNCTION zbc_upload_excel_ole. *"---------------------------------------------------------------------- *"*"本地接口： *" IMPORTING *" REFERENCE(PI_FILENAME) TYPE STRING *" REFERENCE(PI_SHEETNAME) TYPE STRING DEFAULT 'Sheet1' *" REFERENCE(PI_STARTLINE) TYPE I DEFAULT '1' *" REFERENCE(PI_STARTCOLUMN) TYPE I DEFAULT '1' *" REFERENCE(PI_SKPCL_TBL) TYPE I DEFAULT '0' *" TABLES *" PT_TAB *" EXCEPTIONS *" OPEN_FILE_ERR *"---------------------------------------------------------------------- DATA: lt_tabc TYPE STANDARD TABLE OF zchar30000, lw_tabc TYPE zchar30000, lv_tabix TYPE sy-tabix, lt_cell TYPE STANDARD TABLE OF string, lw_cell TYPE string, lv_cell_tabix TYPE sy-tabix. DATA: lv_column_num TYPE i, lv_column_skp TYPE i, lw_tab_ref TYPE REF TO data. DATA: lo_cx_root TYPE REF TO cx_root. DATA: lv_message TYPE string. DATA descr_ref TYPE REF TO cl_abap_structdescr. FIELD-SYMBOLS: <lw_tab> TYPE any, <lv_value> TYPE any. CREATE DATA lw_tab_ref LIKE LINE OF pt_tab. ASSIGN lw_tab_ref->* TO <lw_tab>. lv_column_skp = pi_skpcl_tbl. *->把数据放到内表 CALL FUNCTION 'ZBC_EXCEL_2_INNER_TABLE' EXPORTING pi_filename = pi_filename pi_sheetname = pi_sheetname TABLES pt_tab = lt_tabc EXCEPTIONS file_open_error = 1 OTHERS = 2. IF sy-subrc <> 0. MESSAGE e000(zmm) WITH sy-msgv1 RAISING open_file_err. "&1&2&3&4 ENDIF. *->把数据切割到内表 LOOP AT lt_tabc INTO lw_tabc. lv_tabix = sy-tabix. CHECK lv_tabix >= pi_startline. CLEAR lt_cell. SPLIT lw_tabc AT cl_abap_char_utilities=>horizontal_tab INTO TABLE lt_cell. LOOP AT lt_cell INTO lw_cell. lv_cell_tabix = sy-tabix. lv_column_num = lv_cell_tabix - pi_startcolumn + 1 + lv_column_skp. CHECK lv_column_num > 0. ASSIGN COMPONENT lv_column_num OF STRUCTURE <lw_tab> TO <lv_value>. CHECK sy-subrc = 0. TRY. <lv_value> = lw_cell. CATCH cx_root INTO lo_cx_root. descr_ref ?= cl_abap_typedescr=>describe_by_data( pt_tab ). READ TABLE descr_ref->components INTO DATA(ls_name) INDEX lv_column_num. lv_message = '第' && lv_tabix && '行' && '第' && lv_column_num && '列字段名为'&& ls_name-name && '错误的值为:' && lw_cell. MESSAGE e000(zmm) WITH lv_tabix lv_column_num lv_message RAISING open_file_err. ENDTRY. ENDLOOP. IF <lw_tab> IS NOT INITIAL. APPEND <lw_tab> TO pt_tab. CLEAR <lw_tab>. ENDIF. ENDLOOP. ENDFUNCTION.
ZBC_EXCEL_2_INNER_TABLE
其余必输入
FUNCTION zbc_excel_2_inner_table. *"---------------------------------------------------------------------- *"*"本地接口： *" IMPORTING *" VALUE(PI_FILENAME) TYPE STRING *" VALUE(PI_SHEETNAME) TYPE STRING DEFAULT 'Sheet1' *" TABLES *" PT_TAB *" EXCEPTIONS *" FILE_OPEN_ERROR *"---------------------------------------------------------------------- TYPE-POOLS: ole2. DATA: ole_excel TYPE ole2_object, ole_workbooks TYPE ole2_object, ole_workbook TYPE ole2_object, ole_worksheets TYPE ole2_object, ole_worksheet TYPE ole2_object, ole_cell_begin TYPE ole2_object, ole_cell_end TYPE ole2_object, ole_range TYPE ole2_object. DATA: lv_subrc TYPE sy-subrc, lv_begin_col TYPE i, lv_end_col TYPE i, lv_begin_row TYPE i, lv_end_row TYPE i, lv_add_rows TYPE i VALUE 3000. DATA: lt_excel_tab TYPE STANDARD TABLE OF zchar30000, lw_excel_tab TYPE zchar30000, lw_excel_tab_tmp TYPE zchar30000. *->生成Excel object CREATE OBJECT ole_excel 'Excel.Application'. IF sy-subrc <> 0. MESSAGE e001(zbc) RAISING file_open_error. ENDIF. *-> SET PROPERTY OF ole_excel 'Visible' = 0. GET PROPERTY OF ole_excel 'Workbooks' = ole_workbooks. CALL METHOD OF ole_workbooks 'Open' = ole_workbook EXPORTING #1 = pi_filename. *->取得Sheet GET PROPERTY OF ole_workbook 'Worksheets' = ole_worksheets EXPORTING #1 = pi_sheetname. IF sy-subrc = 0. CALL METHOD OF ole_worksheets 'Activate'. ELSE. CALL METHOD OF ole_excel 'QUIT'. MESSAGE e000(zmm) WITH '打开Sheet页出错,请检查Sheet名称' RAISING file_open_error. ENDIF. *->把Sheet上数据Copy 到 ClipBoard lv_begin_col = 1. lv_end_col = 256. lv_begin_row = 0. lv_end_row = 0. WHILE lv_subrc IS INITIAL. IF lv_begin_row IS INITIAL. lv_begin_row = 1. lv_end_row = lv_add_rows. ELSE. lv_begin_row = lv_begin_row + lv_add_rows. lv_end_row = lv_end_row + lv_add_rows. ENDIF. CALL METHOD OF ole_worksheets 'Cells' = ole_cell_begin EXPORTING #1 = lv_begin_row #2 = lv_begin_col. CALL METHOD OF ole_worksheets 'Cells' = ole_cell_end EXPORTING #1 = lv_end_row #2 = lv_end_col. CALL METHOD OF ole_worksheets 'RANGE' = ole_range EXPORTING #1 = ole_cell_begin #2 = ole_cell_end. CALL METHOD OF ole_range 'SELECT'. IF sy-subrc <> 0. EXIT. ENDIF. CALL METHOD OF ole_range 'COPY'. * read clipboard into ABAP CALL METHOD cl_gui_frontend_services=>clipboard_import IMPORTING data = lt_excel_tab EXCEPTIONS cntl_error = 1 error_no_gui = 2 not_supported_by_gui = 3 OTHERS = 4. IF sy-subrc <> 0. CALL METHOD OF ole_excel 'QUIT'. MESSAGE 'Error during import of clipboard contents' TYPE 'A'. ENDIF. lv_subrc = 4. LOOP AT lt_excel_tab INTO lw_excel_tab. lw_excel_tab_tmp = lw_excel_tab. REPLACE ALL OCCURRENCES OF cl_abap_char_utilities=>horizontal_tab IN lw_excel_tab_tmp WITH space. IF NOT ( lw_excel_tab_tmp = space OR lw_excel_tab_tmp IS INITIAL ). APPEND lw_excel_tab TO pt_tab. CLEAR lv_subrc. ENDIF. ENDLOOP. CLEAR lt_excel_tab. ENDWHILE. DATA: lv_rc TYPE i. CALL METHOD cl_gui_frontend_services=>clipboard_export IMPORTING data = lt_excel_tab CHANGING rc = lv_rc EXCEPTIONS cntl_error = 1 * ERROR_NO_GUI = 2 * NOT_SUPPORTED_BY_GUI = 3 OTHERS = 4. * CALL METHOD OF * ole_worksheets * 'COLSE'. * CALL METHOD OF * ole_workbook * 'COLSE'. * CALL METHOD OF * ole_workbooks * 'CLOSE'. * SET PROPERTY OF ole_excel 'DisplayAlerts' = 0. *前者并不会清空剪贴板，但是会让一些警告消息不再弹出 *如果你对文件做了更改，不保存就关闭的话，会有提示是否关闭的对话框， *这个时候displayalerts = 0就起作用了，可以跳过这个关闭提示 set property of ole_excel 'CutCopyMode' = 0. *或者这个 CALL METHOD OF ole_excel 'QUIT'. FREE OBJECT: ole_excel , ole_workbooks , ole_workbook , ole_worksheets , ole_worksheet , ole_cell_begin , ole_cell_end , ole_range . ENDFUNCTION.