Skip to Content
0
Former Member
Nov 07, 2006 at 08:25 AM

Download to Excel using METHODS

30 Views

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