SAP ABAP编程 数据库内容导出到excel

REPORT  Y0825_TXT_EXCEL_YBP MESSAGE-ID YQYZ_TXT_SQL_EXCEL.

************************** 定义数据***********************************************
TABLES SSCRFIELDS.
************************对应的数据库表结构************************
DATA: BEGIN OF ITAB,
      MANDT TYPE C LENGTH 3,
      MATNR TYPE C LENGTH 18,
      ERSDA TYPE D,
      ERNAM TYPE C LENGTH 12,
      LAEDA TYPE D,
      AENAM TYPE C LENGTH 12,
      VPSTA TYPE C LENGTH 15,
      PSTAT TYPE C LENGTH 15,
      LVORM TYPE C ,
      MTART TYPE C LENGTH 4,
      MBRSH TYPE C,
  END OF ITAB.
DATA: WA LIKE ITAB.
DATA: ITAB_DATA LIKE TABLE OF ITAB.

************************导出的结构************************
DATA: APPLICATION TYPE OLE2_OBJECT,   " excel object
      WORKBOOK   TYPE OLE2_OBJECT,   " 工作簿
      SHEET       TYPE OLE2_OBJECT,   " 工作表
      COLUMNS     TYPE OLE2_OBJECT,   " 表格的行
      ROWS        TYPE OLE2_OBJECT,   " 表格的列
      RANGE       TYPE OLE2_OBJECT,
      RANGE1      TYPE OLE2_OBJECT,
      FONT        TYPE OLE2_OBJECT,
      CELL        TYPE OLE2_OBJECT,
      CELL1       TYPE OLE2_OBJECT,
      SHEET1      TYPE OLE2_OBJECT,
      SHEET2      TYPE OLE2_OBJECT,
      BORDERS     TYPE OLE2_OBJECT.
DATA: INDEX TYPE I VALUE 0.

DATA TAB_DATA LIKE TABLE OF YTABLE_TXT_EXCEL.   "数据库数据的内表
DATA REC_DATA LIKE YTABLE_TXT_EXCEL.  

*导出数据块
SELECTION-SCREEN BEGIN OF BLOCK STATUS2 WITH FRAME TITLE TEXT-F02.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(20) TEXT-002.
SELECTION-SCREEN:   PUSHBUTTON 75(15) BUT2 USER-COMMAND CLI2. " 从系统中导出excel模板 到本地
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK STATUS2.

****初始化屏幕****
INITIALIZATION.
  BUT2 = ‘开始导出‘.  " 数据库数据导出到本地的excel

AT SELECTION-SCREEN.
IF SSCRFIELDS-UCOMM EQ ‘CLI2‘.  "导出数据库内容到excel
    PERFORM DEMO_FORMS.  
  ENDIF.

START-OF-SELECTION.

 PERFORM DEMO_FORMS.  "数据库内容导出到excel

*************************************子程序**************************************

*----------------------------------------------------------------------*
*       数据库内容导出到excel
*----------------------------------------------------------------------*
FORM DEMO_FORMS.
  SELECT * FROM YTABLE_TXT_EXCEL INTO TABLE ITAB_DATA. "取得数据库表内容

  PERFORM CREATE_EXCEL. "创建excel
  LOOP AT  ITAB_DATA INTO WA.
    PERFORM INSERT_ROW USING 1. " 插入一行
    PERFORM FILL_CELL USING 1 1 1 WA-MANDT.  "填充单元格
    PERFORM FILL_CELL USING 1 2 1 WA-MATNR.
    PERFORM FILL_CELL USING 1 3 0 WA-ERSDA.
    PERFORM FILL_CELL USING 1 4 0 WA-ERNAM.
    PERFORM FILL_CELL USING 1 5 0 WA-LAEDA.
    PERFORM FILL_CELL USING 1 6 0 WA-AENAM.
    PERFORM FILL_CELL USING 1 7 0 WA-VPSTA.
    PERFORM FILL_CELL USING 1 8 0 WA-PSTAT.
    PERFORM FILL_CELL USING 1 9 0 WA-LVORM.
    PERFORM FILL_CELL USING 1 10 0 WA-MTART.
    PERFORM FILL_CELL USING 1 11 0 WA-MBRSH.
    INDEX = INDEX + 1.
  ENDLOOP.
  PERFORM FREE_OBJECT.
ENDFORM.                    "DEMO_FORMS

*****************************创建excel  *******************************************

FORM CREATE_EXCEL.
  CREATE OBJECT APPLICATION ‘excel.APPLICATION‘.
  IF SY-SUBRC <> 0.
    MESSAGE ‘EXCEL ERROR‘ TYPE ‘S‘ DISPLAY LIKE ‘E‘.
    STOP.
  ENDIF.
  CALL METHOD OF
      APPLICATION
      ‘WORKBOOKS‘ = WORKBOOK.
  SET PROPERTY OF APPLICATION ‘VISIBLE‘ = 1.
  SET PROPERTY OF APPLICATION ‘SHEETSINNEWWORKBOOK‘ = 1.
  CALL METHOD OF
      WORKBOOK
      ‘ADD‘    = SHEET.
  CALL METHOD OF
      SHEET
      ‘ACTIVE‘.
ENDFORM.                    "CREATE_EXCEL

************************************************************************
*     根据行号插入一行                                                  *
*     -->I_ROW  行号                                                                 *
************************************************************************
FORM INSERT_ROW USING I_ROW.
  CALL METHOD OF
      APPLICATION
      ‘ROWS‘      = ROWS
    EXPORTING
      #1          = I_ROW.
  CALL METHOD OF
      ROWS
      ‘INSERT‘.
ENDFORM.                    "INSERT_ROW

************************************************************************
*     填充单元格                                                                 *
*     --> I_ROW 行号                                                                 *
*     --> I_COL 列号                                                                 *
*     --> BOLD 是否加粗   -->P_VALUE 赋值                                                                 *
************************************************************************
FORM FILL_CELL USING I_ROW I_COL BOLD P_VALUE.
  CALL METHOD OF
      APPLICATION
      ‘CELLS‘     = CELL
    EXPORTING
      #1          = I_ROW
      #2          = I_COL.
  SET PROPERTY OF CELL ‘VALUE‘ = P_VALUE.
  SET PROPERTY OF CELL ‘HORIZONTALALIGNMENT‘ = 2.

  GET PROPERTY OF CELL ‘FONT‘ = FONT.
  SET PROPERTY OF FONT ‘BOLD‘ = BOLD.
  SET PROPERTY OF FONT ‘COLORINDEX‘ = 41.

  CALL METHOD OF
      CELL
      ‘BORDERS‘ = BORDERS
    EXPORTING
      #1        = ‘2‘.
  SET PROPERTY OF BORDERS ‘LINESTYLE‘ = ‘0‘.
  SET PROPERTY OF BORDERS ‘WEIGHT‘ = 0.
ENDFORM. 

************************************************************************
*     释放object                                                                   *
************************************************************************
FORM  FREE_OBJECT.

  FREE OBJECT FONT.
  FREE OBJECT RANGE.
  FREE OBJECT RANGE1.
  FREE OBJECT COLUMNS.
  FREE OBJECT ROWS.
  FREE OBJECT CELL.
  FREE OBJECT CELL1.
  FREE OBJECT SHEET.
  FREE OBJECT SHEET1.
  FREE OBJECT WORKBOOK.
  FREE OBJECT APPLICATION.
ENDFORM.                    "FREE_OBJECT