Download to excel in different tabs from bsp page

Question

Hi all,
I have a requirement in which I have to download to xl-sheet in different tabs based on some conditions from a bsp page.
I am successful in downloading data into different tabs.
Now I had written the piece of code required to download to xl in a function module
and I am calling that function module when pressing a button in bsp page.
When I run the fm seperately its working but when I run it from bsp page its not working.But while debugging I found that the fm is being called and executed perfectly without any errors.
But the xl is not being created on our side.
Can anyone suggest me how to proceed on this.
Helpful answers will be rewarded.
Thanks,
Uga

Answer 1

Hi Raja,
Yes I am using ole objects.
For more clarity I am alos pasting my code.
If this is not possible then please guide how to achieve this in BSP.
*******************CODE*****************************************
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:gt_kna1 type standard table of kna1,
     gt_knvv type standard table of knvv,
     wa_kna1 type kna1,
     wa_knvv type knvv.
types: data1(1500) type c,
ty type table of data1.
data: it type ty with header line,
it_2 type ty with header line,
it_3 type ty with header line,
rec type sy-tfill,
deli(1) type c,
l_amt(18) type c.
data: begin of hex,
tab type x,
end of hex.
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 .
SELECT kunnr name1
  INTO corresponding fields of table gt_kna1
  FROM kna1
UP TO 1000 ROWS.
SELECT kunnr vkorg
  INTO corresponding fields of table gt_knvv
  FROM knvv
UP TO 3 ROWS.
loop at gt_kna1 into wa_kna1.
concatenate  wa_kna1-kunnr  wa_kna1-name1 into it separated by deli.
append it.
clear it.
endloop.
loop at gt_knvv into wa_knvv.
concatenate wa_knvv-kunnr wa_knvv-vkorg 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.
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.
gv_sheet_name = 'KNA1'.
get property of h_excel 'ACTIVESHEET' = worksheet.
set property of worksheet 'Name' = gv_sheet_name .
*--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.
*CALL METHOD OF gs_cells 'Select' .
get property of h_cell 'Font' = gs_font .
set property of gs_font 'Bold' = 1 .
data l_rc type i.
call method cl_gui_frontend_services=>clipboard_export
importing
data = it[]
changing
rc = l_rc
exceptions
cntl_error = 1
error_no_gui = 2
not_supported_by_gui = 3
others = 4.
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 = 1.
PERFORM err_hdl.
call method of h_excel 'Range' = range
exporting
#1 = w_cell1
#2 = w_cell2.
call method of range 'Select'.
*PERFORM err_hdl.
call method of worksheet 'Paste'.
****for second sheet**********
GV_SHEET_NAME = '2ND SHEET'.
gv_sheet_name = 'Knvv'.
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.
*--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 .
call method cl_gui_frontend_services=>clipboard_export
importing
data = it_2[]
changing
rc = l_rc
exceptions
cntl_error = 1
error_no_gui = 2
not_supported_by_gui = 3
others = 4.
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 = 1.
PERFORM err_hdl.
call method of h_excel 'Range' = range
exporting
#1 = w_cell1
#2 = w_cell2.
call method of range 'Select'.
PERFORM err_hdl.
call method of worksheet 'Paste'.
Can you people give me inputs so that I can proceed further.
Thanks,
Uga