客戶端文本文件或Excel文件導入與導出
TEXT_CONVERT_XLS_TO_SAP
TEXT_CONVERT_XLS_TO_SAP函數可以將本地的文本文件(列與列之間默認使用TAB鍵分開,但也可以指定)或真正的Excel文件上傳到服務內表中,並且文件轉換成內表中的數據是自動完成,不需要手動,這與ALSM_EXCEL_TO_INTERNAL_TABLE函數是不一樣的
PARAMETERS:p_file LIKE rlgrap-filename OBLIGATORY.
TYPE-POOLS: truxs.
DATA: BEGIN OF i_data OCCURS 0,
c(2),
n(2) TYPE n,
i TYPE i,
d TYPE d,
END OF i_data.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file. "彈出選擇文件對話框
CALL FUNCTION 'WS_FILENAME_GET'
EXPORTING
* DEF_FILENAME = ' '
def_path = 'C:\'
"Structure of MASK: ,<text>,<FILTERGROUP>.
"Structure of FILTERGROUP: <filter>;<filter>*
mask = ',Excel File,*.xls;*.xlsx;*.txt.'
title = 'Window Title:請選擇文件'
"彈出框的模式 S -- 用來保存文件 O -- 用來打開文件
MODE = 'S'
IMPORTING
filename = p_file
* RC =
EXCEPTIONS
INV_WINSYS = 1
NO_BATCH = 2
SELECTION_CANCEL = 3"如果用戶取消了對話框
SELECTION_ERROR = 4
OTHERS = 5.
START-OF-SELECTION.
DATA: il_raw TYPE truxs_t_text_data.
CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'
EXPORTING
* I_FIELD_SEPERATOR =
* i_line_header = 'X' "文本中的第一行是否是標題頭,如果是則不會讀取
i_tab_raw_data = il_raw "該參數實際上沒有使用到,但為必輸參數
i_filename = p_file
TABLES
i_tab_converted_data = i_data.
BREAK-POINT.
ALSM_EXCEL_TO_INTERNAL_TABLE
通過ALSM_EXCEL_TO_INTERNAL_TABLE函數可以將上面Excel中的數據導入到下面結構的內表中:
最后我們還需要手動將上面一個個單元格轉換為成一行行,轉換后如下:
DATA: filetab TYPE filetable WITH HEADER LINE .
DATA: rc TYPE i.
DATA: outtab TYPE TABLE OF mara WITH HEADER LINE .
DATA: itab TYPE TABLE OF alsmex_tabline WITH HEADER LINE.
DATA:g_file TYPE rlgrap-filename.
FIELD-SYMBOLS: <fs>.
PARAMETERS: p_file TYPE string.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
"打開文件選擇對話框
CALL METHOD cl_gui_frontend_services=>file_open_dialog
EXPORTING
default_filename = p_file
CHANGING
rc = rc
file_table = filetab[].
READ TABLE filetab INDEX 1.
IF sy-subrc EQ 0.
p_file = filetab-filename.
ENDIF.
START-OF-SELECTION.
g_file = p_file.
CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
EXPORTING
filename = g_file
i_begin_col = 1
i_begin_row = 1
i_end_col = 255
i_end_row = 65536
TABLES
intern = itab[].
* DELETE itab WHERE row = 1. "刪除字段名行
LOOP AT itab.
ON CHANGE OF itab-row.
IF sy-tabix <> 1.
APPEND outtab.
CLEAR outtab.
ENDIF.
ENDON.
"將列轉換為內表行的形式
ASSIGN COMPONENT itab-col OF STRUCTURE outtab TO <fs>.
<fs> = itab-value.
ENDLOOP.
APPEND outtab."最后一條APPEND到內表中
使用ALSM_EXCEL_TO_INTERNAL_TABLE 時,單元格內容的長度是有限制,好像是50個,我們可以采用如下辦法來解決問題:將ALSM_EXCEL_TO_INTERNAL_TABLE Copy出來,然后Copy一個INTERN所參考的Structure,把Value的長度改為4096,這樣大多數情況下都能勝任了。另外,如果不要這樣做,那我使用前面的TEXT_CONVERT_XLS_TO_SAP函數應該可以。
SAP_CONVERT_TO_XLS_FORMAT
CALL FUNCTION 'SAP_CONVERT_TO_XLS_FORMAT'
EXPORTING
i_filename = file1
TABLES
i_tab_sap_data = itable1
EXCEPTIONS
conversion_failed = 1.
以上代碼是將內表itable1寫到一個EXCEL文件file1中。如果EXCEL文件已經存在,那么將被覆蓋。
結果顯示,內表的內容是寫到了EXCEL文件中,但如果原來的EXCEL文件行記錄(假如M行)多於內表的行(假如N行),那末只覆蓋一部分(M行中的前N行)。