[SAP ABAP开发技术总结]客户端文本文件、Excel文件上传下载
声明：原创作品，转载时请注明文章来自SAP师太技术博客（ 博/客/园ｗｗｗ.ｃｎｂｌｏｇｓ.ｃｏｍ）：www.cnblogs.com/jiangzhengjun，并以超链接形式标明文章原始出处，否则将追究法律责任！原文链接：http://www.cnblogs.com/jiangzhengjun/p/4265992.html
客户端文本文件或Excel文件导入与导出... 1
TEXT_CONVERT_XLS_TO_SAP. 1
ALSM_EXCEL_TO_INTERNAL_TABLE. 3
SAP_CONVERT_TO_XLS_FORMAT. 5
客户端文本文件或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 TABLEfiletab INDEX1.
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
ABAP 内表导出到excel
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行）。
页:
[1]