Chinaunix首页 | 论坛 | 博客
  • 博客访问: 7185197
  • 博文数量: 655
  • 博客积分: 10264
  • 博客等级: 上将
  • 技术积分: 8278
  • 用 户 组: 普通用户
  • 注册时间: 2007-06-04 17:47
个人简介

ABAP顾问

文章分类

全部博文(655)

文章存档

2017年(2)

2014年(8)

2013年(3)

2012年(2)

2011年(18)

2010年(102)

2009年(137)

2008年(274)

2007年(134)

分类:

2009-06-15 12:57:22

 
使用OLE的方法获取本地指定Excel的Sheet的名字列表:
 
 
REPORT z_barry_test .

INCLUDE ole2incl.

PARAMETERS: p_file LIKE rlgrap-filename DEFAULT 'C:\test.xls'.

DATA: application TYPE ole2_object,
      book        TYPE ole2_object,
      sheet        TYPE ole2_object .

DATABEGIN OF itab_sheetname OCCURS 0 ,
        sheetname(40) ,
      END OF itab_sheetname .
DATA: sheetcount TYPE i .

START-OF-SELECTION.

  CREATE OBJECT application 'Excel.Application'.
  SET PROPERTY OF application  'Visible' = 0 .

  CALL METHOD OF application 'Workbooks' = book.
  CALL METHOD OF book 'Open'
    EXPORTING #1 = p_file.

  CALL METHOD OF application 'WORKSHEETS' = sheet.
  GET PROPERTY OF sheet 'COUNT' = sheetcount.
  DO sheetcount TIMES.
    CALL METHOD OF application 'WORKSHEETS' = sheet
      EXPORTING #1 = sy-index.
    GET PROPERTY OF sheet 'NAME' = itab_sheetname-sheetname .
    APPEND itab_sheetname.
  ENDDO.

  LOOP AT itab_sheetname.
    WRITE / itab_sheetname.
  ENDLOOP.

  GET PROPERTY OF application 'ActiveWorkbook' = book .
*  CALL METHOD OF book 'SAVE' .
  CALL METHOD OF book 'close'.
  CALL METHOD OF application 'QUIT'.
阅读(5706) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~