数据上载到内表

Excel数据上载到内表

excel数据表

上载后内表数据

程序代码：

 1 PARAMETERS:p_file LIKE rlgrap-filename OBLIGATORY.
 2 TYPE-POOLS: truxs.
 3 DATA: BEGIN OF i_data OCCURS 0,
 4         c(2),
 5         n(2) TYPE n,
 6         i TYPE i,
 7         d TYPE d,
 8       END OF i_data.
 9 
10 AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file. "弹出选择文件对话框
11   CALL FUNCTION 'WS_FILENAME_GET'
12     EXPORTING
13 *     DEF_FILENAME     = ' '
14       def_path         = 'C:\'
15       "Structure of MASK: ,<text>,<FILTERGROUP>.
16       "Structure of FILTERGROUP: <filter>;<filter>*
17       mask             = ',Excel File,*.xls;*.xlsx;*.txt.'
18       title            = 'Window Title:请选择文件'
19       "弹出框的模式 S -- 用来保存文件 O -- 用来打开文件
20       mode             = 'O'
21     IMPORTING
22       filename         = p_file
23 *     RC               =
24     EXCEPTIONS
25       inv_winsys       = 1
26       no_batch         = 2
27       selection_cancel = 3 "若是用户取消了对话框
28       selection_error  = 4
29       OTHERS           = 5.
30 
31 START-OF-SELECTION.
32   DATA: il_raw TYPE truxs_t_text_data.
33   CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'
34     EXPORTING
35 *     I_FIELD_SEPERATOR    =
36       i_line_header        = 'X' "文本中的第一行是不是标题头，若是是则不会读取
37       i_tab_raw_data       = il_raw "该参数实际上没有使用到，但为必输参数
38       i_filename           = p_file
39     TABLES
40       i_tab_converted_data = i_data.
41   BREAK-POINT.