Problem in exporting ALV output to a spreadsheet.

Question

Hi All,
We have an existing Aging report in our project where in the output in ALV  there is a row for Header data fields and a row below for Item data fields.Now the user wants that when he export the report to a spreadsheet the headings of Header and Item data should come in a single line without changing the layout in the report.
The report is calculating some totals which he wants to get in the same way as it is now.
Please guide me on how to go about this.
Thanks in Advance,
Saket.

Answer 1

Hi Saket Tiwari,
Your existing program must be storing all the values in an internal table and then displaying it in ALV format.
Try adding the following code to your existing code.
data : lv_filename type string,
         lv_filepath type string,
         lv_fullpath type string.
Add the following code to select the path where the user wants to save the excel sheet
the following method will take the path where the excel sheet is to be saved & the name of the excel sheet.
CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_SAVE_DIALOG
EXPORTING
WINDOW_TITLE         = 'Select The Path Where Error File Should Be Saved'
DEFAULT_FILE_NAME    = 'ExcelSheetName.xls'
CHANGING
FILENAME             = lv_filename
PATH                 = lv_filepath
FULLPATH             = lv_fullpath
EXCEPTIONS
CNTL_ERROR           = 1
ERROR_NO_GUI         = 2
NOT_SUPPORTED_BY_GUI = 3
OTHERS               = 4.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
The following function module will take the path as its input and save the contents of internal table in the form of excel sheet at the required place.
call function 'GUI_DOWNLOAD'
EXPORTING
filename  = lv_fullpath
filetype                = 'ASC'
append                  = 'X'
write_field_separator   = 'X'
TABLES
data_tab                = itab_name
EXCEPTIONS
file_write_error        = 1
no_batch                = 2
gui_refuse_filetransfer = 3
invalid_type            = 4
no_authority            = 5
unknown_error           = 6
header_not_allowed      = 7
separator_not_allowed   = 8
filesize_not_allowed    = 9
header_too_long         = 10
dp_error_create         = 11
dp_error_send           = 12
dp_error_write          = 13
unknown_dp_error        = 14
access_denied           = 15
dp_out_of_memory        = 16
disk_full               = 17
dp_timeout              = 18
file_not_found          = 19
dataprovider_exception  = 20
control_flush_error = 21
others = 22.
if sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
endif.
itab_name is the name of internal table where the content is saved.
hope this piece of code helps you...add it in ur existing code after collecting all the data in an internal table.
Regards,
Radhika
Edited by: RadhikaS on May 29, 2009 9:23 PM