Problem in ALV report o/p to Excel

Question

Hi to all
I have developed an ALV report, which is showing correct display and out put.
But when I am downloading it to excel, o/p is not coming in proper way. Fields are misplaced from there actual place and not in readable condition.
Please guide me..
Regards
Anubhav

Answer 1

Hello Lakshmiraj
I am sending you the coding of my ALV report program.
Please check.
REgards
Anubhav
*& Report  YRMR033_AMENDMENT_ORDER_LIST
*& DEVELOPER : ANUBHAV GUPTA
*& DATE : 21.03.2008
*&  REPORT DESCRIPTION : REPORT TO DISPLAY  AMENDMENTS IN PURCDHASE ORDERS
                        WITH OLD VALUES AND NEW VALUES.
REPORT YRMR033_AMENDMENT_ORDER_LIST LINE-SIZE 132 NO STANDARD PAGE HEADING
LINE-COUNT 065(001)
MESSAGE-ID VR.
TABLES: DD04T,
CDHDR,
CDPOS,
DD03L,
DD41V,
T685T,
VBPA,
TPART,
KONVC,
EKKO.
TABLES : NAST,  LFA1,ekpo.
SELECT-OPTIONS: "XUDATE FOR nast-erdat OBLIGATORY, "Created on date
                XUDATE FOR CDHDR-UDATE OBLIGATORY, "Amendment date
                S_EKGRP FOR EKKO-EKGRP,
                s_lifnr for ekko-lifnr.
SELECTION-SCREEN SKIP.
DATA: WFLAG,
WCHANGENR LIKE CDHDR-CHANGENR.
DATA: INDTEXT(60) TYPE C.
DATA: BEGIN OF ICDHDR OCCURS 50.
        INCLUDE STRUCTURE CDHDR.
DATA: END OF ICDHDR.
DATA: BEGIN OF ICDSHW OCCURS 50.
        INCLUDE STRUCTURE CDSHW.
DATA: END OF ICDSHW.
DATA: BEGIN OF EKKEY,
EBELN LIKE EKET-EBELN,
EBELP LIKE EKET-EBELP,
ETENR LIKE EKET-ETENR,
END OF EKKEY.
DATA: BEGIN OF ITAB OCCURS 50,
BEGIN OF EKKEY,
EBELN LIKE EKET-EBELN,
EBELP LIKE EKET-EBELP,
ETENR LIKE EKET-ETENR,
END OF EKKEY,
ebeln like ekko-ebeln,
ebelp like ekpo-ebelp,
CHANGENR LIKE CDHDR-CHANGENR,
UDATE LIKE CDHDR-UDATE,
UTIME LIKE CDHDR-UTIME,
USERNAME LIKE CDHDR-USERNAME,
CHNGIND LIKE CDSHW-CHNGIND,
FNAME LIKE CDSHW-FNAME,     "ADDED BY ANUBHAV
FTEXT LIKE CDSHW-FTEXT,
OUTLEN LIKE CDSHW-OUTLEN,
F_OLD LIKE CDSHW-F_OLD,
F_NEW LIKE CDSHW-F_NEW,
END OF ITAB.
DATA : BEGIN OF ITAB1 OCCURS 0,
        EBELN LIKE EKET-EBELN,
        bedat like ekko-bedat,
        EBELP LIKE EKET-EBELP,
        txz01 like ekpo-txz01,
        lifnr like ekko-lifnr,
        name1 like lfa1-name1,
        UDATE LIKE CDHDR-UDATE,
        FTEXT LIKE CDSHW-FTEXT,
        F_OLD LIKE CDSHW-F_OLD,
       ekgrp like ekko-ekgrp,
       F_NEW LIKE CDSHW-F_NEW,
       CHANGENR LIKE CDHDR-CHANGENR,
UTIME LIKE CDHDR-UTIME,
USERNAME LIKE CDHDR-USERNAME,
CHNGIND LIKE CDSHW-CHNGIND,
FNAME LIKE CDSHW-FNAME,     "ADDED BY ANUBHAV
OUTLEN LIKE CDSHW-OUTLEN,
AMDNO TYPE CHAR4,
END OF ITAB1.
DATA: OLD_OBJECTID LIKE CDHDR-OBJECTID.
      INTERNAL TABLES
----"modification
DATA: BEGIN OF I_NAST OCCURS 0,
       OBJKY TYPE NAST-OBJKY,
       ERDAT TYPE NAST-ERDAT,
       KAPPL TYPE NAST-KAPPL,
       KSCHL TYPE NAST-KSCHL,
       PARVW TYPE NAST-PARVW,
       PARNR TYPE NAST-PARNR,
       ERUHR TYPE NAST-ERUHR,
       AMDNO TYPE CHAR4,
       EBELN TYPE EKKO-EBELN,
      END OF I_NAST.
DATA : I_NAST1 LIKE TABLE OF I_NAST WITH HEADER LINE.
DATA: BEGIN OF I_TAB OCCURS 0,
       OBJKY TYPE NAST-OBJKY,
       ERDAT TYPE NAST-ERDAT,
       KAPPL TYPE NAST-KAPPL,
       KSCHL TYPE NAST-KSCHL,
       PARVW TYPE NAST-PARVW,
       PARNR TYPE NAST-PARNR,
       ERUHR TYPE NAST-ERUHR,
      END OF I_TAB.
DATA: INDEX TYPE I.
TYPE-POOLS : SLIS.
          ALV Declarations                                          *
DATA: W_REPID            LIKE      SY-REPID,
      P_I_FIELDCAT       TYPE      SLIS_T_FIELDCAT_ALV,
      P_I_HEADING        TYPE      SLIS_T_LISTHEADER,
      I_LAYOUT           TYPE      SLIS_LAYOUT_ALV,
      I_EVENTS           TYPE      SLIS_T_EVENT,
      I_HEADING          TYPE      SLIS_T_LISTHEADER.
DATA: WA_FIELDCAT TYPE SLIS_FIELDCAT_ALV,
      SR TYPE I.
INITIALIZATION----
INITIALIZATION.
  CLEAR I_NAST.
  CLEAR I_TAB.
  REFRESH I_NAST.
  REFRESH I_TAB.
AT SELECTIN SCREEN----
AT SELECTION-SCREEN.
PERFORM DATA_VALIDATION.
TOP OF PAGE----
TOP-OF-PAGE.
PERFORM TOP_OF_PAGE.
END OF PAGE----
END-OF-PAGE.
START OF SELECTION----
START-OF-SELECTION.
  PERFORM BUILD_COMMENT  USING I_HEADING.
  PERFORM EVENT_BUILD CHANGING I_EVENTS.
  SELECT * FROM EKKO . " WHERE EBELN IN XEBELN AND
*LIFNR IN XLIFNR.
    CLEAR CDHDR.
    CLEAR CDPOS.
    CDHDR-OBJECTCLAS = 'EINKBELEG'.
    CDHDR-OBJECTID = EKKO-EBELN.
    PERFORM GETCHGDOCS.
  ENDSELECT.
  DELETE ITAB WHERE ( FNAME NE 'NETPR'
                   AND FNAME NE 'NETWR'
                   AND FNAME NE 'MENGE' ).
  loop at itab.
    read table itab.
    itab-ebeln = itab-ekkey+0(10).
    itab-ebelp = itab-ekkey+11(4).
    modify itab.
  endloop.
  LOOP AT ITAB.
    MOVE-CORRESPONDING ITAB TO ITAB1.
    APPEND ITAB1.
  ENDLOOP.
  LOOP AT ITAB1.
    SELECT OBJKY ERDAT KAPPL KSCHL PARVW PARNR ERUHR
     FROM NAST
     INTO CORRESPONDING FIELDS OF TABLE I_NAST
     WHERE OBJKY = ITAB1-EBELN
       AND KAPPL = 'EF'
       AND KSCHL = 'ZNEU'
       AND PARVW = 'LF'
       AND SPRAS = SY-LANGU.
    IF SY-SUBRC NE 0.
      DELETE ITAB1.
    ENDIF.
    LOOP AT I_NAST.
      MOVE-CORRESPONDING I_NAST TO I_NAST1.
      APPEND I_NAST1.
    ENDLOOP.
  ENDLOOP.
  SORT I_NAST1 BY OBJKY ASCENDING ERDAT DESCENDING ERUHR DESCENDING.
  DELETE ADJACENT DUPLICATES FROM I_NAST1 COMPARING OBJKY.
* Select data from TABLE NAST to get ebeln before selected date
  IF I_NAST1[] IS NOT INITIAL.
    SELECT OBJKY ERDAT KAPPL KSCHL PARVW PARNR ERUHR
    FROM NAST
    INTO CORRESPONDING FIELDS OF TABLE I_TAB
    FOR ALL ENTRIES IN I_NAST1
    WHERE OBJKY =  I_NAST1-OBJKY
      AND ERDAT <= I_NAST1-ERDAT
      AND PARNR =  I_NAST1-PARNR
      AND KAPPL =  'EF'
      AND KSCHL =  'ZNEU'
      AND PARVW =  'LF'
      AND SPRAS = SY-LANGU.
  ENDIF.
Logic to get no of amendments for one po
  LOOP AT I_NAST1.
    CLEAR INDEX.
    LOOP AT I_TAB WHERE OBJKY = I_NAST1-OBJKY.
      INDEX = INDEX + 1.
    ENDLOOP.
    I_NAST1-AMDNO = INDEX - 1.
    I_NAST1-EBELN = I_NAST1-OBJKY.
    MODIFY I_NAST1 TRANSPORTING AMDNO EBELN.
  ENDLOOP.
*LOOP AT I_NAST1.
*READ TABLE ITAB1 WITH KEY EBELN = I_NAST1-EBELN.
*IF SY-SUBRC = 0.
*ITAB1-AMDNO = I_NAST1-AMDNO.
*MODIFY ITAB1 TRANSPORTING AMDNO .
*ENDIF.
*ENDLOOP.
DELETE I_NAST1 WHERE AMDNO = 0. "ADDED BY ANUBHAV
LOOP AT ITAB1.
READ TABLE I_NAST1 WITH KEY EBELN = ITAB1-EBELN.
IF SY-SUBRC NE 0.
DELETE ITAB1.
ENDIF.
ENDLOOP.
  loop at itab1.
    select single *
                              from ekko
                              into  ekko
                              where ebeln = itab1-ebeln.
    if sy-subrc = 0.
      itab1-bedat = ekko-bedat.
      itab1-lifnr = ekko-lifnr.
      itab1-ekgrp = ekko-ekgrp.
      modify itab1.
    endif.
  endloop.
  DELETE ITAB1 WHERE EKGRP NOT IN S_EKGRP.
  DELETE ITAB1 WHERE LIFNR NOT IN S_LIFNR.
  loop at itab1.
    select single *
                  from lfa1
                  into lfa1
                  where lifnr = itab1-lifnr.
    if sy-subrc = 0.
      itab1-name1 = lfa1-name1.
      modify itab1.
    endif.
  endloop.
  loop at itab1.
    select single *
                  from ekpo
                  into ekpo
                  where ebeln = itab1-ebeln
                  and  ebelp = itab1-ebelp.
    if sy-subrc = 0.
      itab1-txz01 = ekpo-txz01.
      modify itab1.
    endif.
  endloop.
  sort itab1 by udate descending ebeln ebelp.
building field catelogue
  ADD 1 TO SR.
  WA_FIELDCAT-COL_POS    = SR.
  WA_FIELDCAT-ROW_POS    = 1.
  WA_FIELDCAT-TABNAME    = 'Itab1'.
  WA_FIELDCAT-JUST       = 'L' .
  WA_FIELDCAT-FIELDNAME  = 'EBELN'.
  WA_FIELDCAT-SELTEXT_L  = 'PO NO '.
  APPEND WA_FIELDCAT TO P_I_FIELDCAT.
  CLEAR WA_FIELDCAT.
  ADD 1 TO SR.
  WA_FIELDCAT-COL_POS    = SR.
  WA_FIELDCAT-ROW_POS    = 1.
  WA_FIELDCAT-TABNAME    = 'Itab1'.
  WA_FIELDCAT-JUST       = 'L' .
  WA_FIELDCAT-FIELDNAME  = 'BEDAT'.
  WA_FIELDCAT-SELTEXT_L  = 'PO DATE '.
  APPEND WA_FIELDCAT TO P_I_FIELDCAT.
  CLEAR WA_FIELDCAT.
  ADD 1 TO SR.
  WA_FIELDCAT-COL_POS    = SR.
  WA_FIELDCAT-ROW_POS    = 1.
  WA_FIELDCAT-TABNAME    = 'Itab1'.
  WA_FIELDCAT-JUST       = 'L' .
  WA_FIELDCAT-FIELDNAME  = 'EBELP'.
  WA_FIELDCAT-SELTEXT_L  = 'Item No '.
  APPEND WA_FIELDCAT TO P_I_FIELDCAT.
  CLEAR WA_FIELDCAT.
  ADD 1 TO SR.
  WA_FIELDCAT-COL_POS    = SR.
  WA_FIELDCAT-ROW_POS    = 1.
  WA_FIELDCAT-TABNAME    = 'Itab1'.
  WA_FIELDCAT-JUST       = 'L' .
  WA_FIELDCAT-FIELDNAME  = 'TXZ01'.
  WA_FIELDCAT-SELTEXT_L  = 'Item Description'.
  APPEND WA_FIELDCAT TO P_I_FIELDCAT.
  CLEAR WA_FIELDCAT.
  ADD 1 TO SR.
  WA_FIELDCAT-COL_POS    = SR.
  WA_FIELDCAT-ROW_POS    = 1.
  WA_FIELDCAT-TABNAME    = 'Itab1'.
  WA_FIELDCAT-JUST       = 'L' .
  WA_FIELDCAT-FIELDNAME  = 'LIFNR'.
  WA_FIELDCAT-SELTEXT_L  = 'Vendor NO '.
  APPEND WA_FIELDCAT TO P_I_FIELDCAT.
  CLEAR WA_FIELDCAT.
  ADD 1 TO SR.
  WA_FIELDCAT-COL_POS    = SR.
  WA_FIELDCAT-ROW_POS    = 1.
  WA_FIELDCAT-TABNAME    = 'Itab1'.
  WA_FIELDCAT-JUST       = 'L' .
  WA_FIELDCAT-FIELDNAME  = 'NAME1'.
  WA_FIELDCAT-SELTEXT_L  = 'Vendor Name'.
  APPEND WA_FIELDCAT TO P_I_FIELDCAT.
  CLEAR WA_FIELDCAT.
  ADD 1 TO SR.
  WA_FIELDCAT-COL_POS    = SR.
  WA_FIELDCAT-ROW_POS    = 1.
  WA_FIELDCAT-TABNAME    = 'ITAB1'.
  WA_FIELDCAT-JUST       = 'L' .
  WA_FIELDCAT-FIELDNAME  = 'UDATE'.
  WA_FIELDCAT-SELTEXT_L  = 'Amendment Date'.
  APPEND WA_FIELDCAT TO P_I_FIELDCAT.
  CLEAR WA_FIELDCAT.
  ADD 1 TO SR.
  WA_FIELDCAT-COL_POS    = SR.
  WA_FIELDCAT-ROW_POS    = 1.
  WA_FIELDCAT-TABNAME    = 'ITAB1'.
  WA_FIELDCAT-JUST       = 'L' .
  WA_FIELDCAT-FIELDNAME  = 'FTEXT'.
  WA_FIELDCAT-SELTEXT_l  = 'Change Field Description'.
  WA_FIELDCAT-just = 'L'.
  APPEND WA_FIELDCAT TO P_I_FIELDCAT.
  CLEAR WA_FIELDCAT.
  ADD 1 TO SR.
  WA_FIELDCAT-COL_POS    = SR.
  WA_FIELDCAT-ROW_POS    = 1.
  WA_FIELDCAT-TABNAME    = 'ITAB1'.
  WA_FIELDCAT-JUST       = 'L' .
  WA_FIELDCAT-FIELDNAME  = 'F_OLD'.
  WA_FIELDCAT-SELTEXT_L  = 'Old Value '.
  APPEND WA_FIELDCAT TO P_I_FIELDCAT.
  CLEAR WA_FIELDCAT.
  ADD 1 TO SR.
  WA_FIELDCAT-COL_POS    = SR.
  WA_FIELDCAT-ROW_POS    = 1.
  WA_FIELDCAT-TABNAME    = 'ITAB1'.
  WA_FIELDCAT-JUST       = 'L' .
  WA_FIELDCAT-FIELDNAME  = 'F_NEW'.
  WA_FIELDCAT-JUST       = 'L' .
  WA_FIELDCAT-SELTEXT_L  = 'New Value '.
  APPEND WA_FIELDCAT TO P_I_FIELDCAT.
  CLEAR WA_FIELDCAT.
  DATA : L_REPID TYPE  SYREPID,
         L_REPID1 LIKE DISVARIANT.
  L_REPID = SY-REPID.
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
  I_INTERFACE_CHECK                 = ' '
  I_BYPASSING_BUFFER                = ' '
     I_BUFFER_ACTIVE                   = 'X'
     I_CALLBACK_PROGRAM                = L_REPID
  I_CALLBACK_PF_STATUS_SET          = ' '
  I_CALLBACK_USER_COMMAND           = ' '
  I_CALLBACK_TOP_OF_PAGE            = ' '
  I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
  I_CALLBACK_HTML_END_OF_LIST       = ' '
  I_STRUCTURE_NAME                  =
  I_BACKGROUND_ID                   = ' '
  I_GRID_TITLE                      =
  I_GRID_SETTINGS                   =
     IS_LAYOUT                         = I_LAYOUT
     IT_FIELDCAT                       = P_I_FIELDCAT[]
  IT_EXCLUDING                      =
  IT_SPECIAL_GROUPS                 =
  IT_SORT                           =
  IT_FILTER                         =
  IS_SEL_HIDE                       =
  I_DEFAULT                         = 'X'
     I_SAVE                            = 'X'
     IS_VARIANT                        = L_REPID1
     IT_EVENTS                         = I_EVENTS
  IT_EVENT_EXIT                     =
  IS_PRINT                          =
  IS_REPREP_ID                      =
  I_SCREEN_START_COLUMN             = 0
  I_SCREEN_START_LINE               = 0
  I_SCREEN_END_COLUMN               = 0
  I_SCREEN_END_LINE                 = 0
  I_HTML_HEIGHT_TOP                 = 0
  I_HTML_HEIGHT_END                 = 0
  IT_ALV_GRAPHICS                   =
  IT_HYPERLINK                      =
  IT_ADD_FIELDCAT                   =
  IT_EXCEPT_QINFO                   =
  IR_SALV_FULLSCREEN_ADAPTER        =
IMPORTING
  E_EXIT_CAUSED_BY_CALLER           =
  ES_EXIT_CAUSED_BY_USER            =
    TABLES
      T_OUTTAB                          = ITAB1[]
   EXCEPTIONS
     PROGRAM_ERROR                     = 1
     OTHERS                            = 2
  IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
*&      Form  GETCHGDOCS
      text
FORM GETCHGDOCS.
  CALL FUNCTION 'CHANGEDOCUMENT_READ_HEADERS'
    EXPORTING
      DATE_OF_CHANGE    = CDHDR-UDATE
      OBJECTCLASS       = CDHDR-OBJECTCLAS
      OBJECTID          = CDHDR-OBJECTID
      TIME_OF_CHANGE    = CDHDR-UTIME
      USERNAME          = CDHDR-USERNAME
    TABLES
      I_CDHDR           = ICDHDR
    EXCEPTIONS
      NO_POSITION_FOUND = 1
      OTHERS            = 2.
  CHECK SY-SUBRC EQ 0.
  DELETE ICDHDR WHERE CHANGE_IND EQ 'I'.
  CHECK NOT ICDHDR[] IS INITIAL.
  LOOP AT ICDHDR.
    CHECK ICDHDR-UDATE IN XUDATE.
   CHECK ICDHDR-USERNAME IN XNAME.
    CALL FUNCTION 'CHANGEDOCUMENT_READ_POSITIONS'
      EXPORTING
        CHANGENUMBER      = ICDHDR-CHANGENR
      IMPORTING
        HEADER            = CDHDR
      TABLES
        EDITPOS           = ICDSHW
      EXCEPTIONS
        NO_POSITION_FOUND = 1
        OTHERS            = 2.
    CHECK SY-SUBRC EQ 0.
    DELETE ICDSHW WHERE ( CHNGIND NE 'U' OR TABNAME NE 'EKPO' ).
    LOOP AT ICDSHW.
      CHECK ICDSHW-TEXT_CASE EQ SPACE.
      MOVE-CORRESPONDING ICDSHW TO ITAB.
      MOVE-CORRESPONDING ICDHDR TO ITAB.
      MOVE ICDSHW-TABKEY+3 TO ITAB-EKKEY.
      APPEND ITAB.
    ENDLOOP.
  ENDLOOP.
ENDFORM.                    "GETCHGDOCS
*&      Form  BUILD_COMMENT
      text
     -->P_I_HEADING  text
FORM BUILD_COMMENT  USING  P_I_HEADING TYPE SLIS_T_LISTHEADER.
  DATA: WA_LINE TYPE SLIS_LISTHEADER,
          TEXT1(50) TYPE C,
          TEXT2(40) TYPE C,
          W_DATE1(10) TYPE C,
          W_DATE2(10) TYPE C.
  CONCATENATE ' CHAMBAL FERTILISERS AND CHEMICALS LIMITED' ' ' INTO TEXT1.
  WA_LINE-TYP  = 'H'.
  WA_LINE-INFO = TEXT1.
  APPEND WA_LINE TO P_I_HEADING.
  CLEAR TEXT1.
  CONCATENATE ' AMENDED ORDERS' ' ' INTO TEXT1.
  WA_LINE-TYP  = 'S'.
  WA_LINE-INFO = TEXT1.
  APPEND WA_LINE TO P_I_HEADING.
  write xudate-low to w_date1 DD/MM/YYYY .
  write xudate-high to w_date2 DD/MM/YYYY .
  concatenate 'PERIOD FROM : ' W_DATE1 ' TO ' W_DATE2 INTO TEXT2 SEPARATED BY SPACE.
  WA_LINE-TYP = 'S'.
  WA_LINE-INFO = TEXT2.
  APPEND WA_LINE TO P_I_HEADING.
ENDFORM.                    " build_comment
*&      Form  EVENT_BUILD
      text
     -->P_I_EVENTS text
FORM EVENT_BUILD  CHANGING P_I_EVENTS  TYPE SLIS_T_EVENT.
  DATA: W_EVENT TYPE SLIS_ALV_EVENT.
  CONSTANTS:
GC_FORMNAME_TOP_OF_PAGE TYPE SLIS_FORMNAME VALUE 'TOP_OF_PAGE'.
  CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
    EXPORTING
      I_LIST_TYPE = 0
    IMPORTING
      ET_EVENTS   = P_I_EVENTS.
  READ TABLE P_I_EVENTS WITH KEY NAME =  SLIS_EV_TOP_OF_PAGE
                           INTO W_EVENT.
  IF SY-SUBRC = 0.
    MOVE GC_FORMNAME_TOP_OF_PAGE TO W_EVENT-FORM.
    APPEND W_EVENT TO P_I_EVENTS.
  ENDIF.
ENDFORM.                    " event_build
*&      Form  TOP_OF_PAGE
      text
FORM TOP_OF_PAGE .
  CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      IT_LIST_COMMENTARY = I_HEADING
      I_LOGO             = 'CFCLLOGO'.
ENDFORM.                    " top_of_page