[问题解决]大数据量上载excel文件数据到SAP系统[ALSM_EXCEL_TO...

来自 : www.baidusap.com/abap/report/2 发布时间：2021-03-25

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140 REPORT ztest_upload_excel.DATA:g_begin_row TYPE i, g_end_row TYPE i.DATA:git_temp TYPE TABLE OF alsmex_tabline, gwa_temp TYPE alsmex_tabline.TYPES:BEGIN OF ty_upload,werks TYPE ymoe_compalloc-werks, \"PlantrootTYPE ymoe_compalloc-root,\"Root materialmaktxrTYPE makt-maktx, \"Description ( R )parentTYPE ymoe_compalloc-parent,\"ParentmaktxpTYPE makt-maktx, \"Description ( P )beskz TYPE marc-beskz, \"Procurement Typesobsl TYPE marc-sobsl, \"Special Procurement Typecomponent TYPE ymoe_compalloc-component, \"ComponentmaktxcTYPE makt-maktx, \"Description ( C )prodlineTYPE ymoe_compalloc-prodline,\"Production Lineworkstation TYPE ymoe_compalloc-workstation, \"Work StationEND OF ty_upload.DATA:git_upload TYPE STANDARD TABLE OF ty_upload, gwa_upload LIKE LINE OF git_upload.PARAMETERS:p_file TYPE rlgrap-filename DEFAULT \'C:\\temp\\upload.xlsx\' OBLIGATORY. \"File NameAT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.PERFORM frm_get_filename.*----------------------------------------------------------------------** Start-of-Selection*----------------------------------------------------------------------*START-OF-SELECTION.g_begin_row = 2.g_end_row = g_begin_row + 40000.DO 10 TIMES.REFRESH:git_temp.* Get EXCEL-Sheet in internal tableCALL FUNCTION \'ALSM_EXCEL_TO_INTERNAL_TABLE\'EXPORTINGfilename= p_filei_begin_col = \'1\'i_begin_row = g_begin_rowi_end_col = \'11\'i_end_row = g_end_rowTABLESintern= git_tempEXCEPTIONSinconsistent_parameters = 1upload_ole= 2OTHERS= 3.IF git_temp[] IS INITIAL.EXIT.ELSE.LOOP AT git_temp INTO gwa_temp.AT NEW row.CLEAR gwa_upload.ENDAT.CASE gwa_temp-col.WHEN \'1\'.gwa_upload-werks = gwa_temp-value.WHEN \'2\'.gwa_upload-root = gwa_temp-value.WHEN \'3\'.gwa_upload-maktxr = gwa_temp-value.WHEN \'4\'.gwa_upload-parent = gwa_temp-value.WHEN \'5\'.gwa_upload-maktxp = gwa_temp-value.WHEN \'6\'.gwa_upload-beskz = gwa_temp-value.WHEN \'7\'.gwa_upload-sobsl = gwa_temp-value.WHEN \'8\'.gwa_upload-component = gwa_temp-value.WHEN \'9\'.gwa_upload-maktxc = gwa_temp-value.WHEN \'10\'.gwa_upload-prodline = gwa_temp-value.WHEN \'11\'.gwa_upload-workstation = gwa_temp-value.ENDCASE.AT END OF row.APPEND gwa_upload TO git_upload.ENDAT.ENDLOOP.g_begin_row = g_end_row + 1.g_end_row = g_begin_row + 40000.ENDIF.ENDDO.* ---------------------------------------------------------------------** FormFRM_GET_FILENAME* ---------------------------------------------------------------------** text*----------------------------------------------------------------------**-- p1text* --p2text*----------------------------------------------------------------------*FORM frm_get_filename .DATA:l_filter TYPE string, lit_file TYPE STANDARD TABLE OF file_table, lwa_file LIKE LINE OF lit_file, l_rc TYPE i.CLEAR:p_file.l_filter = \'Microsoft Excel Files (*.XLS;*.XLSX;*.XLSM)|*.XLS;*.XLSX;*.XLSM|\'.CALL METHOD cl_gui_frontend_services= file_open_dialogEXPORTING* window_title=default_extension = \'.xlsx\'* default_filename=file_filter = l_filter* with_encoding =* initial_directory =* multiselection=CHANGINGfile_table= lit_filerc= l_rc* user_action =* file_encoding =EXCEPTIONSfile_open_dialog_failed = 1cntl_error= 2error_no_gui= 3not_supported_by_gui= 4OTHERS= 5.IF sy-subrc = 0.READ TABLE lit_file INTO lwa_file INDEX 1.IF sy-subrc = 0.p_file = lwa_file-filename.ENDIF.ENDIF.ENDFORM.