使用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 .
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'.
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'.
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/23495244/viewspace-694699/ ，如需转载，请注明出处，否则将追究法律责任。
请登录后发表评论
登录
全部评论
