I want to change the Worksheet name which in default being created as Sheet1/ Sheet2/ Sheet3 on creation of Excel file while downloading using Objects.
How should I change the name of Sheet1/ Sheet2/ Sheet3 to my requirement. Attached the coding part. Please help me out in finding the place where I should rename it using which statement.
FORM excel_download.
gv_step = 'Starting Excel'.
CREATE OBJECT gw_excel 'EXCEL.APPLICATION'.
PERFORM xls_error_hdl.
SET PROPERTY OF gw_excel 'VISIBLE' = 0.
GET PROPERTY OF gw_excel 'WORKBOOKS' = gw_wbooks.
CALL METHOD OF gw_wbooks 'Add'.
*Create Excel Sheet
CALL METHOD OF gw_excel 'Worksheets' = gw_worksheet
EXPORTING
#1 = 1.
CALL METHOD OF gw_wbooks 'Activate'.
SET PROPERTY OF gw_wbooks 'Name' = 'Sheet1'.
CALL METHOD OF gw_wbooks 'OPEN' = gw_wbooks
EXPORTING
#1 = gv_fname.
CALL METHOD OF gw_wbooks 'Activate' .
*Download to Worksheet 1.
GET PROPERTY OF gw_excel 'Worksheets' = gw_worksheet
exporting #1 = 'Sheet1'. "S4M1MR
exporting #1 = 'Appd_Sites'. "S4M1MR
PERFORM xls_error_hdl.
CALL METHOD OF gw_worksheet 'Activate' .
gv_step = 'Adding data to Excel'.
gv_row = 0.
LOOP AT gi_yps_down_tab1 INTO gw_yps_grid2.
CLEAR gw_yps_common-anln1.
gv_row = gv_row + 1.
gv_col = 2.
DO 4 TIMES.
ASSIGN COMPONENT sy-index OF STRUCTURE gw_yps_grid2 TO <comp>.
PERFORM fill_cell USING gv_row gv_col <comp>.
gv_col = gv_col + 1.
ENDDO.
ENDLOOP.
*Download to Worksheet 2.
GET PROPERTY OF gw_excel 'Worksheets' = gw_worksheet
exporting #1 = 'Sheet2'.
exporting #1 = 'Appd Sites'. "S4M1MR
PERFORM xls_error_hdl.
CALL METHOD OF gw_worksheet 'Activate' .
gv_step = 'Adding data to Excel'.
gv_row = 0.
LOOP AT gi_yps_down_tab2 INTO gw_yps_common.
LOOP AT gi_yps_down_tab2 INTO gw_exclusion.
PERFORM conversion.
ENDLOOP.
*Download to Worksheet 3.
GET PROPERTY OF gw_excel 'Worksheets' = gw_worksheet
exporting #1 = 'Sheet3'.
PERFORM xls_error_hdl.
CALL METHOD OF gw_worksheet 'Activate' .
gv_step = 'Adding data to Excel'.
gv_row = 0.
LOOP AT gi_yps_down_tab3 INTO gw_yps_common.
LOOP AT gi_yps_down_tab3 INTO gw_exclusion.
PERFORM conversion.
ENDLOOP.
*Download to Worksheet 4.
CALL METHOD OF gw_excel 'Sheets' = gw_worksheet.
Add new workbook (create a file)
CALL METHOD OF gw_worksheet 'Add'.
FREE OBJECT gw_worksheet.
GET PROPERTY OF gw_excel 'Worksheets' = gw_worksheet
exporting #1 = 'Sheet4'.
PERFORM xls_error_hdl.
CALL METHOD OF gw_worksheet 'Activate' .
gv_step = 'Adding data to Excel'.
gv_row = 0.
LOOP AT gi_yps_down_tab4 INTO gw_yps_common.
LOOP AT gi_yps_down_tab4 INTO gw_exclusion.
PERFORM conversion.
ENDLOOP.
To Save the Book after downloading.
PERFORM save_excel.
ENDFORM. " EXCEL_DOWNLOAD
-
Thanks in advance