[转帖]ABAP实践学习--将excel表读入ABAP内表
2007-06-27 18:16
330 查看
REPORT YTEST015 .
*定义读入EXCEL的内表,ABAP本身已经定义格式
DATA:BEGIN OF IEXCEL OCCURS 0.
INCLUDE STRUCTURE ALSMEX_TABLINE.
DATA:END OF IEXCEL.
*输入文件名参数
PARAMETERS: FN1 LIKE RLGRAP-FILENAME MEMORY ID M01.
*从已知文件名读入内表,限100列1000行
CALL FUNCTION ’ALSM_EXCEL_TO_INTERNAL_TABLE’
EXPORTING
FILENAME = FN1
I_BEGIN_COL = 1
I_BEGIN_ROW = 1
I_END_COL = 1000
I_END_ROW = 1000
TABLES
INTERN = IEXCEL
EXCEPTIONS
INCONSISTENT_PARAMETERS = 1
UPLOAD_OLE = 2
OTHERS = 3.
IF SY-SUBRC <> 0.
WRITE:/ ’读入文件错误!’,fn1.
ELSE.
*循环读取内表并打印
LOOP AT IEXCEL.
WRITE IEXCEL-VALUE(2).
AT END OF ROW.
WRITE:/ .
ENDAT.
ENDLOOP.
ENDIF.
*定义读入EXCEL的内表,ABAP本身已经定义格式
DATA:BEGIN OF IEXCEL OCCURS 0.
INCLUDE STRUCTURE ALSMEX_TABLINE.
DATA:END OF IEXCEL.
*输入文件名参数
PARAMETERS: FN1 LIKE RLGRAP-FILENAME MEMORY ID M01.
*从已知文件名读入内表,限100列1000行
CALL FUNCTION ’ALSM_EXCEL_TO_INTERNAL_TABLE’
EXPORTING
FILENAME = FN1
I_BEGIN_COL = 1
I_BEGIN_ROW = 1
I_END_COL = 1000
I_END_ROW = 1000
TABLES
INTERN = IEXCEL
EXCEPTIONS
INCONSISTENT_PARAMETERS = 1
UPLOAD_OLE = 2
OTHERS = 3.
IF SY-SUBRC <> 0.
WRITE:/ ’读入文件错误!’,fn1.
ELSE.
*循环读取内表并打印
LOOP AT IEXCEL.
WRITE IEXCEL-VALUE(2).
AT END OF ROW.
WRITE:/ .
ENDAT.
ENDLOOP.
ENDIF.
相关文章推荐
- [转帖]ABAP实践学习--ABAP中将SAP数据按格式保存到EXCEL(OLE)
- [转帖]ABAP实践学习--ABAP中将SAP数据按格式保存到EXCEL(OLE)
- [转帖]ABAP实践学习--BDC批量输入写成内表程序
- [转帖]ABAP实践学习-内表的常用处理
- [转帖]ABAP实践学习-内表的常用处理
- ABAP实践学习--直接导出到excel实例
- [转帖]网友学习心得----从ABAP编程入手
- ABAP实践学习——包材分配表
- ABAP实践学习-现金日记表
- iMOOC学习笔记:Java的Excel读写操作入门实践-利用POI生成Excel文件(一)
- EXCEL中将多个单元格内容合并到一个单元格中的方法(转帖+亲自实践)
- ABAP实践学习--灰色的ALV显示
- Excel合并后的单元格,每个都有内容(转帖+亲自实践)
- java:log4j学习(3)-转帖:Log4J 最佳实践之全能配置文件
- iMOOC学习笔记:Java的Excel读写操作入门实践-利用POI解析Excel文件(二)
- .net如何更快的将数据导入Excel(转帖+亲自实践)
- 机器学习实践中应避免的七种常见错误
- Android学习实践:10.单选按钮RadioButton
- ubuntu入门-读鸟哥的私房菜 边学习边实践
- Python爬虫学习(七)----Scrapy框架实践