How to add the excel export function to CL_GUI_ALV_TREE

Question

I am using CL_GUI_ALV_TREE to display an exploded BOM.  My users want to be able to export the list to an excel spreadsheet in the same way that can be done using CL_GUI_ALV_GRID.  Is this possible?  I have spent the last hour searching the forum for the answer, and I cannot find anything that says this can be done. 
If this has been asked and answered please point me in the right direction.
If you know that it can't be done, please tell me that too.
Thanks,
Larry

Answer 1

Larry,
Add an EXPORT button and under that button use something like this:
REPORT  ZR_DOWNLOAD_TO_EXCEL.
tables: vbak.
data: begin of lt_data_tab occurs 0,
        vbeln like vbak-vbeln,
        kunnr like vbak-kunnr,
        ernam like vbak-ernam,
       end of lt_data_tab.
data: l_filename type STRING.
data: outname type RLGRAP-FILENAME.
data: sname type RLGRAP-FILENAME.
data: begin of col_headers occurs 0,
        text(10),
      end of col_headers.
SELECTION-SCREEN BEGIN OF BLOCK ONE WITH FRAME TITLE TEXT-001.
  selection-screen: skip 1.
  parameters: cb_hdrs as checkbox.
SELECTION-SCREEN END OF BLOCK ONE.
start-of-selection.
  select vbeln kunnr ernam up to 50 rows
    from vbak into table lt_data_tab.
  move 'c:\excel_demo' to outname.
  if cb_hdrs = 'X'.
    move 'Order #' to col_headers-text.
    append col_headers.
    move 'Sold-to #' to col_headers-text.
    append col_headers.
    move 'Created By' to col_headers-text.
    append col_headers.
    CALL FUNCTION 'MS_EXCEL_OLE_STANDARD_DAT'
      EXPORTING
        file_name                       = outname
        data_sheet_name                 = sname
     TABLES
       data_tab                        = lt_data_tab
       fieldnames                      = col_headers
     EXCEPTIONS
       file_not_exist                  = 1
       filename_expected               = 2
       communication_error             = 3
       ole_object_method_error         = 4
       ole_object_property_error       = 5
       invalid_pivot_fields            = 6
       download_problem                = 7
       OTHERS                          = 8.
    IF sy-subrc <> 0.
     MESSAGE s000(zz) WITH 'Export to Excel failed.'.
    ENDIF.
  else.
    CALL FUNCTION 'MS_EXCEL_OLE_STANDARD_DAT'
      EXPORTING
        file_name                       = outname
        data_sheet_name                 = sname
     TABLES
       data_tab                        = lt_data_tab
      fieldnames                      = col_headers
     EXCEPTIONS
       file_not_exist                  = 1
       filename_expected               = 2
       communication_error             = 3
       ole_object_method_error         = 4
       ole_object_property_error       = 5
       invalid_pivot_fields            = 6
       download_problem                = 7
       OTHERS                          = 8.
    IF sy-subrc <> 0.
     MESSAGE s000(zz) WITH 'Export to Excel failed.'.
    ENDIF.
  endif.
Note the FM that forces down the internal table.