ABAP动态生成代码上传EXCEL数据

开发技术：

1.文本文件上载技术

2.动态程序代码生成技术

3.ABAP动态程序执行技术

4.TXT文本文件对应用Table字段编辑技术

 

注意事项：

文件文件编辑过程中时间日期格式为 20060201 120000 表示 2006.02.01 12：00：00

文本文件中不能包含除字符，数字之外的其他特殊符号。假如Table中对应的字段数据为空时，在编辑数据时也对应该列为空。

EXCEL 文件必须带表头。

 

程序代码：如下

*&---------------------------------------------------------------------*
*& Report  Z_CBO_ABAP_XLS
*&
*&----------------------------------------------------------------*
* 程序说明  Table数据Upload 程序 专门导入EXCEL
* 模块:版本
* 参考文档
* 应用顾问
* 程序开发  ZHOUXU
* 开发日期  2011-02-24
*&------------------------------------------------------------------*
*&更改记录
*&日期          更改人     模块:版本    功能说明书
*&
*&
*&---------------------------------------------------------------*
REPORT z_cbo_abap_xls.

TABLES : dd03l,dd02t.
*------------------------------------------------------------*
*    内表
*-----------------------------------------------------------------*
DATA: BEGIN OF tab OCCURS 10,
        fcode(4),
      END OF tab.
DATA : BEGIN OF itab OCCURS 0,
        chk(1) TYPE c,                     " check box
        tabname    LIKE dd03l-tabname,     " Table name
        fieldname  LIKE dd03l-fieldname,   " Feld Name
        position   LIKE dd03l-position,    " Table
        keyflag    LIKE dd03l-keyflag,     " Primary Key
        datatype   LIKE dd03l-datatype,    " Data Type
        intlen     LIKE dd03l-leng,
       END OF itab.
DATA itab1 LIKE itab OCCURS 0 WITH