Collect many workbook executions in one Excel file

Question

My problem is to collect many workbook executions in only one excel file automatically, for example by broadcasting.
I explain the situation.
I have one (only) workbook to report the sales revenue by country. So by the input variable "country" I can have all the workbook reports needed.
By the broadcasting I can calculate and send them to the user.
But the user is one, the reports are many (30), and the mails are too many for him.
So he asked to have only one excel file with the requested reports over different sheets.
Anyone has a similar experience about?

Answer 1

Hi Sergio,
Try this program for creation of more one than one sheets in one excel.
This program works 2 sheets.you can do how much you want.
REPORT zpck_download_to_excel .
INCLUDE ole2incl.
DATA: w_cell1 TYPE ole2_object,
      w_cell2 TYPE ole2_object.
*--- Ole data Declarations
DATA: h_excel TYPE ole2_object,      " Excel object
      h_mapl TYPE ole2_object,       " list of workbooks
      h_map TYPE ole2_object,        " workbook
      h_zl TYPE ole2_object,         " cell
      h_f TYPE ole2_object,          " font
      gs_interior TYPE ole2_object,  " Pattern
      worksheet TYPE ole2_object,
      h_cell TYPE ole2_object,
      h_cell1 TYPE ole2_object,
      range TYPE ole2_object,
      h_sheet2 TYPE ole2_object,
      h_sheet3 TYPE ole2_object,
      gs_font TYPE ole2_object,
      flg_stop(1) TYPE c.
Internal table Declaration
DATA : t_excel_t076m LIKE t076m OCCURS 0 WITH HEADER LINE,
       t_excel_tedst LIKE tedst OCCURS 0 WITH HEADER LINE.
TYPES: data1(1500) TYPE c,
       ty TYPE TABLE OF data1.
DATA: it TYPE ty WITH HEADER LINE,
      it_2 TYPE ty WITH HEADER LINE.
DATA: rec TYPE sy-tfill,
      deli(1) TYPE c,
      l_amt(18) TYPE c.
DATA: BEGIN OF hex,
        tab TYPE x,
      END OF hex.
DATA: l_rc TYPE i.
FIELD-SYMBOLS: <fs> .
CONSTANTS cns_09(2) TYPE n VALUE 09.
ASSIGN deli TO <fs> TYPE 'X'.
hex-tab = cns_09.
<fs> = hex-tab.
DATA gv_sheet_name(20) TYPE c .
M A C R O Declaration
DEFINE ole_check_error.
  if &1 ne 0.
    message e002(zz) with &1.
    exit.
  endif.
END-OF-DEFINITION.
Fetching Data
SELECT * FROM t076m INTO TABLE t_excel_t076m.
SELECT * FROM tedst INTO TABLE t_excel_tedst.
LOOP AT t_excel_t076m.
  CONCATENATE
          t_excel_t076m-parart
          t_excel_t076m-konto
          t_excel_t076m-mwart
          t_excel_t076m-mwsatz
          t_excel_t076m-land1
          t_excel_t076m-mwskz
          INTO it
          SEPARATED BY deli.
  APPEND it.
  CLEAR it.
ENDLOOP.
LOOP AT t_excel_tedst.
  CONCATENATE
          t_excel_tedst-rcvprt
          t_excel_tedst-repid
          t_excel_tedst-routidread
          t_excel_tedst-routidwrit
          INTO it_2
          SEPARATED BY deli.
  APPEND it_2.
  CLEAR it_2.
ENDLOOP.
IF h_excel-header = space OR h_excel-handle = -1.
start Excel
  CREATE OBJECT h_excel 'EXCEL.APPLICATION'.
ENDIF.
*--- get list of workbooks, initially empty
CALL METHOD OF h_excel 'Workbooks' = h_mapl.
SET PROPERTY OF h_excel 'Visible' = 1.
add a new workbook
CALL METHOD OF h_mapl 'Add' = h_map.
First Sheet
Name of the T076
gv_sheet_name = 'T076M'.
GET PROPERTY OF h_excel 'ACTIVESHEET' = worksheet.
SET PROPERTY OF worksheet 'Name' = gv_sheet_name .
PERFORM formatting_data.
CALL METHOD cl_gui_frontend_services=>clipboard_export
  IMPORTING
    data = it[]
  CHANGING
    rc = l_rc
  EXCEPTIONS
    cntl_error = 1
    error_no_gui = 2
    OTHERS = 4.
Get the First row and col
CALL METHOD OF h_excel 'Cells' = w_cell1
  EXPORTING
    #1 = 1
    #2 = 1.
Get the 255 row and col
CALL METHOD OF h_excel 'Cells' = w_cell2
  EXPORTING
    #1 = 5000
    #2 = 6.
Select the Data
CALL METHOD OF h_excel 'Range' = range
  EXPORTING
    #1 = w_cell1
    #2 = w_cell2.
CALL METHOD OF range 'Select'.
CALL METHOD OF worksheet 'Paste'.
Second Sheet
Name of the Tedst
gv_sheet_name = 'TEDST'.
GET PROPERTY OF h_excel 'Sheets' = h_sheet2 .
CALL METHOD OF h_sheet2 'Add' = h_map.
SET PROPERTY OF h_map 'Name' = gv_sheet_name .
GET PROPERTY OF h_excel 'ACTIVESHEET' = worksheet.
PERFORM formatting_data.
CALL METHOD cl_gui_frontend_services=>clipboard_export
  IMPORTING
    data = it_2[]
  CHANGING
    rc = l_rc
  EXCEPTIONS
    cntl_error = 1
    error_no_gui = 2
    OTHERS = 4.
Get the First row and col
CALL METHOD OF h_excel 'Cells' = w_cell1
  EXPORTING
    #1 = 1
    #2 = 1.
Get the 255 row and col
CALL METHOD OF h_excel 'Cells' = w_cell2
  EXPORTING
    #1 = 255
    #2 = 6.
Select the Data
CALL METHOD OF h_excel 'Range' = range
  EXPORTING
    #1 = w_cell1
    #2 = w_cell2.
CALL METHOD OF range 'Select'.
CALL METHOD OF worksheet 'Paste'.
*--- disconnect from Excel
FREE OBJECT h_zl.
FREE OBJECT h_mapl.
FREE OBJECT h_map.
FREE OBJECT h_excel.
*&      Form  formatting_data
FORM formatting_data.
*--Formatting the area of additional data 1 and doing the BOLD
  CALL METHOD OF h_excel 'Cells' = w_cell1
    EXPORTING
      #1 = 1
      #2 = 1.
  CALL METHOD OF h_excel 'Cells' = w_cell2
     EXPORTING
      #1 = 1
      #2 = 50.
  CALL METHOD OF h_excel 'Range' = h_cell
     EXPORTING
      #1 = w_cell1
      #2 = w_cell2.
  GET PROPERTY OF h_cell 'Font' = gs_font .
  SET PROPERTY OF gs_font 'Bold' = 1 .
ENDFORM.                    " formatting_data
Hope it helps you.
Reward your points if it is helpful.
Thanks,
Chitra