关闭

通过 OLE 上传资料

270人阅读 评论(0) 收藏 举报
分类:
通过 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
0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:3163688次
    • 积分:51088
    • 等级:
    • 排名:第57名
    • 原创:1896篇
    • 转载:2447篇
    • 译文:101篇
    • 评论:253条
    博客专栏
    最新评论
    微信公众号
      为你推荐最新的博文~更有惊喜等着你