读取EXCEL数据

点击(此处)折叠或打开

1. form data_upload.
   
2.   data: ls_excel type zalsmex_tabline,
   
3.         lt_excel type table of zalsmex_tabline.
   
4. 
   
5.   data: lv_idx like sy-tabix.
   
6.   field-symbols: <lv_value> type any.
   
7. 
   
8.   if p_path is initial.
   
9.     message s000(z1) with '请输入上传文件名！' display like 'E'.
   
10.     leave list-processing.
    
11.   endif.
    
12. 
    
13.   call function 'ZALSM_EXCEL_TO_INTERNAL_TABLE2'
    
14.     exporting
    
15.       filename = p_path
    
16.       i_begin_col = 1
    
17.       i_begin_row = 2
    
18.       i_end_col = 10
    
19.       i_end_row = 65536
    
20.     tables
    
21.       intern = lt_excel
    
22.     exceptions
    
23.       inconsistent_parameters = 1
    
24.       upload_ole = 2
    
25.       others = 3.
    
26.   if sy-subrc <> 0.
    
27.     message id sy-msgid type sy-msgty number sy-msgno
    
28.             with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    
29.   endif.
    
30. 
    
31.   sort lt_excel by row col.
    
32. 
    
33.   loop at lt_excel into ls_excel.
    
34.     lv_idx = ls_excel-col.
    
35. 
    
36.     assign component lv_idx of structure gs_itab to <lv_value>.
    
37. 
    
38.     <lv_value> = ls_excel-value.
    
39. 
    
40.     at end of row.
    
41.       append gs_itab to gt_itab.
    
42.       clear gs_itab.
    
43.     endat.
    
44.   endloop.
    
45. endform.