Skip to Content
author's profile photo Former Member
Former Member

headings in BOLD while downloading Excel sheet

guyz...

please help me out...

i am using a table to pop the headings while downloading an excel sheet...

i am getting the headings properly...but i am getting them in normal font...i want to make those headings <b>BOLD</b>...

please help me .....how can i acheive this

thnx in advance.

Add a comment
10|10000 characters needed characters exceeded

Assigned Tags

Related questions

4 Answers

  • author's profile photo Former Member
    Former Member
    Posted on Nov 23, 2007 at 10:43 AM
    Add a comment
    10|10000 characters needed characters exceeded

    • Former Member

      thanx basker, but

      i checked it out longbac

      i am using GUI_DOWNLOAD ...i am passing my internal table in which i've stored ma headings into FIELDNAMES column in TABLES in FM

      cant we acheive that with any small changes in the code?

  • author's profile photo Former Member
    Former Member
    Posted on Nov 23, 2007 at 10:46 AM

    Ziden,

    I don't think you can.

    Regards,

    Satish

    Add a comment
    10|10000 characters needed characters exceeded

  • author's profile photo Former Member
    Former Member
    Posted on Nov 23, 2007 at 10:48 AM

    SAP Certification, Functional, Basis Administration and ABAP Programming Reference Books

    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

    <b>&----


    • 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

    Add a comment
    10|10000 characters needed characters exceeded

  • author's profile photo Former Member
    Former Member
    Posted on Nov 23, 2007 at 11:03 AM

    please experts....help me out.

    Add a comment
    10|10000 characters needed characters exceeded

Before answering

You should only submit an answer when you are proposing a solution to the poster's problem. If you want the poster to clarify the question or provide more information, please leave a comment instead, requesting additional details. When answering, please include specifics, such as step-by-step instructions, context for the solution, and links to useful resources. Also, please make sure that you answer complies with our Rules of Engagement.
You must be Logged in to submit an answer.

Up to 10 attachments (including images) can be used with a maximum of 1.0 MB each and 10.5 MB total.