ITPub博客

首页 > Linux操作系统 > Linux操作系统 > 用OLE获取Excel的Sheet名

用OLE获取Excel的Sheet名

原创 Linux操作系统 作者:hzq2010 时间:2011-05-07 14:25:45 0 删除 编辑
使用OLE的方法获取本地指定Excel的Sheet的名字列表:
 
 
SPAN { font-family: "新宋体"; font-size: 11pt; color: #000000; } .L1S31 { color: #808080; } .L1S32 { color: #3399FF; } .L1S33 { color: #4DA619; } .L1S52 { color: #0000FF; } 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'.

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/23495244/viewspace-694699/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论

注册时间:2010-03-11

  • 博文量
    196
  • 访问量
    172154