http://blog.chinaunix.net/uid-8527621-id-2029978.html
FM:ALSM_EXCEL_TO_INTERNAL_TABLE 是上载Excel文件的一个函数,但是这个函数有两个限制。
一是每个CELL只能导入前50个字符,二是如果超过9999行,行号会初始化为从零开始
其实解决起来很简单,只要改一下结构 ALSMEX_TABLINE 的字段就行了,然后COPY
ALSM_EXCEL_TO_INTERNAL_TABLE 为
ZALSM_EXCEL_TO_INTERNAL_TABLE ,并做少许改动即可。
另外,如果要上载有打开密码保护的Excel,只要修改一下OLE的 OPEN 语句即可。
以及导入指定的Sheet等。。
注意COPY出来的函数的
Global Data 里面应该有下列语句:
TYPE-POOLS: ole2.
TYPES: ty_d_itabvalue TYPE zalsmex_tabline-value,
ty_t_itab TYPE zalsmex_tabline OCCURS 0,
BEGIN OF ty_s_senderline,
line(4096) TYPE c,
END OF ty_s_senderline,
ty_t_sender TYPE ty_s_senderline OCCURS 0.
ty_t_itab TYPE zalsmex_tabline OCCURS 0,
BEGIN OF ty_s_senderline,
line(4096) TYPE c,
END OF ty_s_senderline,
ty_t_sender TYPE ty_s_senderline OCCURS 0.
CONSTANTS: gc_esc VALUE '"'.