Adjusting column header length in excel

Hi,
i'm using MS_EXCEL_OLE_STANDARD_DAT to download internal table contents to a spread sheet. im passing another internal table to write headers. however, i realized that this funtion module doesnt allow the length of the column header to be more than column length .
My question may look weird but if there is any other way or FM to overcome this, please let me know.
Thanks,
ravi.

Hi,
Use this FM . This looks good and also will solve your purpose. I've given it in a FORM ENDFORM. Just copy and paste it in ur code and make changes in the itab names and field names as needed.
DATA: IT_COLS LIKE GXXLT_V OCCURS 0 WITH HEADER LINE.
DATA: IT_ONLINE LIKE GXXLT_O OCCURS 0 WITH HEADER LINE.
DATA: IT_PRINT LIKE GXXLT_P OCCURS 0 WITH HEADER LINE.
1)Load the actual data into the itab it_qual_com.
2)PERFORM EXCEL_GENERATION.
Bingo this will work. Please award points for the same if this was useful.
<b>Cheers,
Sam.</b>
FORM EXCEL_GENERATION.
IND = 0.
IT_COLS-COL_NAME = 'Emp No'.
IND = IND + 1.
IT_COLS-COL_NO = IND.
Append it_cols.
IT_COLS-COL_NAME = 'Name'.
IND = IND + 1.
IT_COLS-COL_NO = IND.
Append it_cols.
IT_COLS-COL_NAME = 'Date of Joining'.
IND = IND + 1.
IT_COLS-COL_NO = IND.
Append it_cols.
IT_COLS-COL_NAME = 'Confirmed'.
IND = IND + 1.
IT_COLS-COL_NO = IND.
Append it_cols.
IT_COLS-COL_NAME = 'Role Code'.
IND = IND + 1.
IT_COLS-COL_NO = IND.
Append it_cols.
IT_COLS-COL_NAME = 'Role Description'.
IND = IND + 1.
IT_COLS-COL_NO = IND.
Append it_cols.
IT_COLS-COL_NAME = 'Job Band'.
IND = IND + 1.
IT_COLS-COL_NO = IND.
Append it_cols.
IT_COLS-COL_NAME = 'Skill'.
IND = IND + 1.
IT_COLS-COL_NO = IND.
Append it_cols.
IT_COLS-COL_NAME = 'Additional Weightage'.
IND = IND + 1.
IT_COLS-COL_NO = IND.
Append it_cols.
IT_COLS-COL_NAME = 'Progeon Experience(months)'.
IND = IND + 1.
IT_COLS-COL_NO = IND.
Append it_cols.
IT_COLS-COL_NAME = 'Prev. Relevant Experience(months)'.
IND = IND + 1.
IT_COLS-COL_NO = IND.
Append it_cols.
IT_COLS-COL_NAME = 'Total Experience(months)'.
IND = IND + 1.
IT_COLS-COL_NO = IND.
Append it_cols.
IT_COLS-COL_NAME = 'PU/Dept'.
IND = IND + 1.
IT_COLS-COL_NO = IND.
Append it_cols.
IT_COLS-COL_NAME = 'DU'.
IND = IND + 1.
IT_COLS-COL_NO = IND.
Append it_cols.
IT_COLS-COL_NAME = 'Location'.
IND = IND + 1.
IT_COLS-COL_NO = IND.
Append it_cols.
IT_COLS-COL_NAME = 'Age'.
IND = IND + 1.
IT_COLS-COL_NO = IND.
Append it_cols.
IT_COLS-COL_NAME = 'Date of Birth'.
IND = IND + 1.
IT_COLS-COL_NO = IND.
Append it_cols.
IT_COLS-COL_NAME = 'Gender'.
IND = IND + 1.
IT_COLS-COL_NO = IND.
Append it_cols.
IT_COLS-COL_NAME = 'Birth Place'.
IND = IND + 1.
IT_COLS-COL_NO = IND.
Append it_cols.
IT_COLS-COL_NAME = 'State'.
IND = IND + 1.
IT_COLS-COL_NO = IND.
Append it_cols.
IT_COLS-COL_NAME = 'Nationality'.
IND = IND + 1.
IT_COLS-COL_NO = IND.
Append it_cols.
IT_COLS-COL_NAME = 'PB'.
IND = IND + 1.
IT_COLS-COL_NO = IND.
Append it_cols.
IT_COLS-COL_NAME = 'PSB'.
IND = IND + 1.
IT_COLS-COL_NO = IND.
Append it_cols.
IT_COLS-COL_NAME = 'Stream Code'.
IND = IND + 1.
IT_COLS-COL_NO = IND.
Append it_cols.
<b> CALL FUNCTION 'XXL_SIMPLE_API'</b>
   EXPORTING
     N_KEY_COLS              = 1
    TABLES
      COL_TEXT                = IT_COLS
<b>    DATA                    = IT_QUAL_COM</b> "data itab
      ONLINE_TEXT             = IT_ONLINE
      PRINT_TEXT              = IT_PRINT
   EXCEPTIONS
     DIM_MISMATCH_DATA       = 1
     FILE_OPEN_ERROR         = 2
     FILE_WRITE_ERROR        = 3
     INV_WINSYS              = 4
     INV_XXL                 = 5
     OTHERS                  = 6
IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
    WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM.                    "EXCEL_GENERATION

Similar Messages

Re: Increasing Column Header Length While Printing in ALV Grid

Hi
For some column headers in a report, the translations in Turkey are more than 40 characters, because of which while executing the report in TR language, the column header is getting truncated.
So, I would like to know if we can increase the column header length while printing the ALV Grid(OO ALV) output.
Or else, Is there any way where we can divide the column header into 2 rows.
Please let me know.
Thanks and Regards,
Vishwa.

Jose and Sivaram,
Thanks for replying.
The problem we have is with the column headers, there is a limit of 40 characters for the column header in ALV reports. So, increasing the outputlen also did not help.
Regards,
Vishwa.

Need to extend header length in Excel file being downloaded by GUI_DOWNLOAD

hello Experts,
I have written a program where the data from DSO is downloaded into Excel File which is being saved on my desktop.
Now, i am facing one problem with the length of header and the values.
For eg:
I have 15 cloumns and i have given description for each column ie header name. This header is being displayed only upto 255 characters. If the total length of all the columns header desc exceeds 255 char, then blank header is displayed further.
Same is the case with the values of the columns.
I am pasting the relevant code.
The code for displaying header and fields is:
Concatenate
'Sales Org'
'Sales Org Desc'
'Sales Dist'
'Sales Dist Desc'
'Sales Rep'
'Sales Rep Desc'
'Customer Number'
'Customer Desc'
'Billing Document'
'AGI Code No'
'AgiCode Desc'
'UCAGI Code No'
'UCAGI Code Desc'
'Design Code'
'CalMonth'
'CalYear'
'Billing Qty'
'ZDIF'
'ZE01'
'ZE13'
Into ls_contents-line SEPARATED BY lc_tab.
APPEND ls_contents TO lt_contents.
CLEAR ls_contents.
Loop at i_t_Table into wa_i_t_t_Table.
concatenate
      wa_i_t_t_Table-/BIC/G00000574
      wa_i_t_t_Table-salesorg_name
      wa_i_t_t_Table-/BIC/G00000514
      wa_i_t_t_Table-salesdist_name
      wa_i_t_t_Table-/BIC/G00009361
      wa_i_t_t_Table-SalesRep_name
      wa_i_t_t_Table-/BIC/G00000466
      wa_i_t_t_Table-Customer_name
      wa_i_t_t_Table-/BIC/G00000464
      wa_i_t_t_Table-/BIC/G00000001
      wa_i_t_t_Table-agicode_name
      wa_i_t_t_Table-/BIC/G00000002
      wa_i_t_t_Table-UCagicode_name
      wa_i_t_t_Table-/BIC/G00000005
      wa_i_t_t_Table-CALMONTH2
      wa_i_t_t_Table-CALYEAR
      wa_i_t_t_Table-/BIC/G00001108
      wa_i_t_t_Table-/BIC/G00021022
      wa_i_t_t_Table-/BIC/G00021023
      wa_i_t_t_Table-/BIC/G00021024
INTO ls_contents-line SEPARATED BY lc_tab.
*CONCATENATE ls_contents lv_hex1 INTO ls_contents.
          APPEND ls_contents TO lt_contents.
          CLEAR ls_contents.
ENDLOOP.
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
BIN_FILESIZE                    =
   FILENAME                        = c_filename
FILETYPE                        = 'DAT'
APPEND                          = ' '
   WRITE_FIELD_SEPARATOR           = ' '
HEADER                          = '01'
TRUNC_TRAILING_BLANKS           = ' '
WRITE_LF                        = 'X'
COL_SELECT                      = ' '
COL_SELECT_MASK                 = ' '
DAT_MODE                        = ' '
CONFIRM_OVERWRITE               = ' '
NO_AUTH_CHECK                   = ' '
CODEPAGE                        = ' '
IGNORE_CERR                     = ABAP_TRUE
REPLACEMENT                     = '#'
WRITE_BOM                       = ' '
TRUNC_TRAILING_BLANKS_EOL       = 'X'
WK1_N_FORMAT                    = '0'
WK1_N_SIZE                      = '20'
WK1_T_FORMAT                    = '0'
WK1_T_SIZE                      = '20'
WRITE_LF_AFTER_LAST_LINE        = ABAP_TRUE
SHOW_TRANSFER_STATUS            = ABAP_TRUE
IMPORTING
FILELENGTH                      =
TABLES
    DATA_TAB                        = lt_contents
FIELDNAMES                      =
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.
Note: Gone through SDN where many things are suggested like to use parameter of GUI_DOWNLAOD ie "FIELDNAMES " which is disabled in my SAP version.
Please suggest how to make all the headers and the values of the fields properly.
Would appreciate immediate help.
Thanks in advance.
Regards
Lavanya

solved.

How can i bring the column heading downloaded in excel sheet?

hi all,
I am using FM SAP_CONVERT_TO_XLS_FORMAT to downloading populated internal table data into excel sheet by using filename type rlgrap-filename.
Now I need the column heading(field name) for downloaded data in excel sheet.
pls tell me how can i merge the col heading with data perfectly. Is there any FM fulfills this requirement.
pls give me a suitable approch.
Thanks
PRR

HI,
Go thru this code.
REPORT ZRMM0056 NO STANDARD PAGE HEADING
                      MESSAGE-ID ZZ
                      LINE-SIZE 300
                      LINE-COUNT 65.
Program              : ZRMM0056
Title                : Non Inventory PO's
Description          : Non Inventory Purchase Orders details with
                       Vendor and Invoice Receipts and Goods Receipts.
Input :
       Select-options : 1. G/L Account No
       Parameters      : 1.File Paths for the Excel sheet
       Others (Specify):
Output : Extract Files in the application server
       Report :
Hear Ticket #        : 113392
Created by           : Srinivas Rao.M
Created on           : 12/15/2005
Version              : 1
Request              : D10K944304
Transaction Code     : Z420
Change History                                                       *
Date         Programmer Search String   Description                 *
12/19/2005   Srinivas    D10K944316      Removed Purchasing document
                                         Company code and Plant from
                                         Select-Options and Inculded
                                         G/L Account No and changed
                                         code accordingly.
T A B L E S                                                          *
TABLES: EKBE,              " History of Purchasing Document
        EKPO,              " Purchasing Document Item
        EKKO,              " Purchasing Document Header
        LFA1,              " Vendor master (general section)
        EKKN.              " Account Assignment in Purchasing Doc
                    INTERNAL TABLES
*--Internal table to store Purchasing document header data
DATA : BEGIN OF IT_POHEADER OCCURS 0,
        EBELN LIKE EKKO-EBELN,      "Purchasing document
        AEDAT LIKE EKKO-AEDAT,      "Created on
        ERNAM LIKE EKKO-ERNAM,      "Created by
        LIFNR LIKE EKKO-LIFNR,      "Vendor
      END OF IT_POHEADER.
*--Internal table to store Purchasing document Item data
DATA : BEGIN OF IT_POITEM OCCURS 0,
        EBELN LIKE EKPO-EBELN,       "Purchasing document
        EBELP LIKE EKPO-EBELP,       "Item Number
        MATNR LIKE EKPO-MATNR,       "Material number
        BUKRS LIKE EKPO-BUKRS,       "Company code
        WERKS LIKE EKPO-WERKS,       "Plant
        MATKL LIKE EKPO-MATKL,       "Material Group
        MENGE LIKE EKPO-MENGE,       "Order Quantity
        NETPR LIKE EKPO-NETPR,       "Net Price
        PEINH LIKE EKPO-PEINH,       "Price unit
        NETWR LIKE EKPO-NETWR,       "Net Value
      END OF IT_POITEM.
*--Internal table to hold final display data.
DATA : BEGIN OF IT_FINAL OCCURS 0,
         EBELN LIKE EKKO-EBELN,       "Purchasing document
         EBELP LIKE EKPO-EBELP,       "Item Number
         AEDAT LIKE EKKO-AEDAT,       "Created on
         ERNAM LIKE EKKO-ERNAM,       "Created by
         MATNR LIKE EKPO-MATNR,       "Material number
         BUKRS LIKE EKPO-BUKRS,       "Company code
         WERKS LIKE EKPO-WERKS,       "Plant
         MATKL LIKE EKPO-MATKL,       "Material Group
         MENGE LIKE EKPO-MENGE,       "Order Quantity
         NETPR LIKE EKPO-NETPR,       "Net Price
         PEINH LIKE EKPO-PEINH,       "Price unit
         NETWR LIKE EKPO-NETWR,       "Net Value
         LIFNR LIKE EKKO-LIFNR,       "Vendor
         NAME1 LIKE LFA1-NAME1,       "Vendor Name
         GSBER LIKE EKKN-GSBER,      "Business area
*--IR details
        IR_BELNR LIKE EKBE-BELNR,     "IR-Number of Material Document
        IR_BUZEI LIKE EKBE-BUZEI,     "IR-Item in material Document
        IR_BUDAT LIKE EKBE-BUDAT,     "IR-Posting date
        IR_MENGE LIKE EKBE-MENGE,     "IR-Quantity
*--GR details
        GR_BELNR LIKE EKBE-BELNR,     "GR-Number of Material Document
        GR_BUZEI LIKE EKBE-BUZEI,     "GR-Item in material Document
        GR_BUDAT LIKE EKBE-BUDAT,     "GR-Posting date
        GR_MENGE LIKE EKBE-MENGE,     "GR-Quantity
      END OF IT_FINAL.
*--Internal table to store History per Purchasing Document data
DATA : BEGIN OF IT_HISTORY OCCURS 0,
        EBELN LIKE EKBE-EBELN,        "Purchasing document
        EBELP LIKE EKBE-EBELP,        "Item
        VGABE LIKE EKBE-VGABE,        "Trans/Event type
        BELNR LIKE EKBE-BELNR,        "Number of Material Document
        BUZEI LIKE EKBE-BUZEI,        "Item in material Document
        BUDAT LIKE EKBE-BUDAT,        "Posting date
        MENGE LIKE EKBE-MENGE,        "Quantity
        BEWTP LIKE EKBE-BEWTP,        "Posting history category
       END OF IT_HISTORY.
*--Internal table to store vendor name.
DATA : BEGIN OF IT_VENDOR OCCURS 0,
         LIFNR LIKE LFA1-LIFNR,      "Vendor Number
         NAME1 LIKE LFA1-NAME1,      "Vendor Name
       END OF IT_VENDOR.
*--Internal table to store Business area for Purchasing document
DATA : BEGIN OF IT_BUSINESS OCCURS 0,
         EBELN LIKE EKKN-EBELN,      "Purchasing document
         EBELP LIKE EKKN-EBELP,      "Purchasing Item
         SAKTO LIKE EKKN-SAKTO,      "G/L Account No
         GSBER LIKE EKKN-GSBER,      "Business area
       END OF IT_BUSINESS.
DATA : BEGIN OF FIELDNAMES OCCURS 0,
       TEXT(40),
      END OF FIELDNAMES.
                VARIABLES DECLARATION                                *
DATA: V_FILE LIKE IBIPPARMS-PATH,         "File path
       V_FLD LIKE DYNPREAD-FIELDNAME,     "Dynpread fieldname
       V_FLAG(1) VALUE SPACE.              "FLAG VARIABLE
                        SELECTION-SCREEN                             *
SELECTION-SCREEN BEGIN OF BLOCK S1 WITH FRAME TITLE TEXT-001.
*--Begin of change D10K944316
SELECT-OPTIONS : S_SAKTO FOR EKKN-SAKTO. "G/L Accoun no.
*--End of change D10K944316
SELECTION-SCREEN END OF BLOCK S1.
SELECTION-SCREEN BEGIN OF BLOCK S2 WITH FRAME TITLE TEXT-002.
PARAMETERS : P_EXCEL    AS CHECKBOX DEFAULT ' ' . " download to excel
PARAMETERS : C_FILE(128) DEFAULT : 'C:\ZRMM0056.xls'.
SELECTION-SCREEN END OF BLOCK S2.
A T   S E L E C T I O N - S C R E E N                                *
AT SELECTION-SCREEN ON VALUE-REQUEST FOR C_FILE.
*-Form to get file path for download of data
PERFORM GET_FILE_PATH.
AT SELECTION-SCREEN.
PERFORM SCREEN_VALIDATIONS.
START-OF-SELECTION
START-OF-SELECTION.
*--Extract Purchasing document header data.
   PERFORM GET_PO_HEADER_DATA.
*--Extract Purchasing document Item data.
   IF NOT IT_BUSINESS[] IS INITIAL.
     PERFORM GET_PO_ITEM_DATA.
*--Get complete required data in final internal table
     PERFORM GET_FINAL_DATA.
   ENDIF.
END-OF-SELECTION
END-OF-SELECTION.
IF V_FLAG IS INITIAL.
*--Display Purchasing document details
    IF NOT IT_FINAL[] IS INITIAL.
       PERFORM DISPLAY_PODATA.
      IF P_EXCEL = 'X'.
*--To down load data to excel sheet
        PERFORM DOWN_LOAD_TO_EXCEL.
      ENDIF.
    ENDIF.
ELSE.
       MESSAGE I001(ZZ) WITH 'No data found'(003).
ENDIF.
TOP-OF-PAGE
TOP-OF-PAGE.
*--To display page header
PERFORM PAGE_HEADER.
*&      Form GET_PO_HEADER_DATA
      To Get Purchasing header data
FORM GET_PO_HEADER_DATA .
*--To extract Business Area details
       CLEAR IT_BUSINESS.
       REFRESH IT_BUSINESS.
        SELECT EBELN    "Purchasing document
               EBELP    "Purchasing document item
               SAKTO    "G/L Account no
               GSBER    "Business area
               FROM EKKN
               INTO TABLE IT_BUSINESS
               WHERE SAKTO IN S_SAKTO.
IF SY-SUBRC <> 0.
    V_FLAG = 'X'.
    MESSAGE I001(ZZ) WITH
    'No data selected for the given selection criteria'(004).
    STOP.
ELSE.
*--To extract Purchasing document details with respect
to G/L Account no
       CLEAR   IT_POHEADER.
       REFRESH IT_POHEADER.
       SELECT EBELN       "Purchasing document
              AEDAT       "Created on
              ERNAM       "Created by
              LIFNR       "Vendor
            FROM EKKO
            INTO TABLE IT_POHEADER
            FOR ALL ENTRIES IN IT_BUSINESS
            WHERE EBELN = IT_BUSINESS-EBELN.
         IF NOT IT_POHEADER[] IS INITIAL.
            CLEAR   IT_VENDOR.
            REFRESH IT_VENDOR.
*--Extracting Vendor details
            SELECT LIFNR   "Vendor #
                   NAME1   "Name
                 FROM LFA1
                 INTO TABLE IT_VENDOR
                 FOR ALL ENTRIES IN IT_POHEADER
                 WHERE LIFNR = IT_POHEADER-LIFNR.
        ENDIF.
ENDIF.
ENDFORM.                    " GET_PO_HEADER_DATA
*&      Form GET_PO_ITEM_DATA
      To extract Purchasing document item data
FORM GET_PO_ITEM_DATA .
CLEAR   IT_POITEM.
REFRESH IT_POITEM.
   SELECT EBELN        "Purchasing document
          EBELP        "Item Number
          MATNR        "Material number
          BUKRS        "Company code
          WERKS        "Plant
          MATKL        "Material Group
          MENGE        "Order Quantity
          NETPR        "Net Price
          PEINH        "Price unit
          NETWR        "Net Value
       FROM EKPO
       INTO TABLE IT_POITEM
       FOR ALL ENTRIES IN IT_BUSINESS
       WHERE EBELN = IT_BUSINESS-EBELN
        AND EBELP = IT_BUSINESS-EBELP.
IF NOT IT_POITEM[] IS INITIAL.
   CLEAR   IT_HISTORY.
   REFRESH IT_HISTORY.
   SELECT EBELN    "Purchasing document
          EBELP    "Item
          VGABE    "Trans/Event type
          BELNR    "Number of Material Document
          BUZEI    "Item in material Document
          BUDAT    "Posting date
          MENGE    "Quantity
          BEWTP    "Posting history category
        FROM EKBE
        INTO TABLE IT_HISTORY
        FOR ALL ENTRIES IN IT_POITEM
        WHERE EBELN = IT_POITEM-EBELN
          AND EBELP = IT_POITEM-EBELP
          AND ( VGABE = '1' OR VGABE = '2' )   "1 = GR , 2 = IR
          AND ( BEWTP = 'Q' OR BEWTP = 'E' ). "Q = GR , R = IR
   IF SY-SUBRC = 0.
     SORT IT_HISTORY BY EBELN EBELP.
   ENDIF.
ENDIF.
ENDFORM.                    " GET_PO_ITEM_DATA
*&      Form GET_FILE_PATH
      Select file path
FORM GET_FILE_PATH .
CLEAR V_FILE.
MOVE 'p_flname' TO V_FLD.
MOVE C_FILE TO V_FILE.
CALL FUNCTION 'F4_FILENAME'
       EXPORTING
            PROGRAM_NAME = SYST-CPROG
            DYNPRO_NUMBER = SYST-DYNNR
            FIELD_NAME    = V_FLD
       IMPORTING
            FILE_NAME     = V_FILE
       EXCEPTIONS
            OTHERS        = 1.
MOVE V_FILE TO C_FILE.
ENDFORM.                    " GET_FILE_PATH
*&      Form PAGE_HEADER
       To Print page header and other details
FORM PAGE_HEADER .
*--Page Header
ULINE AT /1(300).
FORMAT COLOR 1.
WRITE:/ 'Run Date:'(005), SY-DATUM, 45 'Stanley Works'(006),
         100 'Page No:'(007), SY-PAGNO LEFT-JUSTIFIED, 298 ''.
WRITE:/ 'Run Time:'(008), SY-UZEIT, 43 SY-TITLE, 100 SY-UNAME, 298 ''.
WRITE:/ 'Source :'(009), SY-SYSID, 100 SY-CPROG, 298 ''.
FORMAT COLOR OFF.
ULINE AT /1(300).
FORMAT COLOR 4.
WRITE : / SY-VLINE , (10) 'Purchasing Doc'(010),
            SY-VLINE, (5) 'Item'(011),
            SY-VLINE, (10) 'Created On'(012),
            SY-VLINE, (7) 'Crea By'(013),
            SY-VLINE, (10) 'Material'(014),
            SY-VLINE, (6) 'Com cd'(015),
            SY-VLINE, (5) 'Plant'(016),
            SY-VLINE, (10) 'Mat Group'(017),
            SY-VLINE, (13) 'Order Qty'(018),
            SY-VLINE, (11) 'Net Price'(019),
            SY-VLINE, (10) 'Price Unit'(020),
            SY-VLINE, (13) 'Net Value'(021),
            SY-VLINE, (8) 'Bus Area'(022),
            SY-VLINE, (10) 'Vendor'(023),
            SY-VLINE, (28) 'Vendor Name'(024),
*--IR details
            SY-VLINE, (10) 'IR-Mat Doc'(025),
            SY-VLINE, (5) 'IR-It'(026),
            SY-VLINE, (9) 'IR-Post dt'(027),
            SY-VLINE, (13) 'IR-Quantity'(028),
*--GR details
            SY-VLINE, (10) 'GR-Mat Doc'(029),
            SY-VLINE, (5) 'GR-It'(030),
            SY-VLINE, (9) 'GR-Post dt'(031),
            SY-VLINE, (13) 'GR-Quantity'(032), SY-VLINE.
FORMAT COLOR OFF.
ULINE AT /1(300).
ENDFORM.                    " PAGE_HEADER
*&      Form SCREEN_VALIDATIONS
      Selection screen validations
FORM SCREEN_VALIDATIONS .
*--Validation for G/L Account No
IF NOT S_SAKTO IS INITIAL.
    SELECT SAKNR UP TO 1 ROWS
           INTO EKKN-SAKTO
           FROM SKA1 WHERE
           SAKNR IN S_SAKTO.
    ENDSELECT.
    IF SY-SUBRC <> 0.
      MESSAGE E001(ZZ) with 'Please enter a valid G/L Account no'(048).
    ENDIF.
ENDIF.
*--Validation for Excel file path
IF P_EXCEL = 'X'.
    IF C_FILE = ' '.
      MESSAGE E001(ZZ) with 'Please enter a valid Excle Path'(035).
    ENDIF.
ENDIF.
ENDFORM.                    " SCREEN_VALIDATIONS
*&      Form DISPLAY_PODATA
      To Display Purchasing Document details
FORM DISPLAY_PODATA .
FORMAT COLOR 2.
SORT IT_FINAL BY EBELN EBELP AEDAT BUKRS WERKS.
LOOP AT IT_FINAL.
     WRITE : / SY-VLINE ,(10) IT_FINAL-EBELN,     "Purchasing Doc
               SY-VLINE, (5) IT_FINAL-EBELP,     "Item
               SY-VLINE, (10) IT_FINAL-AEDAT,     "Created On
               SY-VLINE, (7) IT_FINAL-ERNAM,      "Created By
               SY-VLINE, (10) IT_FINAL-MATNR,     "Material
               SY-VLINE, (6) IT_FINAL-BUKRS,      "Company code
               SY-VLINE, (5) IT_FINAL-WERKS,     "Plant
               SY-VLINE, (10) IT_FINAL-MATKL,     "Material Group
               SY-VLINE, (13) IT_FINAL-MENGE, "#EC UOM_IN_MES
                                                   "Order Qty
               SY-VLINE, (11) IT_FINAL-NETPR, "#EC UOM_IN_MES
                                                   "Net Price
               SY-VLINE, (10) IT_FINAL-PEINH, "#EC UOM_IN_MES
                                                   "Price Unit
               SY-VLINE, (13) IT_FINAL-NETWR, "#EC UOM_IN_MES
                                                    "Net Value
               SY-VLINE, (8) IT_FINAL-GSBER,     "Bus Area
               SY-VLINE, (10) IT_FINAL-LIFNR,     "Vendor
               SY-VLINE, (28) IT_FINAL-NAME1,     "Vendor name
*--IR details
               SY-VLINE, (10) IT_FINAL-IR_BELNR, "IR-Mat Doc
               SY-VLINE, (5) IT_FINAL-IR_BUZEI, "IR-It
               SY-VLINE, (9) IT_FINAL-IR_BUDAT,   "IR-Post dt
               SY-VLINE, (13) IT_FINAL-IR_MENGE, "#EC UOM_IN_MES
                                                    "IR-Quantity
*--GR details
               SY-VLINE, (10) IT_FINAL-GR_BELNR, "GR-Mat Doc
               SY-VLINE, (5) IT_FINAL-GR_BUZEI, "GR-It
               SY-VLINE, (9) IT_FINAL-GR_BUDAT,   "GR-Post dt
               SY-VLINE, (13) IT_FINAL-GR_MENGE, SY-VLINE.
                                                   "#EC UOM_IN_MES
                                                   "GR-Quantity
ENDLOOP.
FORMAT COLOR OFF.
ENDFORM.                    " DISPLAY_PODATA
*&      Form DOWN_LOAD_TO_EXCEL
      text
FORM DOWN_LOAD_TO_EXCEL .
<b>REFRESH FIELDNAMES.
FIELDNAMES-TEXT = TEXT-010.
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = TEXT-011.
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = TEXT-012.
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = 'Created By'(036).
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = TEXT-014.
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = 'Company Code'(037).
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = TEXT-016.
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = 'Material Group'(038).
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = 'Order Quantity'(039).
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = TEXT-019.
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = TEXT-020.
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = TEXT-021.
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = 'Business Area'(040).
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = TEXT-023.
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = TEXT-024.
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = 'IR Material Doc'(041).
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = 'IR Item'(042).
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = 'IR Posting Date'(043).
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = TEXT-028.
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = 'GR Material Doc'(044).
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = 'GR Item'(045).
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = 'GR Posting Date'(046).
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = TEXT-032.
APPEND FIELDNAMES.CLEAR FIELDNAMES.
*--FM to download data to Excel sheet
CALL FUNCTION 'WS_DOWNLOAD'
       EXPORTING
            FILENAME                = C_FILE
            FILETYPE                = 'DAT'
            TABLES
            DATA_TAB                = IT_FINAL
            FIELDNAMES              = FIELDNAMES
       EXCEPTIONS
            FILE_OPEN_ERROR         = 1
            FILE_WRITE_ERROR        = 2
            INVALID_FILESIZE        = 3
            INVALID_TABLE_WIDTH     = 4
            INVALID_TYPE            = 5
            NO_BATCH                = 6
            UNKNOWN_ERROR           = 7
            GUI_REFUSE_FILETRANSFER = 8
            OTHERS                  = 9.
IF SY-SUBRC <> 0.
     MESSAGE E001(ZZ) WITH 'Data could not downloaded'(047).
ENDIF.</b>ENDFORM.                    " DOWN_LOAD_TO_EXCEL
*&      Form GET_FINAL_DATA
      To Populate required data in final internal table
FORM GET_FINAL_DATA .
CLEAR   IT_FINAL.
REFRESH IT_FINAL.
LOOP AT IT_POITEM.
   CLEAR IT_POHEADER.
   READ TABLE IT_POHEADER WITH KEY EBELN = IT_POITEM-EBELN.
   IF SY-SUBRC = 0.
    MOVE : IT_POHEADER-EBELN TO IT_FINAL-EBELN,     "Purchasing Doc
            IT_POITEM-EBELP   TO IT_FINAL-EBELP,     "Item
            IT_POHEADER-AEDAT TO IT_FINAL-AEDAT,     "Created On
            IT_POHEADER-ERNAM TO IT_FINAL-ERNAM,     "Created By
            IT_POITEM-MATNR   TO IT_FINAL-MATNR,     "Material
            IT_POITEM-BUKRS   TO IT_FINAL-BUKRS,     "Company code
            IT_POITEM-WERKS   TO IT_FINAL-WERKS,     "Plant
            IT_POITEM-MATKL   TO IT_FINAL-MATKL,     "Material Group
            IT_POITEM-MENGE   TO IT_FINAL-MENGE,     "Order Qty
            IT_POITEM-NETPR   TO IT_FINAL-NETPR,     "Net Price
            IT_POITEM-PEINH   TO IT_FINAL-PEINH,     "Price Unit
            IT_POITEM-NETWR   TO IT_FINAL-NETWR,     "Net Value
            IT_POHEADER-LIFNR TO IT_FINAL-LIFNR.     "Vendor
*--To Insert IR details
    CLEAR IT_HISTORY.
    READ TABLE IT_HISTORY WITH KEY EBELN = IT_POITEM-EBELN
                                   EBELP = IT_POITEM-EBELP
                                   VGABE = '2'
                                   BEWTP = 'Q'.
      IF SY-SUBRC = 0.
        MOVE :
          IT_HISTORY-BELNR TO IT_FINAL-IR_BELNR, "IR-Number of Mat Doc
          IT_HISTORY-BUZEI TO IT_FINAL-IR_BUZEI, "IR-Item in mat Doc
          IT_HISTORY-BUDAT TO IT_FINAL-IR_BUDAT, "IR-Posting date
          IT_HISTORY-BUDAT TO IT_FINAL-IR_MENGE.   "IR-Quantity
      ENDIF.
*--To insert GR details
    CLEAR IT_HISTORY.
    READ TABLE IT_HISTORY WITH KEY EBELN = IT_POITEM-EBELN
                                   EBELP = IT_POITEM-EBELP
                                   VGABE = '1'
                                   BEWTP = 'E'.
      IF SY-SUBRC = 0.
        MOVE :
          IT_HISTORY-BELNR TO IT_FINAL-GR_BELNR, "IR-Number of Mat Doc
          IT_HISTORY-BUZEI TO IT_FINAL-GR_BUZEI, "IR-Item in mat Doc
          IT_HISTORY-BUDAT TO IT_FINAL-GR_BUDAT, "IR-Posting date
          IT_HISTORY-BUDAT TO IT_FINAL-GR_MENGE. "IR-Quantity
      ENDIF.
*--To insert Vendor details
     CLEAR IT_VENDOR.
     READ TABLE IT_VENDOR WITH KEY LIFNR = IT_POHEADER-LIFNR.
     IF SY-SUBRC = 0.
      MOVE : IT_VENDOR-NAME1 TO IT_FINAL-NAME1.
     ENDIF.
*--To insert Business area
     CLEAR IT_BUSINESS.
     READ TABLE IT_BUSINESS WITH KEY EBELN = IT_POITEM-EBELN
                                     EBELP = IT_POITEM-EBELP.
     IF SY-SUBRC = 0.
       MOVE : IT_BUSINESS-GSBER TO IT_FINAL-GSBER.
     ENDIF.
      APPEND IT_FINAL.
      CLEAR IT_FINAL.
    ENDIF.
ENDLOOP.
ENDFORM.                    " GET_FINAL_DATA
thanks
Sunil

How to avoid WRAP of EXCEL Column HEADER Fields

We have 3 tablix in the rdl file with 11 inch * 8.5 inch (to print in A4)
Tablix 1 - HTML viewer
Tablix 2 - EXCEL
Tablix 3 - PDF
The size of the rdl is fixed , if size altered then printing becomes an issue.
So we have to keep the rdl size fix
but at the same time the WRAP of column header of the EXCEL need to be avoided ,
because if the size of the column header is not reduced then we cannot be able to accomodate in the defined page size
Eaxmple of SOme Header Field Name
1.OccupationCode
2.ChargeJobPhase which are quiet large fields, so it need to be wrapped(to reduce the length of the column to accomodate ) to fit in the page.
So as an Alternative option I use the COncept of Subreport and called it by adding row outside group otherwise the
Report Server treats subreport as new report for each instance of the parent report.
The challenge we faced is when export to EXCEL some of the columns is getting merged , I believe the size of the child report (sub report) is having the length
greater than the parent report (Called Report ) and the size has to be large otherwise the COLUMN HEADER need to reduced which makes it Wrapped
So is there any alternative without changing the parent report size and without WRAPPING the HEADER text of CHild report the MERGING of cell can be avoided.
Since MERGING is happening which is not allowing us to PUT FILTER in EXCEL but we need to have FILTER applicable since the END user use it to sort, find the records.

Hi SubhadipRoy,
In Reporting Services, whether to wrap text or not is depended on the CanGrow property. If we set the CanGrow property of tablix header row to true, then the header row of tablix will be expanded. If we set the CanGrow property of tablix header row
to false, the header row will be shrunk as the designed size.
So if we want to avoid wrap text, we can try to set the CanGrow property of tablix header row to false in Reporting Services level. Alternatively, we can click the Wrap Text button to enable the expended extra-long text property in Excel level.
If there are any other questions, please feel free to ask.
Thanks,
Katherine Xiong
Katherine Xiong
TechNet Community Support

Exporting to Excel - How to control Column Heading?

I'm working in SSRS 2012. I have one tablix in the report body. The tablix has both Row and Column Groups.
When rendering in the web browser the report page breaks on a row group. The Repeat Column Headers property is set to "True" so it shows the column headings from page to page.
When rendering in Excel, I want one worksheet and not separate worksheets so the page break is disabled via the Page Break->Disabled property expression "=IIf(Globals!RenderFormat.Name="EXCELOPENXML", True, False)".
This is all good but the Column Headings only show up once at the very top in the excel worksheet.
Is it possible to make the Column Headings repeat with each tablix data region as it is rendered vertically down the worksheet?
OR is there a way from SSRS to set the Excel property "Rows to Repeat at top" to include Column Heading; by default the SSRS Report's header is repeated in Excel, but can the number of rows be changed to include the Column Heading?
OR is there some other work around?
Thanks for your help.
Mark

Thanks for the reply Wendy.
You addressed my second question ... "is there a way from SSRS to set the Excel property "Rows to Repeat at top" to include Column Heading; by default the SSRS Report's header is repeated in Excel, but can it be changed to include the Column Heading?
Based on your response, the only way to freeze the column header in excel is to freeze or split panes AFTER export to excel. well booo but I have to accept that I guess.
My first question is what I really want to do, which is to physically repeat the Column Heading in the excel rendering. I included two pictures demonstrate what I want ...
1) the standard SSRS report rendered in Excel ... Column Headings are shown once:
Standard Export to Excel
                       Year
Region
Category
2011
2012
2013
        Total
East
Sales
10
20
30
60
Expenses
8
20
10
38
Profit
2
0
20
22
West
Sales
8
16
24
48
Expenses
6
16
8
30
Profit
2
0
16
18
2) what I'd like to see rendered in Excel ... which is to repeat the headers as you scroll down the page
Desired Export to Excel
                      Year
Region
Category
2011
2012
2013
        Total
East
Sales
10
20
30
60
Expenses
8
20
10
38
Profit
2
0
20
22
                       Year
Region
Category
2011
2012
2013
        Total
West
Sales
8
16
24
48
Expenses
6
16
8
30
Profit
2
0
16
18
Thanks again for your help,
Mark

Auto adjust RichColumn header text width

Hi.
My column in RichTable (11g) has a header title "X". In the backing bean I programatically change it to "XXXXXXXXXXXXX".
How can I adjust column header width so it will include the whole "XXXXXXXXXXXXX" text.
Of course I can set the width of the column , but I need to know how to calculate the width according to the text length
Please advice

can you try setting the column width to 100% or having it in a panelStretchLayout ?

Report output format xml, missing column while open in excel for single row

Dear,
There is a strange case, we have an customize concurrent program to display output in xml format. Now Problem is, if query get single record on the bases of parameter then there is no column heading available in excel. However, if parameter meet more than one record then there is no issue with column heading and reports is working find.
Pls have an idea?

Dear Pk,
Here is an example, will show the actual problem. Let explain you, first i have run report by restricting query on single record which output name is "output1", again i run same report by changing where clause so it return multiple row which is "output2". if you past code in text document each one and save it as xml but when you open this file in excel report you will find column heading which rows consist multiple row, however, ouput1 file have no heading columns that's a problem.
1.Oputput1
<?xml version="1.0"?>

<DEPTNO>
<LIST_G_EMPNO>
<G_EMPNO>
<EMPNO>7839</EMPNO>
<ENAME>KING</ENAME>
<HIREDATE>17-NOV-81</HIREDATE>
<SAL>5000</SAL>
<DEPTNO>10</DEPTNO>
</G_EMPNO>
</LIST_G_EMPNO>
</DEPTNO>
2.Oputput2
<?xml version="1.0"?>

<T01103240>
<LIST_G_EMPNO>
<G_EMPNO>
<EMPNO>7788</EMPNO>
<ENAME>SCOTT</ENAME>
<HIREDATE>09-DEC-82</HIREDATE>
<SAL>3000</SAL>
<DEPTNO>20</DEPTNO>
</G_EMPNO>
<G_EMPNO>
<EMPNO>7902</EMPNO>
<ENAME>FORD</ENAME>
<HIREDATE>03-DEC-81</HIREDATE>
<SAL>3000</SAL>
<DEPTNO>20</DEPTNO>
</G_EMPNO>
</LIST_G_EMPNO>
</T01103240>
Hope you got it.

Excel like 'Freeze column header' functionality in sharepoint OOB list view webpart

Hi,
I have OOB external list dropped on a page as listview webpart. It contains many records and hence while scrolling down headers are no available, hence it should freeze all column headers while scrolling down the page. Its directly dragged and dropped
on site page hence no server side formatting can be done.
Is there any way we can apply some client side script to freeze column headers to listview webpart while scrolling down? or any settings that can be done to acheive this?
Thanks in advance.
Regards,
Rahul

Hi Rahul,
Normal techniques for freezing the header row of an HTML table tend to fall short when it comes to SharePoint 2010 lists due to the lack of THEAD elements.
You can try something like this, although you may want to test it in various browsers in case the column heading alignment is off.
<style>
.ms-viewheadertr{background-color:white;}
</style>
<script>
/* wrap the table in a div, set its height, give it scrollbars, and move it down */
var myTable = document.querySelector(".ms-listviewtable");
var wrapperDiv = document.createElement('div');
wrapperDiv.setAttribute("ID","FreezePaneWrapper");
wrapperDiv.setAttribute("style","OVERFLOW: auto; HEIGHT: 400px; padding-top:38px;");
wrapperDiv.appendChild(myTable.cloneNode(true));
myTable.parentNode.replaceChild(wrapperDiv,myTable);
/* Freeze the header row and move it up*/
var headerRow = document.querySelector(".ms-viewheadertr");
document.getElementById("FreezePaneWrapper").style.width = "" + headerRow.scrollWidth + "px";
headerRow.style.width = "" + headerRow.scrollWidth + "px";
headerRow.style.position = "absolute";
headerRow.style.top = ""+(headerRow.offsetTop-39)+"px";
/* Tell the header's columns to be the same width as the cells in the first "alternating" row */
var columns = document.querySelector("table.ms-listviewtable tr.ms-alternating").querySelectorAll("tr>td");
headers = document.querySelectorAll("tr.ms-viewheadertr th");
for(var i = 0; i < headers.length; i++){
if(columns[i].scrollWidth > headers[i].scrollWidth){
headers[i].style.width = ""+columns[i].scrollWidth + "px";
}else{
columns[i].style.width = ""+headers[i].scrollWidth + "px";
</script>
Edit: Also, you may want to inspect the HTML attributes on the external list view to be sure the class names match up with the querySelector parameters above. Specifically, the table should have a class of "ms-listviewtable", the header row should
have a class of "ms-viewheadertr", and rows of alternating background color should have a class of "ms-alternating".
If any of those are different in your case, you may be able to adjust the above code accordingly.

Internal Table to Excel with Column Header line

Hello everyone,
I need to download Internal table data to excel with a column header line.
My Code is as follows:
TYPES: BEGIN OF y_hdr,
        head(30) TYPE c,
        END OF y_hdr.
Data: t_hdr TYPE STANDARD TABLE OF y_hdr.
Fill internal table t_adrcdata
fill the header table t_hdr
    CALL FUNCTION 'GUI_DOWNLOAD'
      EXPORTING
        filename                      = C:\test.xls
        filetype                        = 'DBF'
    IMPORTING
      TABLES
        data_tab                        = t_adrcdata
       fieldnames                       = t_hdr
     EXCEPTIONS
       file_write_error                = 1
       no_batch                        = 2
This code gives me a row with column headers.
However they are all truncated after 10 chars.
The truncation is independent of column data length. Data could be of length 2,5 or 40 but the header always displays upto 10 chars.
Keeping the filename as test.xls, when I download it in ASC format instead of DBF the headers are of proper length.
What could I be doing wrong?
I know this topic has been discussed before but my question is pertaining to DBF Format download. The reason I chose DBF format is because it downloads the data in DB format and does not give in to Excel formatting.
FOr example in ASC format:
1, A field of type Char(12) used to get downloaded into excel without the leading zeros. 000012345678 --> 12345678
2. Date in format dd-MMM-yyyy in a char(11) field used to get downloaded to excel in dd-MMM-yy format.
When I chose DBF, this issue was resolved. However, the column headers got truncated at 10 chars.
Please feel free to recommend any other way of downloading to Excel and preserving format if this method is incorrect/ there is a better way.

Hi,
Take 'ASC' format for file type.
But when you declare your internal table to pass for FM you have to create all the fields with char.
Example:
data: begin of it_exl occurs 0,
        bukrs(04) type c,
        belnr(10) type c,
        buzei(03) type c,
end of ut_exl.
You need to manipulate your date format and other stuff before appending to this internal table.
Thanks,
Deepak.

No column heading in second page in alv report when save in excel file

Hi Expert,
How can i remove the column header from Alv report when program execute in background and save in excel file right now
its comming column header in each page. Client dont want header column in excel from second page. is this possible?
with regards
chandan_viji

Hi Ravi,
thanks for reply i have solved this problm throug line count and NEW-PAGE LINE COUNT 10000 bcoz client want output in excel file only one page header.
with regards
chandan_viji

How can I change excel column header using Labile.

Dear Experts,
                      How can i change excel column header using LabVIEW.
Thanks for any and all help!
M.S.Sivaraj.
Sivaraj M.S
CLD

As I said in my previous post, column headers in Excel are merely row 1 cells. May be I missing something here, so please be more explicit with your question.
I guess you are using the Excel Report tools, and you want to modify an existing sheet. From my limited experience with the Excel Report tools, it is not possible to open an existing woorkbook (except as template...), so the answer to your question should be "Forget it"...
The work around is to use the example I pointed for you before, and either to write the whole new colum headers as a string array, starting in A1, or to write a single string to a given cell in row 1.
Hope this helps
Chilly Charly    (aka CC)
         E-List Master - Kudos glutton - Press the yellow button on the left...

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.

Download internal table data into excel sheet with column heading and data

Hi,
I am having one internal table with column headings and other table with data.
i want to download the data with these tables into an excel sheet.
It should ask the user for file name to save it on their own name. They should give the file name in runtime and it should be downloaded into an excel sheet.
Can anyone tell what is the right function module for downloading these two internal table data with column heading and data.
what we have to do for storing the file name in runtime.
Can anyone help me on this.
Thanks,
Rose.

Hi Camila,
    Try this
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
    FILENAME                        = PATH2
   FILETYPE                        = 'XLS'
TABLES
    DATA_TAB                        = IT_DATA
   FIELDNAMES                      = IT_HEADINGS
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

Column Header in 2 rows in report file but export to excel data only displays only bottom row of column header

Post Author: blofrese
CA Forum: Exporting
I am using Crystal XI and need to output several columns worth of data. Do to so I attempted to have the data presented in 2 rows within the same section.
Example:Page Header b contains: 7 columns 5 columns
Details a contains: 7 columns 5 columns
When exporting to excel data only I only see the bottom 5 column header info and all the detail data in the correct order. How do I get all the Headers to display on the export file?
Thank you for your time.

Post Author: jw1234
CA Forum: Exporting
I have the same problem. Have you find the solution yet??
I'm trying to export as Excel data only and have 2 page header band. It only display the 2nd band with the bottom label. None of the 1st band shows up.
Page Header a contains:Report TitleDate Range
Page Header b contains:Dept Name4 columns
Please help. Thanks!

Adjusting column header length in excel

Similar Messages

Maybe you are looking for