ABAP使用OLE2对象创建EXCEL文件

厌倦了总是下载一模一样的EXCEL文档？没有颜色，边框，有效性验证....

让我们看看怎样用OLE2对象来创造可爱的EXCEL工作表吧！（效果如下）

ABAP使用OLE2对象创建EXCEL文件

首先你需要知道微软EXCEL中的不同部分的名称，每个部分在我们的程序中都代表一个OLE2对象

ABAP使用OLE2对象创建EXCEL文件

本文地址：http://www.cnblogs.com/hhelibeb/p/5787396.html

原文地址：Using ole2 objects for create an excel file

转载请注明

2018.03.29：做了一年多ABAP开发工作之后，译者认为OLE是个很难用很烦人的东西，强烈推荐使用XLSX Workbench进行EXCEL表单/报表的开发工作：

XLSX Workbench for SAP

开始

　　所有例子都使用了下面这个模板报表。你只需要复制代码，并且粘贴到为它预留的空白位置。

　　在这个报表当中，你将会看到如何创建一个新文档，如何保存它，以及如何关闭它。

REPORT zric_ole2.
TYPE-POOLS: soi,ole2.
DATA:  lo_application   TYPE  ole2_object,
       lo_workbook      TYPE  ole2_object,
       lo_workbooks     TYPE  ole2_object,
       lo_range         TYPE  ole2_object,
       lo_worksheet     TYPE  ole2_object,
       lo_worksheets    TYPE  ole2_object,
       lo_column        TYPE  ole2_object,
       lo_row           TYPE  ole2_object,
       lo_cell          TYPE  ole2_object,
       lo_font          TYPE ole2_object.

  DATA: lo_cellstart      TYPE ole2_object,
        lo_cellend        TYPE ole2_object,
        lo_selection      TYPE ole2_object,
        lo_validation     TYPE ole2_object.

  DATA: lv_selected_folder TYPE string,
        lv_complete_path   TYPE char256,
        lv_titulo          TYPE string.

    CALL METHOD cl_gui_frontend_services=>directory_browse
      EXPORTING
        window_title    = lv_titulo
        initial_folder  = 'C:\'
      CHANGING
        selected_folder = lv_selected_folder
      EXCEPTIONS
        cntl_error      = 1
        error_no_gui    = 2
        OTHERS          = 3.
  CHECK NOT lv_selected_folder IS INITIAL.

  CREATE OBJECT lo_application 'Excel.Application'.
  CALL METHOD OF lo_application 'Workbooks' = lo_workbooks.
  CALL METHOD OF lo_workbooks 'Add' = lo_workbook.
  SET PROPERTY OF lo_application 'Visible' = 0.
  GET PROPERTY OF lo_application 'ACTIVESHEET' = lo_worksheet.


* ----------
* ---- PASTE HERE THE CODE
* ----------


CONCATENATE lv_selected_folder '\Test' INTO lv_complete_path.

  CALL METHOD OF lo_workbook 'SaveAs'
    EXPORTING
    #1 = lv_complete_path.
  IF sy-subrc EQ 0.
     MESSAGE 'File downloaded successfully' TYPE 'S'.
  ELSE.
     MESSAGE 'Error downloading the file' TYPE 'E'.
  ENDIF.

  CALL METHOD OF lo_application 'QUIT'.
  FREE OBJECT lo_worksheet.
  FREE OBJECT lo_workbook.
  FREE OBJECT lo_application.

基本动作

  CALL METHOD OF lo_worksheet 'Cells' = lo_cell
     EXPORTING
     #1 = 1  "Row
     #2 = 2. "Column

Select a cell