To download the Output of ALV to Excel file with Marco

Question

Hello Masters ,
I m working on a ALV report in which either we can see the output or can download the ouptput and format that file before sending by mail..
the following steps are currently used to download and format the ALV output .
1. Save file form unix server
2. Download the file to computer.
3. Run a macro to format the execl file  and
4. Send the file by mail.
Apart from this I have to implement a new functionality by which we can directly send the result to spool so that it can be sent directly by mail .
Can Anyone help me out????????
Thanks & Regards
Varlani Amit

Answer 1

You will be having all data to be send in an internal table, same as your ALV internal table.
you can provide a button or menu in alv screen to send directly without storing.
for this you
1. first write spool
2. send it through mail.
1. Writting a spool
*Get the printer name from TVARVC table.
  select single low from tvarvc into l_destination
       where name = 'PRINTER'
         and type = 'P'
         and numb = '0000'.
  if sy-subrc ne 0.
     l_destination   = 'LOCL'.
  endif.
*Get the print parameters.
  call function 'GET_PRINT_PARAMETERS'
    EXPORTING
      copies                 = 1
      department             = 'SYSTEM'
      destination            = l_destination
      expiration             = 2
      immediately            = ' '
      layout                 = 'X_65_255'
      line_count             = 65
      line_size              = 255
      list_name              = 'ABC'
      list_text              = 'XYZ
      mode                   = ' '
      new_list_id            = 'X'
      no_dialog              = 'X'
      receiver               = 'SAP*'
      release                = 'X'
      sap_cover_page         = 'X'
      user                   = sy-uname
    IMPORTING
      out_parameters         = l_params
    EXCEPTIONS
      archive_info_not_found = 1
      invalid_print_params   = 2
      invalid_archive_params = 3
      others                 = 4.
  case sy-subrc.
    when 1.
      raise get_print_info_not_found.
    when 2.
      raise get_print_invalid_prt_params.
    when 3.
      raise get_print_invalid_arch_params.
    when 4.
      raise get_print_others.
  endcase.
*start spool writing.
  new-page print on parameters l_params no dialog.
  uline.
  skip.
  write: 27 text-022 centered. "report name
  skip.
  uline.
Do formatting as you want.
  loop at ALV_OUTPUT_INTERNAL TABLE..
    write:/  ALV_OUTPUT_INTERNAL TABLE-fileds...
  endloop.
  uline.
*end spool writing.
  new-page print off.
2. Sending a mail.
Use FM 'SO_DOCUMENT_SEND_API1' for sending a mail