DATA: MYEXCEL TYPE OLE2_OBJECT,MYSHEET TYPE OLE2_OBJECT,MYCELL TYPE OLE2_OBJECT,MYROW TYPE OLE2_OBJECT,MYWORKBOOK TYPE OLE2_OBJECT,MYRANGE TYPE OLE2_OBJECT.DATA:LD_RC TYPE I,RS(30) TYPE c."打开excel应用CREATE OBJECT MYEXCEL 'EXCEL.APPLICATION'."获取工作簿CALL METHOD OF MYEXCEL 'WORKBOOKS' = MYWORKBOOK."打开工作簿CALL METHOD OF MYWORKBOOK 'OPEN'EXPORTING#1 = 'C:\Users\Desktop\A.xlsx'."设置活动的工作簿GET PROPERTY OF MYEXCEL 'ACTIVEWORKBOOK' = MYWORKBOOK.*--------------------------------------------------------------------*BEGIN 250909 *读取固定页签的具体行的数据*设置活动的SHEET页 * CALL METHOD OF MYWORKBOOK 'WORKSHEETS' = MYSHEET * EXPORTING * #1 = 2. "*设置活动的SHEET页CALL METHOD OF MYEXCEL 'WORKSHEETS' = MYSHEETEXPORTING#1 = 2.CALL METHOD OF MYSHEET 'ACTIVATE'. *读取范围单元格CALL METHOD OF MYSHEET 'RANGE' = MYRANGEEXPORTING #1 = 'A6:C6'."A6:读取特定单元格DO 2 TIMES.DO 2 TIMES.CALL METHOD OF MYRANGE 'CELLS' = MYCELLEXPORTING #1 = '1' "ROW#2 = sy-index. "COLGET PROPERTY OF MYCELL 'VALUE' = RS.ENDDO.ENDDO. *读取特定单元格 * CALL METHOD OF MYSHEET 'CELLS' = MYCELL * EXPORTING #1 = '6' "ROW * #2 = 'A'. "COL * GET PROPERTY OF MYCELL 'VALUE' = RS. *--------------------------------------------------------------------*END 250909CALL METHOD OF MYWORKBOOK 'CLOSE' EXPORTING #1 = 0."不保存CALL METHOD OF MYEXCEL 'QUIT'.FREE OBJECT MYSHEET.FREE OBJECT MYWORKBOOK.FREE OBJECT MYEXCEL.WRITE:/ 'RS:' && RS.