少年休闲海

少年休闲海的SAP世界

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

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
         
阅读更多
个人分类: 程序人生 ABAPer
上一篇获取当前汇率
下一篇ABAP 语句优化
想对作者说点什么? 我来说一句

OLE/COM 对象查看器

2016年10月10日 164KB 下载

inside ole

2007年07月30日 2.23MB 下载

vb中OLE之WORD

2011年05月04日 177KB 下载

PB插入OLE控件崩溃的解决办法

2017年12月29日 369B 下载

微软 ole 格式解析完整代码

2011年03月31日 173KB 下载

C++OLE 文件拖拽

2018年02月01日 64.03MB 下载

没有更多推荐了,返回首页

关闭
关闭