通过 OLE 上传资料

转载 2015年07月08日 10:15:31
通过 ALSM_EXCEL_TO_INTERNAL_TABLE 上传Excle中资料有个限制就是单个字段的大小最大为50个字符。 
所以对于有些备注类的就不行了, 用下面的方式, 就没这个限制了。
*&---------------------------------------------------------------------*
*& Report  Z_AF_088
*&
*&---------------------------------------------------------------------*
REPORT  z_af_088
        LINE-COUNT 10
        LINE-SIZE  1000.

INCLUDE ole2incl.
*定义OLE变量
DATA:excel TYPE ole2_object,
     sheet TYPE ole2_object,
     cell TYPE ole2_object,
     workbook TYPE ole2_object.

DATABEGIN OF itab OCCURS 0,
  a(224),
  b(224),
  c(224),
  d(224),
END OF itab.

DATA:val1(224TYPE c.
DATAr1 TYPE i,
      r2 TYPE i.
DATAcnt TYPE i.
*输入文件名参数
PARAMETERS:fn1 LIKE rlgrap-filename MEMORY ID m01.

START-OF-SELECTION.
  PERFORM upload_from_pc USING fn1.

  DESCRIBE TABLE itab LINES cnt.
  WRITEcnt.
  LOOP AT itab.
    WRITEitab-a.
    WRITE  itab-b.
    WRITE  itab-c.
    WRITE  itab-d.
  ENDLOOP.
*&---------------------------------------------------------------------*
*&      Form  UPLOAD_FROM_PC
*&---------------------------------------------------------------------*
FORM upload_from_pc  USING    p_path.
  FIELD-SYMBOLS .
  DATAvf_index TYPE i.
  datacnt type i.
*启动excel
  CREATE OBJECT excel 'EXCEL.APPLICATION'    "创建excel对象
  CALL METHOD OF excel 'WORKBOOKS' workbook"调用excel的方法
  IF sy-subrc NE .
    WRITE 'EXCEL 错误!'.
    LEAVE PROGRAM.
  ENDIF.
  SET PROPERTY OF excel 'VISIBLE' 0        "设置读取Excel时, 是否可视
*EXCEL 文件打开
  CALL METHOD OF
      workbook
      'OPEN'

    EXPORTING
      #1       p_path.
  IF sy-subrc NE .
    WRITE '处理错误!'.
    LEAVE PROGRAM.
  ENDIF.
*第一页
  CALL METHOD OF
      excel
      'WORKSHEETS' sheet
    EXPORTING
      #1           1.
*读取前10行4列
  DO 10 TIMES.
    r1 sy-index.
    DO TIMES.
      r2 sy-index.
      MOVE sy-index TO vf_index.
      ASSIGN COMPONENT vf_index OF STRUCTURE itab TO .
      CALL METHOD OF     "指定单元格,并读取值属性
          excel
          'CELLS' cell
        EXPORTING
          #1      r1
          #2      r2.
      GET PROPERTY OF cell 'VALUE' val1  "读取excel文件中的内容是用get property of excel
      CONDENSE val1.
      IF val1 EQ space.
        cnt cnt 1.
      ENDIF.
      MOVE val1 TO .
      IF r2 EQ 4.
        IF cnt <> 4.
          APPEND itab.
          CLEAR itab.
        ENDIF.
        CLEAR cnt.
      ENDIF.
    ENDDO.
  ENDDO.

****关闭WORKBOOK
  CALL METHOD OF
      workbook
      'CLOSE'.
****释放对象****
  FREE OBJECT cell.
  FREE OBJECT workbook.

ENDFORM                   UPLOAD_FROM_PC

相关文章推荐

OLE上传及下载并修改excel

对于比较复杂的格式的EXCEL,不方便自己用程序来写格式,此时可以用OLE将EXCEL模板传到系统当中去, 然后从系统中下载该模板后再填充需要的数据保存即可实现要想的EXCEL.   上传exc...
  • iamah
  • iamah
  • 2012-05-10 17:55
  • 1575

用OLE操作Excel(目前最全的资料)-转自http://www.lewensky.cn/read.php/212.htm

本文档部分资料来自互联网,大部分是ccrun(老妖)在Excel中通过录制宏-->察看宏代码-->转为CB代码而来.本文档不断更新中.欢迎大家关注. 要在应用程序中控制Excel的运行,首先必须...
  • zlz616
  • zlz616
  • 2013-08-15 14:02
  • 1486

android 选择手机图库,实现修改个人资料,头像上传功能,可直接使用

个人资料,修改头像效果图DEMO地址:http://download.csdn.net/detail/wxk105/9737763项目中包括了:头像上传源码;MyBitmapUtils,图片的各种处理...

Android模拟器下怎么建一个SD卡及其上传资料和文件夹的建立及经常用的adb命令全解

Android模拟器下怎么建一个SD卡及其上传资料和文件夹的建立全解 最近在做一个应用要在android模拟器上建一个SD卡,放进去一些文件。就自己的心得写一些: 有两个方法,这个大家在百度上一搜...

限制远程桌面用户连接WIN7上无法上传和下载资料到本地

在win7中,打开gpedit.msc 打开本地计算机策略-->计算机配置-->管理模版-->Windows组件   在Windows组件-->远程桌面服务-->远程桌面绘画主机-->设备和资...
  • higara
  • higara
  • 2013-11-28 13:54
  • 1670

个人资料上传头像模块,拍照+图库+图片剪裁+圆形头像

个人资料上传头像模块,包括拍照+图库+图片剪裁+圆形头像

Android高效率编码-第三方SDK详解系列(二)——Bmob后端云开发,实现登录注册,更改资料,修改密码,邮箱验证,上传,下载,推送消息,缩略图加载等功能

Android高效率编码-第三方SDK详解系列(二)——Bmob后端云开发,实现登录注册,更改资料,修改密码,邮箱验证,上传,下载,推送消息,缩略图加载等功能我的本意是第二篇写Mob的shareSDK...

Android高效率编码-第三方SDK详解系列(二)——Bmob后端云开发,实现登录注册,更改资料,修改密码,邮箱验证,上传,下载,推送消息,缩略图加载等功能

Android高效率编码-第三方SDK详解系列(二)——Bmob后端云开发,实现登录注册,更改资料,修改密码,邮箱验证,上传,下载,推送消息,缩略图加载等功能 我的本意是第二篇写Mob的...

周末加班是家常便饭,这社会不只是程序员命苦,还有比我们更苦命的娃子,抽这个蛋疼的时间上传JBPM资料

周末加班是家常便饭,这社会不只是程序员命苦,还有比我们更苦命的娃子,抽这个蛋疼的时间上传JBPM资料 源代码下载地址:http://www.zuidaima.com/share/15504636461...

ADO 程序员参考资料 OLE DB

  • 2010-04-11 20:28
  • 1.40MB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

(最多只允许输入30个字)