[问题解决]大数据量上载excel文件数据到SAP系统[ALSM_EXCEL_TO_INTERNAL_TABLE]详解编程语言

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,       "Plant 
root        TYPE ymoe_compalloc-root,        "Root material 
maktxr      TYPE makt-maktx,                 "Description ( R ) 
parent      TYPE ymoe_compalloc-parent,      "Parent 
maktxp      TYPE makt-maktx,                 "Description ( P ) 
beskz       TYPE marc-beskz,                 "Procurement Type 
sobsl       TYPE marc-sobsl,                 "Special Procurement Type 
component   TYPE ymoe_compalloc-component,   "Component 
maktxc      TYPE makt-maktx,                 "Description ( C ) 
prodline    TYPE ymoe_compalloc-prodline,    "Production Line 
workstation TYPE ymoe_compalloc-workstation, "Work Station 
END 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 Name 
AT 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 table 
CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE' 
EXPORTING 
filename                = p_file 
i_begin_col             = '1' 
i_begin_row             = g_begin_row 
i_end_col               = '11' 
i_end_row               = g_end_row 
TABLES 
intern                  = git_temp 
EXCEPTIONS 
inconsistent_parameters = 1 
upload_ole              = 2 
OTHERS                  = 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. 
*&---------------------------------------------------------------------* 
*&      Form  FRM_GET_FILENAME 
*&---------------------------------------------------------------------* 
*       text 
*----------------------------------------------------------------------* 
*  -->  p1        text 
*  <--  p2        text 
*----------------------------------------------------------------------* 
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_dialog 
EXPORTING 
*     window_title            = 
default_extension       = '.xlsx' 
*     default_filename        = 
file_filter             = l_filter 
*     with_encoding           = 
*     initial_directory       = 
*     multiselection          = 
CHANGING 
file_table              = lit_file 
rc                      = l_rc 
*     user_action             = 
*     file_encoding           = 
EXCEPTIONS 
file_open_dialog_failed = 1 
cntl_error              = 2 
error_no_gui            = 3 
not_supported_by_gui    = 4 
OTHERS                  = 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.