ABAP对excel的操作（为单元格设置公式）

---

前言

给单元格设置公式

---

一、效果

运行程序，执行

excel效果

二、代码

代码如下（示例）：

*&---------------------------------------------------------------------*
*& Report  ZDEMO_EXCEL6
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  zdemo_excel6.

DATA: lo_excel                TYPE REF TO zcl_excel,
      lo_worksheet            TYPE REF TO zcl_excel_worksheet,
      lv_row                  TYPE syindex,
      lv_formula              TYPE string.


CONSTANTS: gc_save_file_name TYPE string VALUE '06_Formulas.xlsx'.
INCLUDE zdemo_excel_outputopt_incl.


START-OF-SELECTION.

  CREATE OBJECT lo_excel.

  " Get active sheet
  lo_worksheet = lo_excel->get_active_worksheet( ).

*--------------------------------------------------------------------*
*  Get some testdata
*--------------------------------------------------------------------*
  lo_worksheet->set_cell( ip_row = 4 ip_column = 'C' ip_value = 100  ).
  lo_worksheet->set_cell( ip_row = 5 ip_column = 'C' ip_value = 1000  ).
  lo_worksheet->set_cell( ip_row = 6 ip_column = 'C' ip_value = 150 ).
  lo_worksheet->set_cell( ip_row = 7 ip_column = 'C' ip_value = -10  ).
  lo_worksheet->set_cell( ip_row = 8 ip_column = 'C' ip_value = 500  ).


*--------------------------------------------------------------------*
*  Demonstrate using formulas
*--------------------------------------------------------------------*
  lo_worksheet->set_cell( ip_row = 9 ip_column = 'C' ip_formula = 'SUM(C4:C8)' ).


*--------------------------------------------------------------------*
* Demonstrate standard EXCEL-behaviour when copying a formula to another cell
* by calculating the resulting formula to put into another cell
*--------------------------------------------------------------------*
  DO 10 TIMES.

    lv_formula = zcl_excel_common=>shift_formula( iv_reference_formula = 'SUM(C4:C8)'
                                                  iv_shift_cols        = 0                " Offset in Columns - here we copy in same column --> 0
                                                  iv_shift_rows        = sy-index ).      " Offset in Row     - here we copy downward --> sy-index
    lv_row = 9 + sy-index.                                                                " Absolute row = sy-index rows below reference cell
    lo_worksheet->set_cell( ip_row = lv_row ip_column = 'C' ip_formula = lv_formula ).

  ENDDO.

*--------------------------------------------------------------------*
*** Create output
*--------------------------------------------------------------------*
  lcl_output=>output( lo_excel ).

其中的include在下面这篇文章中能找到（文章超链接）

ABAP对excel的操作（为单元格填充背景颜色、设置border等）

---