ABAP直接从excel读取值

ABAP直接从excel读取值

 

 

REPORT   YTEST00T.
INCLUDE ole2incl.
data:excel TYPE ole2_object, "定义ole变量
      sheet TYPE ole2_object,
      cell  TYPE ole2_object,
      workbook TYPE ole2_object.
data :val1(30) type c.
data: r1 TYPE i,
       r2 TYPE i.
*输出文件名参数
PARAMETERS: fn1 LIKE rlgrap-filename MEMORY ID M01.
*启动excel
create OBJECT excel 'excel.application'.
CALL METHOD of excel 'workbooks' = workbook.
   if sy-subrc <> 0.
   WRITE:/'excel 错误!'.
   LEAVE PROGRAM.
   ENDIF.
"是excel 可视
   set PROPERTY OF EXCEL 'VISIBLE' = 1.
"打开文件
CALL METHOD of workbook 'OPEN' EXPORTING #1 = fn1.
IF sy-subrc <> 0.
  WRITE:/ 'read file error!',fn1.
  LEAVE PROGRAM.
ENDIF.
"第一页
CALL METHOD OF excel 'worksheets' = sheet EXPORTING #1 = 1.
"读出前10行10列
do 10 times.
  WRITE:/ '行：',sy-index.
   r1 = sy-index.
  do 10 TIMES.
   r2 = sy-index.
  "指定单元格，并读取值属性
  CALL METHOD of excel 'CELLS' = CELL EXPORTING #1 = r1 #2 = r2.
  get PROPERTY OF cell 'value' = val1.
  WRITE: val1.
  ENDDO.
  ENDDO.