數據上載到內表

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.