ALSM_EXCEL_TO_INTERNAL_TABLE上载Excel文件的一个函数

http://blogold.chinaunix.net/u1/40527/showart.php?id=1970184(轉）
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.
CONSTANTS: gc_esc VALUE '"'.