当前位置：首页 > news >正文

OLE读取EXCEL内容

news 2025/9/20 18:14:35

  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.