ALV layout issue in excel sheet

Hi all,
When i executed my report, it will send the output data in excel format to my email id.
It is ALV report. When i changed the layout , the layout change is happening in report output, but in my excel sheet chagned layout set was not coming. It is coming old format only.
Is there any FM to handle the dynamic layouts
please help me in this.
regards,
Ajay Ram

Hi Ajay
When you change the layout, its done in the ALV o/p or rather in foreground.
You can't make this layout change be reflected in the excel sheet that is made thru background job.
One option is to save the layout you want and then before executing the ALV report, load the layout you want by using FMs
REUSE_ALV_VARIANT_DEFAULT_GET
REUSE_ALV_VARIANT_F4
REUSE_ALV_VARIANT_EXISTENCE
You can get the sample codes in sdn by searching for these FMs
Reward points if useful
Cheers
~Arun

Similar Messages

ALV grid to protected Excel sheet

Hi ABAP gurus,
I Have developed an ALV report using OO concept and from the application toolbar i am able to change the GRID output to Excel output using View -> Excel inplace. Belows are my requirement now.
1. I need to change the standard template with my template for this particular ALV report or Transaction. PLease provide me with steps details to do it.
2. The Excel sheet should be in protected mode and user should be able to only take print out from the excel sheet without modifying any columns .
If there is no standard way we can add an additional appliaction menu and code it to download the ALV output into an Excel sheet and display it . However again the User should not be able to modify the sheet. please provide me with sample code to do it.
PLease suggest solution for this . Point will be awarded for all valuable answers.
Please it is very urgent for me ...
Thanks in advance.
Iftekhar Alam

Hi ABAP gurus,
I Have developed an ALV report using OO concept and from the application toolbar i am able to change the GRID output to Excel output using View -> Excel inplace. Belows are my requirement now.
1. I need to change the standard template with my template for this particular ALV report or Transaction. PLease provide me with steps details to do it.
2. The Excel sheet should be in protected mode and user should be able to only take print out from the excel sheet without modifying any columns .
If there is no standard way we can add an additional appliaction menu and code it to download the ALV output into an Excel sheet and display it . However again the User should not be able to modify the sheet. please provide me with sample code to do it.
PLease suggest solution for this . Point will be awarded for all valuable answers.
Please it is very urgent for me ...
Thanks in advance.
Iftekhar Alam

Download the ALV Report output into excel sheet or notepad

Hi,
how to downlaod the alv report out into excel sheet or notepad in a proper manner. program contain large number records....
Thanks in advance!!!!
Regards,
kranthi.

Hi
Download a report to excel with format (border, color cell, etc)
Try this program...it may help you to change the font ..etc.
Code:
REPORT ZSIRI NO STANDARD PAGE HEADING.
this report demonstrates how to send some ABAP data to an
EXCEL sheet using OLE automation.
INCLUDE OLE2INCL.
handles for OLE objects
DATA: H_EXCEL TYPE OLE2_OBJECT,        " Excel object
      H_MAPL TYPE OLE2_OBJECT,         " list of workbooks
      H_MAP TYPE OLE2_OBJECT,          " workbook
      H_ZL TYPE OLE2_OBJECT,           " cell
      H_F TYPE OLE2_OBJECT.            " font
TABLES: SPFLI.
DATA H TYPE I.
table of flights
DATA: IT_SPFLI LIKE SPFLI OCCURS 10 WITH HEADER LINE.
*&   Event START-OF-SELECTION
START-OF-SELECTION.
read flights
SELECT * FROM SPFLI INTO TABLE IT_SPFLI UP TO 10 ROWS.
display header
ULINE (61).
WRITE: /     SY-VLINE NO-GAP,
          (3) 'Flg'(001) COLOR COL_HEADING NO-GAP, SY-VLINE NO-GAP,
          (4) 'Nr'(002) COLOR COL_HEADING NO-GAP, SY-VLINE NO-GAP,
          (20) 'Von'(003) COLOR COL_HEADING NO-GAP, SY-VLINE NO-GAP,
          (20) 'Nach'(004) COLOR COL_HEADING NO-GAP, SY-VLINE NO-GAP,
          (8) 'Zeit'(005) COLOR COL_HEADING NO-GAP, SY-VLINE NO-GAP.
ULINE /(61).
display flights
LOOP AT IT_SPFLI.
WRITE: / SY-VLINE NO-GAP,
           IT_SPFLI-CARRID COLOR COL_KEY NO-GAP, SY-VLINE NO-GAP,
           IT_SPFLI-CONNID COLOR COL_NORMAL NO-GAP, SY-VLINE NO-GAP,
           IT_SPFLI-CITYFROM COLOR COL_NORMAL NO-GAP, SY-VLINE NO-GAP,
           IT_SPFLI-CITYTO COLOR COL_NORMAL NO-GAP, SY-VLINE NO-GAP,
           IT_SPFLI-DEPTIME COLOR COL_NORMAL NO-GAP, SY-VLINE NO-GAP.
ENDLOOP.
ULINE /(61).
tell user what is going on
CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
     EXPORTING
          PERCENTAGE = 0
           TEXT       = TEXT-007
       EXCEPTIONS
            OTHERS     = 1.
start Excel
CREATE OBJECT H_EXCEL 'EXCEL.APPLICATION'.
PERFORM ERR_HDL.
SET PROPERTY OF H_EXCEL 'Visible' = 1.
CALL METHOD OF H_EXCEL 'FILESAVEAS' EXPORTING #1 = 'c:\kis_excel.xls'
PERFORM ERR_HDL.
tell user what is going on
CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
     EXPORTING
          PERCENTAGE = 0
           TEXT       = TEXT-008
       EXCEPTIONS
            OTHERS     = 1.
get list of workbooks, initially empty
CALL METHOD OF H_EXCEL 'Workbooks' = H_MAPL.
PERFORM ERR_HDL.
add a new workbook
CALL METHOD OF H_MAPL 'Add' = H_MAP.
PERFORM ERR_HDL.
tell user what is going on
CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
     EXPORTING
          PERCENTAGE = 0
           TEXT       = TEXT-009
       EXCEPTIONS
            OTHERS     = 1.
output column headings to active Excel sheet
PERFORM FILL_CELL USING 1 1 1 'Flug'(001).
PERFORM FILL_CELL USING 1 2 0 'Nr'(002).
PERFORM FILL_CELL USING 1 3 1 'Von'(003).
PERFORM FILL_CELL USING 1 4 1 'Nach'(004).
PERFORM FILL_CELL USING 1 5 1 'Zeit'(005).
LOOP AT IT_SPFLI.
copy flights to active EXCEL sheet
    H = SY-TABIX + 1.
    PERFORM FILL_CELL USING H 1 0 IT_SPFLI-CARRID.
    PERFORM FILL_CELL USING H 2 0 IT_SPFLI-CONNID.
    PERFORM FILL_CELL USING H 3 0 IT_SPFLI-CITYFROM.
    PERFORM FILL_CELL USING H 4 0 IT_SPFLI-CITYTO.
    PERFORM FILL_CELL USING H 5 0 IT_SPFLI-DEPTIME.
ENDLOOP.
changes by Kishore - start
CALL METHOD OF H_EXCEL 'Workbooks' = H_MAPL.
CALL METHOD OF H_EXCEL 'Worksheets' = H_MAPL." EXPORTING #1 = 2.
PERFORM ERR_HDL.
add a new workbook
CALL METHOD OF H_MAPL 'Add' = H_MAP EXPORTING #1 = 2.
PERFORM ERR_HDL.
tell user what is going on
SET PROPERTY OF H_MAP 'NAME' = 'COPY'.
CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
     EXPORTING
          PERCENTAGE = 0
           TEXT       = TEXT-009
       EXCEPTIONS
            OTHERS     = 1.
output column headings to active Excel sheet
PERFORM FILL_CELL USING 1 1 1 'Flug'(001).
PERFORM FILL_CELL USING 1 2 0 'Nr'(002).
PERFORM FILL_CELL USING 1 3 1 'Von'(003).
PERFORM FILL_CELL USING 1 4 1 'Nach'(004).
PERFORM FILL_CELL USING 1 5 1 'Zeit'(005).
LOOP AT IT_SPFLI.
copy flights to active EXCEL sheet
    H = SY-TABIX + 1.
    PERFORM FILL_CELL USING H 1 0 IT_SPFLI-CARRID.
    PERFORM FILL_CELL USING H 2 0 IT_SPFLI-CONNID.
    PERFORM FILL_CELL USING H 3 0 IT_SPFLI-CITYFROM.
    PERFORM FILL_CELL USING H 4 0 IT_SPFLI-CITYTO.
    PERFORM FILL_CELL USING H 5 0 IT_SPFLI-DEPTIME.
ENDLOOP.
changes by Kishore - end
disconnect from Excel
     CALL METHOD OF H_EXCEL 'FILESAVEAS' EXPORTING #1 = 'C:\SKV.XLS'.
FREE OBJECT H_EXCEL.
PERFORM ERR_HDL.
      FORM FILL_CELL                                                *
      sets cell at coordinates i,j to value val boldtype bold       *
FORM FILL_CELL USING I J BOLD VAL.
CALL METHOD OF H_EXCEL 'Cells' = H_ZL EXPORTING #1 = I #2 = J.
PERFORM ERR_HDL.
SET PROPERTY OF H_ZL 'Value' = VAL .
PERFORM ERR_HDL.
GET PROPERTY OF H_ZL 'Font' = H_F.
PERFORM ERR_HDL.
SET PROPERTY OF H_F 'Bold' = BOLD .
PERFORM ERR_HDL.
ENDFORM.
*&      Form ERR_HDL
      outputs OLE error if any                                       *
--> p1        text
<-- p2        text
FORM ERR_HDL.
IF SY-SUBRC <> 0.
WRITE: / 'Fehler bei OLE-Automation:'(010), SY-SUBRC.
STOP.
ENDIF.
ENDFORM.                    " ERR_HDL
Please note that this example maybe slow at filling the excel table
(perhaps four fields per second on a 900 MHz machine - almost 30 seconds
for a short example).
To get the data on properties and methods - there is a bit of smoke and mirrors
going on here; they are EXCEL properties and methods, not sap ones - so you need
to look at excel help to determine how a particular function is structured. then
build the block in sap, as shown in the example.
If you only want to transfer the data to Excel like when you transfer the data from
ALV to Excel simply use the Function Modules:
XXL_SIMPLE_API
If you want more modifications when you transfer it to Excel use:
XXL_FULL_API

Problem when dowloading the ALV report output to Excel Sheet.

Hi ,
I am dowloading the ALV report output to Excel Sheet.
There is field Condition Unit(KOMP-KMEIN) in the output of the ALV, this has values PC and CSE , but when I download to Excel Sheet, CSE is appearing as CSE ,but PC is appearing as ******.
Can you please help me in knowing the reson for this.
Regards,
Madhu.

hi
refer to following link
http://www.****************/Tutorials/ALV/ColorSALV/Demo.htm
http://www.sap-img.com/abap/download-to-excel-with-format-border-color-cell-etc.htm
Cheers
Snehi
Edited by: snehi chouhan on Jul 11, 2008 12:42 PM

ALV colouring download to excel sheet

Hi Experts ,
I have a requirement in which I have coloured the cells of the ALV display , in order to highlight them.
I have made use of 'REUSE_ALV_GRID_DISPLAY' FM for displaying ALV.
When I download this output to an excel sheet , the colour filled in various cells disappears.
Can someone let me know that , is it possible to retain this colour of the cell even after ALV download to an excel sheet?
Thanks in Advance !!!

Hi retwika
I had searched on this previously and found out the following code,for download a report to excel with format (border, color cell, etc)
REPORT ZSIRI NO STANDARD PAGE HEADING.
* this report demonstrates how to send some ABAP data to an
* EXCEL sheet using OLE automation.
INCLUDE OLE2INCL.
* handles for OLE objects
DATA: H_EXCEL TYPE OLE2_OBJECT,        " Excel object
      H_MAPL TYPE OLE2_OBJECT,         " list of workbooks
      H_MAP TYPE OLE2_OBJECT,          " workbook
      H_ZL TYPE OLE2_OBJECT,           " cell
      H_F TYPE OLE2_OBJECT.            " font
TABLES: SPFLI.
DATA H TYPE I.
* table of flights
DATA: IT_SPFLI LIKE SPFLI OCCURS 10 WITH HEADER LINE.
*&   Event START-OF-SELECTION
START-OF-SELECTION.
* read flights
SELECT * FROM SPFLI INTO TABLE IT_SPFLI UP TO 10 ROWS.
* display header
ULINE (61).
WRITE: /     SY-VLINE NO-GAP,
          (3) 'Flg'(001) COLOR COL_HEADING NO-GAP, SY-VLINE NO-GAP,
          (4) 'Nr'(002) COLOR COL_HEADING NO-GAP, SY-VLINE NO-GAP,
          (20) 'Von'(003) COLOR COL_HEADING NO-GAP, SY-VLINE NO-GAP,
          (20) 'Nach'(004) COLOR COL_HEADING NO-GAP, SY-VLINE NO-GAP,
          (8) 'Zeit'(005) COLOR COL_HEADING NO-GAP, SY-VLINE NO-GAP.
ULINE /(61).
* display flights
LOOP AT IT_SPFLI.
WRITE: / SY-VLINE NO-GAP,
           IT_SPFLI-CARRID COLOR COL_KEY NO-GAP, SY-VLINE NO-GAP,
           IT_SPFLI-CONNID COLOR COL_NORMAL NO-GAP, SY-VLINE NO-GAP,
           IT_SPFLI-CITYFROM COLOR COL_NORMAL NO-GAP, SY-VLINE NO-GAP,
           IT_SPFLI-CITYTO COLOR COL_NORMAL NO-GAP, SY-VLINE NO-GAP,
           IT_SPFLI-DEPTIME COLOR COL_NORMAL NO-GAP, SY-VLINE NO-GAP.
ENDLOOP.
ULINE /(61).
* tell user what is going on
CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
     EXPORTING
*           PERCENTAGE = 0
           TEXT       = TEXT-007
       EXCEPTIONS
            OTHERS     = 1.
* start Excel
CREATE OBJECT H_EXCEL 'EXCEL.APPLICATION'.
* PERFORM ERR_HDL.
SET PROPERTY OF H_EXCEL 'Visible' = 1.
* CALL METHOD OF H_EXCEL 'FILESAVEAS' EXPORTING #1 = 'c:\kis_excel.xls'
* PERFORM ERR_HDL.
* tell user what is going on
CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
     EXPORTING
*           PERCENTAGE = 0
           TEXT       = TEXT-008
       EXCEPTIONS
            OTHERS     = 1.
* get list of workbooks, initially empty
CALL METHOD OF H_EXCEL 'Workbooks' = H_MAPL.
PERFORM ERR_HDL.
* add a new workbook
CALL METHOD OF H_MAPL 'Add' = H_MAP.
PERFORM ERR_HDL.
* tell user what is going on
CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
     EXPORTING
*           PERCENTAGE = 0
           TEXT       = TEXT-009
       EXCEPTIONS
            OTHERS     = 1.
* output column headings to active Excel sheet
PERFORM FILL_CELL USING 1 1 1 'Flug'(001).
PERFORM FILL_CELL USING 1 2 0 'Nr'(002).
PERFORM FILL_CELL USING 1 3 1 'Von'(003).
PERFORM FILL_CELL USING 1 4 1 'Nach'(004).
PERFORM FILL_CELL USING 1 5 1 'Zeit'(005).
LOOP AT IT_SPFLI.
* copy flights to active EXCEL sheet
    H = SY-TABIX + 1.
    PERFORM FILL_CELL USING H 1 0 IT_SPFLI-CARRID.
    PERFORM FILL_CELL USING H 2 0 IT_SPFLI-CONNID.
    PERFORM FILL_CELL USING H 3 0 IT_SPFLI-CITYFROM.
    PERFORM FILL_CELL USING H 4 0 IT_SPFLI-CITYTO.
    PERFORM FILL_CELL USING H 5 0 IT_SPFLI-DEPTIME.
ENDLOOP.
* changes by Kishore - start
* CALL METHOD OF H_EXCEL 'Workbooks' = H_MAPL.
CALL METHOD OF H_EXCEL 'Worksheets' = H_MAPL." EXPORTING #1 = 2.
PERFORM ERR_HDL.
* add a new workbook
CALL METHOD OF H_MAPL 'Add' = H_MAP EXPORTING #1 = 2.
PERFORM ERR_HDL.
* tell user what is going on
SET PROPERTY OF H_MAP 'NAME' = 'COPY'.
CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
     EXPORTING
*           PERCENTAGE = 0
           TEXT       = TEXT-009
       EXCEPTIONS
            OTHERS     = 1.
* output column headings to active Excel sheet
PERFORM FILL_CELL USING 1 1 1 'Flug'(001).
PERFORM FILL_CELL USING 1 2 0 'Nr'(002).
PERFORM FILL_CELL USING 1 3 1 'Von'(003).
PERFORM FILL_CELL USING 1 4 1 'Nach'(004).
PERFORM FILL_CELL USING 1 5 1 'Zeit'(005).
LOOP AT IT_SPFLI.
* copy flights to active EXCEL sheet
    H = SY-TABIX + 1.
    PERFORM FILL_CELL USING H 1 0 IT_SPFLI-CARRID.
    PERFORM FILL_CELL USING H 2 0 IT_SPFLI-CONNID.
    PERFORM FILL_CELL USING H 3 0 IT_SPFLI-CITYFROM.
    PERFORM FILL_CELL USING H 4 0 IT_SPFLI-CITYTO.
    PERFORM FILL_CELL USING H 5 0 IT_SPFLI-DEPTIME.
ENDLOOP.
* changes by Kishore - end
* disconnect from Excel
*      CALL METHOD OF H_EXCEL 'FILESAVEAS' EXPORTING #1 = 'C:\SKV.XLS'.
FREE OBJECT H_EXCEL.
PERFORM ERR_HDL.
*       FORM FILL_CELL                                                *
*       sets cell at coordinates i,j to value val boldtype bold       *
FORM FILL_CELL USING I J BOLD VAL.
CALL METHOD OF H_EXCEL 'Cells' = H_ZL EXPORTING #1 = I #2 = J.
PERFORM ERR_HDL.
SET PROPERTY OF H_ZL 'Value' = VAL .
PERFORM ERR_HDL.
GET PROPERTY OF H_ZL 'Font' = H_F.
PERFORM ERR_HDL.
SET PROPERTY OF H_F 'Bold' = BOLD .
PERFORM ERR_HDL.
ENDFORM.
*&      Form ERR_HDL
*       outputs OLE error if any                                       *
* --> p1        text
* <-- p2        text
FORM ERR_HDL.
IF SY-SUBRC <> 0.
WRITE: / 'Fehler bei OLE-Automation:'(010), SY-SUBRC.
STOP.
ENDIF.
ENDFORM.                    " ERR_HDL
Look out the changes
Revert if any prblem
Thanks and Regards
Srikanth.P

Need to send ALV Report as an Excel sheet via Email

Well , I need to Email an ALV Report as an Excel Sheet using my program. What do I need to do and how?
Answers will be rewarded with points.
Thanks

Hi Manu,
You can copy and paste the following codes and try to execute..
Hope this will help you..
note: dont forget to change 'SAPUSER' to your SAP user id.
REPORT yhn_test8                               .
TYPE-POOLS: slis, slist, truxs.
DATA t5         LIKE t005t OCCURS 0 WITH HEADER LINE.
DATA fcat       TYPE slis_t_fieldcat_alv.
DATA listobject LIKE abaplist OCCURS 0 WITH HEADER LINE.
DATA stack      TYPE slist_listlevel_stack WITH HEADER LINE.
DATA ttxt       LIKE solisti1 OCCURS 0 WITH HEADER LINE.
PARAMETER p_alv   RADIOBUTTON GROUP a.
PARAMETER p_excel RADIOBUTTON GROUP a.
START-OF-SELECTION.
SELECT * INTO TABLE t5
           FROM t005t
          WHERE spras = sy-langu.
CLEAR : fcat, fcat[].
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
    EXPORTING
      i_structure_name       = 'T005T'
    CHANGING
      ct_fieldcat            = fcat
    EXCEPTIONS
      inconsistent_interface = 1
      program_error          = 2
      OTHERS                 = 3.
IF p_alv = 'X'.
    CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
      EXPORTING
        it_fieldcat   = fcat
      TABLES
        t_outtab      = t5
      EXCEPTIONS
        program_error = 1
        OTHERS        = 2.
    IF sy-subrc <> 0.
    ENDIF.
ELSEIF p_excel = 'X'.
    CALL FUNCTION 'LIST_FREE_MEMORY'.
    SUBMIT yhn_test8 EXPORTING LIST TO MEMORY AND RETURN.
    CALL FUNCTION 'LIST_FROM_MEMORY'
      TABLES
        listobject = listobject
      EXCEPTIONS
        not_found = 1
        OTHERS     = 2.
    IF sy-subrc = 0.
    Generate LIST for excel file
      CALL FUNCTION 'LIST_TO_TXT'
        TABLES
          listtxt            = ttxt
          listobject         = listobject
        EXCEPTIONS
          empty_list         = 1
          list_index_invalid = 2
          OTHERS             = 3.
      IF sy-subrc = 0.
        LOOP AT ttxt.
          REPLACE ALL OCCURRENCES OF '|' IN ttxt-line
                  WITH cl_abap_char_utilities=>horizontal_tab.
          MODIFY ttxt.
        ENDLOOP.
        PERFORM send_email.
      ENDIF.
    ENDIF.
ENDIF.
*&      Form send_email
FORM send_email .
DATA docs LIKE docs OCCURS 0 WITH HEADER LINE.
DATA excelsize TYPE i.
DATA excel LIKE solisti1   OCCURS 0 WITH HEADER LINE.
DATA doc LIKE sodocchgi1.
DATA excelln TYPE i.
DATA int_objpack LIKE sopcklsti1 OCCURS 2 WITH HEADER LINE.
DATA int_objhead LIKE solisti1   OCCURS 2 WITH HEADER LINE.
DATA int_objtext LIKE solisti1   OCCURS 0 WITH HEADER LINE.
DATA int_reclist LIKE somlreci1 OCCURS 1 WITH HEADER LINE.
DATA bodyln LIKE sy-tabix.
DATA output_data TYPE ssfcrescl.
excel[] = ttxt[].
excel table sizes
DESCRIBE TABLE excel LINES excelln.
Body Email
int_objtext-line = 'Test Body'.
APPEND int_objtext.
DESCRIBE TABLE int_objtext LINES bodyln.
READ     TABLE int_objtext INDEX bodyln.
CLEAR doc.
doc-doc_size   = ( bodyln - 1 ) * 255 + STRLEN( int_objtext ).
doc-obj_name   = ' '.
doc-sensitivty = 'P'.
doc-proc_syst = sy-sysid.
doc-proc_clint = sy-mandt.
CLEAR: int_objpack, int_objpack[].
int_objpack-transf_bin = ' '.
int_objpack-head_start = 1.
int_objpack-head_num   = 0.
int_objpack-body_start = 1.
int_objpack-body_num   = bodyln.
int_objpack-doc_type   = 'RAW'.
int_objpack-obj_descr = 'Test'.
APPEND int_objpack.
CLEAR: int_objhead, int_objhead[].
int_objhead            = 'Attachment'.
APPEND int_objhead.
int_objpack-transf_bin = 'X'.
int_objpack-head_start = 1.
int_objpack-head_num   = 0.
int_objpack-body_start = 1.
int_objpack-body_num   = excelln.
int_objpack-doc_size   = excelsize.
int_objpack-doc_type   = 'XLS'.
int_objpack-obj_name   = 'excel'.
int_objpack-obj_descr = 'test.xls'. "File name
APPEND int_objpack.
Set Receiver
int_reclist-receiver   = 'SAPUSER'.
int_reclist-rec_type   = 'B'.
int_reclist-notif_del = 'X'.
int_reclist-notif_read = 'X'.
int_reclist-notif_ndel = 'X'.
int_reclist-express    = 'X'.
APPEND int_reclist.
doc-obj_descr = 'Report in Excel'.
Sending Email
CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
    EXPORTING
      document_data              = doc
      put_in_outbox              = 'X'
      commit_work                = 'X'
    TABLES
      packing_list               = int_objpack
      object_header              = int_objhead
      contents_bin               = excel
      contents_txt               = int_objtext   "Body
      receivers                  = int_reclist
    EXCEPTIONS
      too_many_receivers         = 1
      document_not_sent          = 2
      document_type_not_exist    = 3
      operation_no_authorization = 4
      parameter_error            = 5
      x_error                    = 6
      enqueue_error              = 7
      OTHERS                     = 8.
ENDFORM.                    " send_email

How to send ALV output data into Excel sheet format via Mail to the user?

Hi friends,
I have a doubt ie,
How to send ALV output data into Excel sheet format via Mail to the user?
regards
Moosa

Hi,
Provide the output internal table to the objbin in the below FM
Send Message
CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
       EXPORTING
            document_data              = i_docdata
            put_in_outbox              = c_x
       TABLES
            packing_list               = i_objpack
            object_header              = i_objhead
            contents_bin               = i_objbin
            contents_txt               = i_objtxt
            receivers                  = i_reclist
and specify the document type
i_objpack-doc_type   = 'XLS'.
and try.
Regards,
Nandha

Has anyone tried to export an ALV Tree to an excel sheet?

Hi "gurus",
I've been looking for a way of exporting a printed report in an ALV tree to an Excel sheet.
Has someone done this before?
NOTE: I am studying the Office Integration, which I believe it can be a way of making SAP generates it via ABAP objects.
Thanks and Regards,
Daniel Carvalho
Edited by: Daniel Carvalho on Feb 28, 2008 11:40 PM

(Add a Button function in the ON Toolbar such as EXCEL and set event handlers).
METHOD on_user_command.
   break-point 2.
CASE e_ucomm.
     WHEN 'EXIT'.
        LEAVE PROGRAM.
     WHEN 'EXCEL'.
      CALL METHOD me->download_to_excel.
     WHEN 'SAVE'.
     WHEN 'PROC'.
      CALL METHOD me->process.
     WHEN 'REFR'.
      CALL METHOD me->refresh.
ENDCASE.
endmethod.
METHOD on_toolbar.
CLEAR ls_toolbar.
    MOVE 0 TO ls_toolbar-butn_TYPE.
MOVE 'EXCEL' TO ls_toolbar-function.
MOVE SPACE TO ls_toolbar-disabled.
MOVE icon_xxl TO ls_toolbar-icon.
MOVE 'Excel' TO ls_toolbar-quickinfo.
MOVE 'EXCEL' TO ls_toolbar-text.
APPEND ls_toolbar TO e_object->mt_toolbar.
endmethod.
METHOD download_to_excel.
field-symbols:
    <fs0> TYPE standard table,
    <fs1> TYPE standard table.
assign g_outtab1->* to <fs0>.
assign g_fldcat1->* to <fs1>.
break-point 5.
CALL FUNCTION 'LVC_TRANSFER_TO_KKBLO'
    EXPORTING
      it_fieldcat_lvc   = <fs1>
*     is_layout_lvc     = m_cl_variant->ms_layout
       is_tech_complete = ' '
    IMPORTING
      es_layout_kkblo   = ls_layout
      et_fieldcat_kkblo = lt_fieldcat.
   LOOP AT lt_fieldcat INTO lt_fieldcat_wa.
    CLEAR lt_fieldcat_wa-tech_complete.
    IF lt_fieldcat_wa-tabname IS initial.
       lt_fieldcat_wa-tabname = '1'.
       MODIFY lt_fieldcat FROM lt_fieldcat_wa.
    ENDIF.
    l_tabname = lt_fieldcat_wa-tabname.
   ENDLOOP.
CALL FUNCTION 'ALV_XXL_CALL'
    EXPORTING
      i_tabname           = l_tabname
      is_layout           = ls_layout
      it_fieldcat         = lt_fieldcat
      i_title             = sy-title
    TABLES
      it_outtab           = <fs0>
    EXCEPTIONS
      fatal_error         = 1
      no_display_possible = 2
      others              = 3.
IF sy-subrc <> 0.
     message id sy-msgid TYPE 'S' number sy-msgno
            with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    ENDIF.
ENDMETHOD.
Your original table that goes to the grid is parameter g_outtab1
the field catalog is g_fldcat1.
These need to be converted to kkblo format to use the XXL function module.
The advantage of this method is that you get an EXCEL spreadsheet interactively.
(Of course the standard export function will still work).
Cheers
Jimbo

Alv output download to excel sheet spliting into three line

hi,
i have developed alv report with 62 fields (62 colums).when i download this output into excel sheet each line spliting into three line.each field has 20 char length.i want download each row as single line.
i am using local file (ctrl + shift+F9) -> spreadsheet option
please advice me to solve this issue. i am using fm REUSE_ALV_GRID_DISPLAY.
In layout i am using
DATA:   min_linesize like sy-linsz,   " if initial min_linesize = 80
          max_linesize like sy-linsz.   " Default 250
min_linesize = 100.
max_linesize = 1000.
gt_layout-zebra             = 'X'. "space.
gt_layout-colwidth_optimize = space.
gt_layout-max_linesize = min_linesize.
gt_layout-max_linesize = max_linesize.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
       i_bypassing_buffer = ' '
       i_callback_program       = sy-repid
       i_callback_pf_status_set = 'SET-PF-STATUS'
       i_callback_user_command = 'USER_COMMAND'
       it_fieldcat              = gt_fieldcat[]
       it_events                = gt_events[]
       is_layout                = gt_layout
      is_variant               = v_stru_disvar
      i_default                = 'X'
      i_save                   = 'A'
IMPORTING
E_EXIT_CAUSED_BY_CALLER           =
ES_EXIT_CAUSED_BY_USER            =
     TABLES
       t_outtab                          = it_final[]
EXCEPTIONS
    program_error                     = 1
    OTHERS                            = 2
Edited by: Raja Ram on Aug 4, 2009 12:40 PM

solved

To download alv output to two excel sheets because of large data

Hi all,
I want to download alv output to excel sheet,I know how to do,but the no of record is very large and can not be accomodated in one sheet.
can anyone please tell how to download it into two sheets or some other way.
I want excel format only.
Regards,
sudha

hi sudha yadav,
right now i am working on the same issue.
what right i am doing is that,
i want to download an internal table it is containing more than 2 lakhs records but excel can accomidate 60000 records, so
before call gui download i am sending first 60000 records into another internal table with same time, by using append statemen and indexs,
that new internal table i am downloading
again i am repeating the same thing by using sy-tabix,
finally i am creating more than one excel file
by using oops concepts we can also create in one excel file no of work sheets
but its lengthy process so i am right now creating no of excel files only
if it is useful , pls rewards points to this answer

A temporary solution for issue of excel sheet for SO_NEW_DOCUMENT_ATT_SEND_

Hi,
we all sometime or the other have faced the problem with SO_NEW_DOCUMENT_ATT_SEND_API1, it passes all the data into a single excel sheet. the following is the code i have written using the same standard FM to resolve the issue.
Problem's Facing     : To send the output of a report as mail attachment (Excel sheet) from SAP, to the User's outlook or TCP/IP
What is happening     : All the data which is being passed to the excel is being put in a single cell of the excel sheet.
Cause               : the difficulty lies in getting the internal table from SAP report, passing it to email Function Module If the structure of the internal Table is unknown .
Solution:
if the user while sending data to the Function module ( created using the following code) puts a '#' between field values, all the fields gets separated into individual cells and the data gets printed as required.
<b>advantages</b> of the following code are:
1) User just need to type userid or multiple userid's separated by comma.
2) Performs multiple tasks with one function module.
3) It can be used to send file with subject only
4) It can be used to send file with subject and body
5) It can be used to send file with subject, body, and attachment
6) Attachment can be of 'TXT' format or 'XLS' format depending upon the choice of the user.
7) User specific parameters for EMAILID, subject, body and attachment type avoiding the dump error of "Type conflict"
8) If the user requires to send output of a report as an excel file, then a single internal table will store the total output separating the field values by ' # ' and the data gets printed evenly. the ' # ' symbol is used as Tab delimiter.
FUNCTION zemail_attachment.
""Local Interface:
*" IMPORTING
*"     REFERENCE(EMAILID)
*"     REFERENCE(SUBJECT)
*"     REFERENCE(ATYPE)
*" TABLES
*"      ATTACH_FILE STRUCTURE SOLISTI1
*"      BODY OPTIONAL
*" EXCEPTIONS
*"      INCORRECT_PARAMETERS
This table requires information about how the data in the
tables OBJECT_HEADER, CONTENTS_BIN and CONTENTS_TXT are
to be distributed to the documents and its attachments.
DATA it_objpack LIKE sopcklsti1 OCCURS 2 WITH HEADER LINE.
This table must contain the summarized data dependent on each object type.
SAPscript objects store information here about forms and styles,
for example. Excel list viewer objects store the number of rows and columns
amongst other things and PC objects store their original file name.
DATA it_objhead LIKE solisti1   OCCURS 1 WITH HEADER LINE.
This table must contain the summarized content of the objects identified as binary objects.
DATA   it_objbin TYPE STANDARD TABLE OF solisti1 INITIAL SIZE 0
                 WITH HEADER LINE.
This table must contain the summarized content of the objects identified as ASCII objects.
DATA it_objtxt LIKE solisti1   OCCURS 10 WITH HEADER LINE.
This table must contain the document recipients.
DATA it_reclist LIKE somlreci1 OCCURS 5 WITH HEADER LINE .
This structure must contain the attributes of the document to be sent.
DATA: doc_ching LIKE sodocchgi1.
DATA: tab_lines LIKE sy-tabix.
Create the internal table for body , subject
DATA: it_body LIKE solisti1 OCCURS 10 WITH HEADER LINE.
*creation of internal table for Email-id.
DATA: BEGIN OF it_mailid OCCURS 0,
        email LIKE kna1-name1 ,
        END OF it_mailid.
*VARIABLES
DATA : v_hash(1) TYPE c VALUE '#'.
DATA: v_string1 LIKE kna1-name1,
        v_string2 LIKE kna1-name1,
        v_string3(12) TYPE c VALUE '@GMAIL.COM'.
*CONSATNTS
CONSTANTS: c_con_cret TYPE c VALUE cl_abap_char_utilities=>horizontal_tab,
             c_con_tab TYPE c VALUE cl_abap_char_utilities=>cr_lf,
             c_raw(3)   TYPE c VALUE 'RAW',
             c_comma(1) TYPE c VALUE ',',
             c_rec_type(1) TYPE c VALUE 'U',
             c_space(1)    TYPE c VALUE ''.
Move Body to Internal Table (body into it_body)
LOOP AT body .
    MOVE body TO it_body .
    APPEND it_body .
ENDLOOP.
doc_ching-obj_descr = subject.   "Subject of the Email
Move the Subject and Body to OBJTXT
it_objtxt[] = it_body[].
DESCRIBE TABLE it_objtxt LINES tab_lines.
READ TABLE it_objtxt INDEX tab_lines.
doc_ching-doc_size = ( tab_lines - 1 ) * 255 + STRLEN( it_objtxt ).
CLEAR it_objpack-transf_bin.
it_objpack-head_start = 1.
it_objpack-head_num   = 0.
it_objpack-body_start = 1.
it_objpack-body_num   = tab_lines.
it_objpack-doc_type   = c_raw.
APPEND it_objpack.
Convert to Excel format
IF NOT attach_file[] IS INITIAL.
IF atype IS INITIAL.
RAISE INCORRECT_PARAMETERS.
ELSEIF atype = 'XLS' .
    LOOP AT attach_file .
      CONCATENATE attach_file v_hash INTO attach_file.
      REPLACE ALL OCCURRENCES OF v_hash IN attach_file WITH c_con_cret.
      IF sy-tabix = 1.
        MOVE attach_file TO it_objbin.
      ELSE.
        CONCATENATE c_con_tab attach_file INTO it_objbin.
      ENDIF.
      APPEND it_objbin.
    ENDLOOP.
ELSEIF atype = 'TXT' .
Convert to Text format
    LOOP AT attach_file .
      REPLACE ALL OCCURRENCES OF v_hash IN attach_file WITH c_con_cret.
      CONCATENATE attach_file c_con_tab INTO it_objbin .
      APPEND it_objbin .
    ENDLOOP.
ENDIF.
DESCRIBE TABLE it_objbin LINES tab_lines.
it_objhead = subject. APPEND it_objhead.
Creating the entry for the compressed attachment
it_objpack-transf_bin = 'X'.
it_objpack-head_start = 1.
it_objpack-head_num   = 1.
it_objpack-body_start = 1.
it_objpack-body_num   = tab_lines.
*check for XLS ,TXT files
IF atype = 'XLS'.
    it_objpack-doc_type   = atype.
ELSEIF atype = 'TXT'.
    it_objpack-doc_type   = c_raw.
ENDIF.
it_objpack-obj_name   = 'ATTACHMENT'.
it_objpack-obj_descr = 'ATTACHMENT'. "Attachment File Name
it_objpack-doc_size   = tab_lines * 255.
APPEND it_objpack..
ENDIF.
Entering names in the distribution list
Concatenating the email with '@GMAIL.COM if the user doesnot specify any mail extension
recipent type as U - for internet usage
SPLIT emailid AT c_comma INTO TABLE it_mailid.
APPEND it_mailid.
LOOP AT it_mailid.
    SHIFT it_mailid-email LEFT DELETING LEADING c_space.
    SPLIT it_mailid-email AT '@' INTO: v_string1 v_string2.
    IF v_string2 IS INITIAL AND NOT it_mailid-email IS INITIAL.
      CONCATENATE v_string1 v_string3 INTO it_reclist-receiver.
      it_reclist-rec_type = c_rec_type.
      APPEND it_reclist.
      CLEAR: v_string1,v_string2.
    ELSE.
      it_reclist-receiver = it_mailid-email.
      it_reclist-rec_type = c_rec_type.
      APPEND it_reclist.
    ENDIF.
ENDLOOP.
CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
    EXPORTING
      document_data              = doc_ching
      put_in_outbox              = 'X'
      commit_work                = 'X'
    TABLES
      packing_list               = it_objpack
      object_header              = it_objhead
      contents_bin               = it_objbin
      contents_txt               = it_objtxt
      receivers                  = it_reclist
    EXCEPTIONS
      too_many_receivers         = 1
      document_not_sent          = 2
      operation_no_authorization = 4
      OTHERS                     = 99.
ENDFUNCTION.
If anyone, has a better solution, please share
Cheers
Ajay

issue resolved

Exporting ALV Grid output to Excel sheet

Hi All,
How can i export the output displayed using Grid to an Excel sheet. I tried with default option from list->export->excel sheet/local file but i am not getting complete data and the data which i am getting also notin proper format. Please help me in this regard.
Best Regards,
Sunil

Check out the ALV grid toolbar for export options.
Regards
Raja

Download colored ALV output in to EXCEL sheet

Hi ,
I want to download colored ALV output to Excel sheet with color.
one of the field in ALV is with 4 colors depending on condition.
i am unable to download the color using download option(that field is comming with out color).
Please help me by providing the solution.
Thanks in advance.
Regards
sarath

Hi Srini,
thanks for the reply.
i am using standard download function only.
if i use download->local file->HTML Format only the font is appearing in colors.in case of spread sheet no color comming.
but my requirement is to download into excel and background also with color(green...) font in black like that.
(exactly appearing in the ALV)
Thanks
sarath

Problem while exporting ALV column header to excel sheet.

Hi,
I am able to export an ALV grid details to an excel sheet. But the ALV column headers when exported to excel sheet are getting truncated.
For eg: if my column header in ALV grid is displayed as 'Material' then the column header in excel sheet is 'Mater' only. Remaining portion is getting truncated.
How can I view the entire column header text?
Kindly assist.
Thanks.

I have the same problem with you, when user export to excel. I fixed it by using
w_layo-colwidth_optimize = 'X'. <<<<<<<<<<<<This
perform generate_fcat_reftab
    using 'PRUEFLOS' 'T_INPUT' '' '' 'Inspection Lot' 0.
form generate_fcat_reftab using    p_fieldname
                                    p_tabname
                                    p_ref_tabname
                                    p_ref_fieldname
                                    p_output_text
                                    p_output_lenght.
clear w_fcat.
w_fcat-fieldname = p_fieldname.
w_fcat-tabname   = p_tabname.
w_fcat-ref_fieldname = p_ref_fieldname.
w_fcat-ref_tabname = p_ref_tabname.
w_fcat-seltext_s = p_output_text.
w_fcat-seltext_m = p_output_text.
w_fcat-seltext_l = p_output_text.
w_fcat-outputlen = p_output_lenght.
w_fcat-ddictxt = 'L'. <<<<<<<<<<<<<<<<<<This
append w_fcat to t_fcat.
endform.

WD ABAP - Worksheet issue of Excel sheet

Hi experts,
The requirement is such that there is a link and a table.
When the link will be clicked the whole table will be downloaded into excel file.
I have written a code to download the table into excel file.
Here is the part of the code----
convert 'Text' to 'XTEXT'
    CALL FUNCTION 'SCMS_STRING_TO_XSTRING'
      EXPORTING
        text   = l_text1
      IMPORTING
        buffer = l_xtext1.
    wdr_task=>client_window->client->attach_file_to_response(
*path to the word file
       i_filename = l_filename
String Variable
      i_content = l_xtext1
File Type
      i_mime_type = 'EXCEL').
When the link is being clicked a pop up comes with three options 'Open','Save' and 'Cancel'.
If 'Save' is clicked the file is name with a name 'Reportee.xls' and when the excel sheet is being opened in the worksheet ,it shows the name 'Reportee.xls'.
Issues----
The issue arises when user clicks 'Open' option and worksheet area it shows '.xls]Repotee(1)'.
Instead of '.xls]Repotee(1)' it should be 'Reportee.xls'.
Please help me sort out the issue.
Thanking you.
Anindita Banerjee

Hi Anandita,
Try using the Variable "File Type" in the method call attach_file_to_response.
Cheers,
Kunjal

ALV layout issue in excel sheet

Similar Messages

Maybe you are looking for