用OLE获取Excel的Sheet名

最新推荐文章于 2021-02-16 07:15:41 发布

zhoueeee

最新推荐文章于 2021-02-16 07:15:41 发布

阅读量1.2k

点赞数

分类专栏： SAP 开发文章标签： excel object c

SAP 开发专栏收录该内容

13 篇文章 0 订阅

订阅专栏

使用OLE的方法获取本地指定Excel的Sheet的名字列表：

REPORT zzxtest.

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 .

DATA : BEGIN 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' .