通过 OLE 上传资料

通过 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.

DATA: BEGIN OF itab OCCURS 0,
  a(224),
  b(224),
  c(224),
  d(224),
END OF itab.

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

START-OF-SELECTION.
PERFORM upload_from_pc USING fn1.

DESCRIBE TABLE itab LINES cnt.
  WRITE: cnt.
  LOOP AT itab.
    WRITE: / itab-a.
    WRITE:   itab-b.
    WRITE:   itab-c.
    WRITE:   itab-d.
  ENDLOOP.
*&---------------------------------------------------------------------*
*&      Form  UPLOAD_FROM_PC
*&---------------------------------------------------------------------*
FORM upload_from_pc  USING    p_path.
  FIELD-SYMBOLS : .
  DATA: vf_index TYPE i.
  data: cnt type i.
*启动excel
  CREATE OBJECT excel 'EXCEL.APPLICATION'.     "创建excel对象
  CALL METHOD OF excel 'WORKBOOKS' = workbook. "调用excel的方法
  IF sy-subrc NE 0 .
    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 0 .
    WRITE : / '处理错误！'.
    LEAVE PROGRAM.
  ENDIF.
*第一页
  CALL METHOD OF
      excel
      'WORKSHEETS' = sheet
    EXPORTING
      #1           = 1.
*读取前10行4列
  DO 10 TIMES.
    r1 = sy-index.
    DO 4 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 上传资料相关推荐

微信公众号怎么上传资料?
公众号没有直接上传文件的功能,我们可以换一种思路实现公众号文章附件功能. 公众号上传资料的话,公众号本身没有这些功能,但我们可以通过公众号中添加小程序的方式实现.小程序点开就是下载资料页面就行了.相信 ...
国家税务总局河南省电子税务局中，交契税时，无法上传资料采集的附件的解决方法
国家税务总局河南省电子税务局中,交契税时,无法上传资料采集的附件. [解决方法]: 使用IE浏览器,并环境检查合格,截图如下: 河南税务局实战手册 http://www.zrscsoft.com/si ...
CSDN如何上传资料
CSDN是一个程序员以及准程序员爱逛的论坛,在这里可以学习更多的知识,也可以分享自己的知识. 第一步,打开csdn官网,点击下载按钮. 第二步,找到我要上传按钮,点击我要上传. 第三步,输入帐号和密码 ...
上传书籍进度信息到服务器...,使用HttpWebRequest实现大文件上传资料.pdf
Twilight Software Development Studio © 2011 使用HttpWebRequest 实现大文件上传 Author:xuzhihong Create Date:20 ...
文件服务器无法上传资料,该文件未上传至服务器怎么回事
该文件未上传至服务器怎么回事内容精选换一换华为云帮助中心,为用户提供产品简介.价格说明.购买指南.用户指南.API参考.最佳实践.常见问题.视频帮助等技术文档,帮助您快速上手使用华为云服务. W ...
上传资料总是显示服务器异常,云盘上传总是服务器异常
云盘上传总是服务器异常内容精选换一换挂载有NVMe SSD盘的Linux弹性云服务器(如P1型云服务器)发生故障时,需联系管理员通过异地重建的方式进行恢复,新建故障弹性云服务器.如果故障弹性云服 ...
python怎么编程上传资料_Python实现文件上传
原博文 2019-09-03 20:38 − server端: import socket import os sk = socket.socket() address = ('127.0.0.1', ...
计算机应用基础851,最新2020秋广东开放大学计算机应用基础本科上传资料作业2文档（2页）-原创力文档...
Sheet2 sheet1 姓名迟春艳宋灵辉任慧霞张玉鹏李卫东付祖荣焦中明杨丹妍张积盛王继锋王永隆陶春光刘炳光吕秀涛赵业绵齐晓鹏王晶晶张秀双姜殿琴车延波闫少林 ...
Form_通过FND_FNDFLUPL标准功能上传CSV控件（案例）
2014-06-08 Created By BaoXinjian 一.总结 1. 上传资料 (1).通过调用function<FND_FNDFLUPL>,打开上传文件页面: (2).从表f ...

通过 OLE 上传资料

通过 OLE 上传资料相关推荐

最新文章

热门文章