函数组: ALSMEX

ALSMEX FI-AA Legacy Data Transfer w/ Excel
函数模块：ALSM_EXCEL_TO_INTERNAL_TABLE
ALSM_EXCEL_TO_INTERNAL_TABLE，这个函数模块可以把用户本地 EXCEL 文件中的一个矩形块中的内容上传到一个内表中。

[@more@]

函数组 ALSMEX FI-AA Legacy Data Transfer w/ Excel

函数模块：ALSM_EXCEL_TO_INTERNAL_TABLE
ALSM_EXCEL_TO_INTERNAL_TABLE，这个函数模块可以把用户本地 EXCEL 文件中的一个矩形块中的内容上传到一个内表中。

输入参数：
FILENAME：最长 128 个字符的路径名称。
I_BEGIN_COL：导入单元格的开始列
I_BEGIN_ROW：导入单元格的开始行
I_END_COL：导入单元格的结束列
I_END_ROW：导入单元格的结束行

输出参数：
INTERN：内表，存储单元格的内容。结构如下：
－ROW：数据所在行
－COL：数据所在列
－VALUE：数据，最长 50 个字符，如果超过，则相同 ROW COL 的记录出现多行

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

ALSMEX_TABLINE修改为
ROW KCD_EX_ROW_N NUMC 5
COL KCD_EX_COL_N NUMC 5
VALUE CHAR50 CHAR 1023

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/22172240/viewspace-1024546/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/22172240/viewspace-1024546/