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 '"'.