Inner table output to Excel with colored cells?

Hi!
I would like to output my inner table into Excel ducoment.
And it is important to have Excel document with colored cells.
I have searched for this solution, but could not find...
Any help will be awarded!
Kind regards, M.

Hi,
You can use function module "XXL_SIMPLE_API"
or alternatively use "XXL_FULL_API".
On the import, parameter name "N_KEY_COLS" is used to colour fields. The headings are automatically coloured. 1 is the default value.
This reply is nearly 1 year after the last post
Regards,
Daniel

Similar Messages

ALV with colored cell exporting to Excel

Hi all,
I have an ALV-Table in my webdynpro appliation. There are some dropdownbykey fields in the alv and some cells are colored.
After export to excel the colored cells are no more colored.
Is there a possibility to export the color too.
Best regards
Marcus

Have you found a solution to this issue? I am searching for the same.

How GET Output to Excel with Oracle9i Report using OC4J

how GET Output to Excel with Oracle9i Report using OC4J.
I FINISHED THE SETPS CONCIDERING THE JSP CODE NEEDED TO GET THE EXCEL OUTPUT ON LOCAL MACHINE.
I NEED TO PUBLISH THIS REPORT THROUGH APPLICATION SERVER.
THE QUESTION IS:
1- HOW TO START AN OC4J INSTANCE FROM ORACLE 9I DS FOR THIS REPORT?
2- WHERE (PATH) TO PUBLISH THE REPORT ON THE APPLICATION SERVER?
3- WHAT IS THE DEFAULT URL TO RUN THIS REPORT AND WHERE TO PUT IT?
4- HOW TO MAKE MAPPING FOR DIRECOTRY PATH TO TRANSLATED AS URL FOR THIS REPORT?
5- IF ANY ONE CAN GIVE ME THE FULL CODE TO RUN AND CALL SIMPLE JSP REPORT TO BE VIED IN INTERNET EXPLORER.
THANK YOU

Hi,
I can't answer to all your questions, however I can tell you that:
2) The directory where to put the report file is specifiend in a file named
<serverName>.conf
in the sourceDire property
<property name="sourceDir" value="/directory/dove/mettere/i/report"/>
that you can find under ORACLE_HOME/reports/conf
3) The URL is
http://<server IAS address>:<port number>/<jsp file path>/<repName>.jsp?server=<report server name>&userid=<user>/<pwd>@<DB conn string>[&<param>=<valore>[&...]]
5) In IE you have only to set the previous URL in the address bar.
Hope this helps you
Bye
Raffy

Output to Excel with Oracle9i Report -- DEMO DOWN

The Viewlet "Output to Excel with Oracle9i Report" (as well as the others) at
http://otn.oracle.com/products/reports/htdocs/getstart/demonstrations/index.html
Does not work. I keep getting a 'Incorrect skin. Stoppting' Error.
Please update the viewlet or make it available to email or download.
Thanks

Actually you don't need to see that viewlet. Just follow the easy follow-by steps in Metalink Note 240819.1 "How to Generate Excel output in browser using Reports9i JSP". This is faster done than watching the viewlet! You can use it for 9i and as well for 10g.
Please note the reference to note 271590.1 in the end of the document. Without that it won't work on 10g.
Regards,
Martin Malmstrom
ORACLE Consulting

Displaying alv output into excel with delimeter

Hai,
 am downloading alv output to excel :
1. in that output one field is long text field with # delimeter at the end of sting .
 while exporting this outout to excel it is not showing # and one empty column is adding after that field.

Hi Satya,
Can you try out this piece of code below. It creates a demo Internal table to store some string with '#' as the final delimiter.
TYPES : BEGIN OF l_ty_demo,
 data TYPE string,
 END OF l_ty_demo.
DATA : l_i_demo TYPE STANDARD TABLE OF l_ty_demo.
DATA : l_wa_demo TYPE l_ty_demo.
DATA : l_v_i TYPE sy-tabix.
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.
WHILE l_v_i < 10.
l_wa_demo-data = 'Welcome to the world of computers#'.
APPEND l_wa_demo TO l_i_demo.
l_v_i = l_v_i + 1.
ENDWHILE.
* start Excel
CREATE OBJECT h_excel 'EXCEL.APPLICATION'.
PERFORM err_hdl.
SET PROPERTY OF h_excel 'Visible' = 1.
PERFORM err_hdl.
* 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.
LOOP AT l_i_demo INTO l_wa_demo.
h = sy-tabix + 1.
PERFORM fill_cell USING h 1 0 l_wa_demo-data.
ENDLOOP.
*& Form FILL_CELL
* text
* -->I text
* -->J text
* -->BOLD text
* -->VAL text
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. "FILL_CELL
*& Form ERR_HDL
* text
FORM err_hdl.
IF sy-subrc <> 0.
 WRITE: / 'Fehler bei OLE-Automation:'(010), sy-subrc.
 STOP.
ENDIF.
ENDFORM. "ERR_HDL
Please refer to the following Demo ABAP Code for a complete reference.
RSDEMO01.
Hope this helps.
Thanks,
Samantak.

How to download output into Excel with Header?

Dear Friends,
 I want to download a my list output into excel format with Column heading. How will I do this?
 Another question is i want name of database table in Which SAP stores DDIC object name and its property, so that i can write Select * from ' ' where .... For example i have table ZABC with three fields so i need In which table it stores ZABC as table and a table in which it stores Its field name.

Hi,
Look at the sample code for Download into Excel.
data: begin of excel_sum_it occurs 0,
 bukrs(80),
 belnr(80),
 gjahr(80),
 blart(80),
 budat like bkpf-budat,
 monat(80),
 cpudt like bkpf-cpudt,
 cputm like bkpf-cputm,
 usnam(80),
 tcode(80),
 xblnr(80),
 waers(80),
 dwrbtr(25),
 cwrbtr(25),
 end of excel_sum_it.
data: begin of titles_it occurs 10,
 title(80),
end of titles_it.
at user-command.
case sy-ucomm.
 when 'SUMMARY'.
 perform summary_download.
 when 'DETAIL'.
 perform detail_download.
 when others.
endcase.
******Create one PF-STATUS for one push button for download.
Before this FM you need to move your date to Execl_sum_it Internal table.
For example here I used this table for down load.
*& Form summary_download
 text
--> p1 text
<-- p2 text
form summary_download.
data: fname like rlgrap-filename value 'Summary_Details.xls'.
perform fill_titles.
check not excel_sum_it[] is initial.
call function 'DOWNLOAD'
 exporting
 filename = fname
 filetype = 'DAT'
 tables
 data_tab = excel_sum_it
 fieldnames = titles_it
 exceptions
 invalid_filesize = 1
 invalid_table_width = 2
 invalid_type = 3
 no_batch = 4
 unknown_error = 5
 gui_refuse_filetransfer = 6
 customer_error = 7
 others = 8.
if sy-subrc ne 0.
 message e000 with text-e07.
endif.
endform. " summary_download
*& Form fill_titles
 text
--> p1 text
<-- p2 text
form fill_titles.
refresh titles_it.
concatenate text-h06 text-h16 into titles_it-title
 separated by space.
append titles_it.
concatenate text-h07 text-h17 into titles_it-title
 separated by space.
append titles_it.
concatenate text-h08 text-h18 into titles_it-title
 separated by space.
append titles_it.
concatenate text-h07 text-h19 into titles_it-title
 separated by space.
append titles_it.
concatenate text-h09 text-h20 into titles_it-title
 separated by space.
append titles_it.
concatenate text-h08 text-h21 into titles_it-title
 separated by space.
append titles_it.
concatenate text-h11 text-h22 into titles_it-title
 separated by space.
append titles_it.
concatenate text-h11 text-h23 into titles_it-title
 separated by space.
append titles_it.
concatenate text-h12 text-h24 into titles_it-title
 separated by space.
append titles_it.
concatenate text-h13 text-h25 into titles_it-title
 separated by space.
append titles_it.
concatenate text-h07 text-h26 into titles_it-title
 separated by space.
append titles_it.
concatenate text-h13 text-h28 into titles_it-title
 separated by space.
append titles_it.
concatenate text-h14 text-h27 into titles_it-title
 separated by space.
append titles_it.
concatenate text-h15 text-h27 into titles_it-title
 separated by space.
append titles_it.
endform. " fill_titles
***Here in the FILL_TITLES you give you own HEADER .
Thanks.
If this helps you reward with points.

Problem with coloring cells in dynamic fieldcatalog

Hi All,
I am trying to color cells based on the values in the cells. Here we are using dynamic fieldcatalog and internal table to build the ALV grid.I am getting problem in adding a field to the fieldcatlog which is of type lvc_t_scol. This Part of the code is used to build fieldcatlog dynamically.
DEFINE add_cat.
 add 1 to lv_count1.
 lwa_fldcat-col_pos = lv_count1.
 lwa_fldcat-fieldname = &1 .
 lwa_fldcat-reptext = &2.
 lwa_fldcat-inttype = &3.
 lwa_fldcat-intlen = &4.
 append lwa_fldcat to lt_fldcat .
END-OF-DEFINITION.
*Add Columns to the fieldcatalog
add_cat c_proj 'Project' 'C' '30'.
add_cat c_cust 'Customer' 'C' '30'.
lwa_fldcat-col_pos = 12.
 lwa_fldcat-fieldname = 'cellcolor' .
 lwa_fldcat-reptext = 'cell color'.
 lwa_fldcat-inttype = 'lvc_t_scol'.
 append lwa_fldcat to lt_fldcat .
Here i want to assign internal table(lvc_t_scol) to the fieldcatalog as a field.But lwa_fldcat-inttype is of size 1 which will take one char. Is there any way that we can assign field of type internal table to the field catalog. Becoz of this i am unable to color cells in my ALV grid.
Thanks

It is not possible with the METHOD cl_alv_table_create=>create_dynamic_table to include another table inside that newly generated table.
I have tried to do it with the code and I got the dynamic table created after at the end of the program.
In the code,
<DYN_TABLE> has same effect as your <table> variable
<DYN_WA> has same effect as your <HEADER>
REPORT ZTEST_NP_DYNAMIC.
DATA: DY_TABLE TYPE REF TO DATA,
 DY_LINE TYPE REF TO DATA.
FIELD-SYMBOLS: <DYN_TABLE> TYPE STANDARD TABLE,
 <DYN_WA>,
 <DYN_FIELD>.
FIELD-SYMBOLS: <FS> TYPE ANY.
* To generate the Dyanmic table with the COLOR
DATA: LS_SOURCE TYPE STRING.
DATA: LT_SOURCE LIKE STANDARD TABLE OF LS_SOURCE WITH HEADER LINE.
DATA: L_NAME LIKE SY-REPID.
DATA: L_MESSAGE(240) TYPE C,
 L_LINE TYPE I,
 L_WORD(72) TYPE C.
DATA: L_FORM(30) TYPE C VALUE 'TABLE_CREATE'.
LT_SOURCE = 'REPORT ZTEST_SUBROUTINE_POOL.'.
APPEND LT_SOURCE.
LT_SOURCE = 'FORM TABLE_CREATE USING I_FS TYPE ANY.'.
APPEND LT_SOURCE.
LT_SOURCE = 'DATA: BEGIN OF LT_GENTAB OCCURS 0.'.
APPEND LT_SOURCE.
LT_SOURCE = 'DATA: BUKRS TYPE BUKRS. '.
APPEND LT_SOURCE.
LT_SOURCE = 'DATA: BKTXT TYPE BKTXT. '.
APPEND LT_SOURCE.
* you can add your fields here.....
LT_SOURCE = 'DATA: COLOR TYPE lvc_t_scol. '. " <<
APPEND LT_SOURCE.
LT_SOURCE = 'DATA: END OF LT_GENTAB.'.
APPEND LT_SOURCE.
LT_SOURCE = 'DATA: POINTER TYPE REF TO DATA.'.
APPEND LT_SOURCE.
LT_SOURCE = 'CREATE DATA POINTER LIKE STANDARD TABLE OF LT_GENTAB.'.
APPEND LT_SOURCE.
LT_SOURCE = 'I_FS = POINTER.'.
APPEND LT_SOURCE.
LT_SOURCE = 'ENDFORM. '.
APPEND LT_SOURCE.
L_NAME = 'ZTEST_SUBROUTINE_POOL'.
CATCH SYSTEM-EXCEPTIONS GENERATE_SUBPOOL_DIR_FULL = 9.
GENERATE SUBROUTINE POOL LT_SOURCE NAME L_NAME
 MESSAGE L_MESSAGE LINE L_LINE WORD L_WORD. "#EC CI_GENERATE
ENDCATCH.
IF NOT L_MESSAGE IS INITIAL.
MESSAGE E000(0K) WITH L_MESSAGE L_LINE L_WORD.
ENDIF.
ASSIGN DY_TABLE TO <FS>.
PERFORM (L_FORM) IN PROGRAM (L_NAME) USING <FS>.
ASSIGN DY_TABLE->* TO <DYN_TABLE>.
* Create dynamic work area and assign to FS
CREATE DATA DY_LINE LIKE LINE OF <DYN_TABLE>.
ASSIGN DY_LINE->* TO <DYN_WA>.
Write: 'bye'.
Regards,
Naimesh Patel

How to transport an inner table to a subroutine with change return content?

now ,i want to perform a subroutine with a inner table,and i will delete some records from the inner table in the subroutine,but i don't want the change in the subroutine break into my main program.in other words,the content of the inner table which was transported to the subroutine keep no change in the main program after perform the subroutine.is there any way to realize it without announce a new inner table?
Edited by: p y on Jul 4, 2008 5:33 AM

SELECT A~EBELN
         B~EBELP
         A~LIFNR
         A~ZTERM
         A~WAERS
         A~KDATB
         A~KDATE
         A~INCO1
         A~INCO2
         B~TXZ01
         B~MATNR
         B~WERKS
         B~LGORT
         B~LOEKZ
         B~KTMNG
         B~NETPR
         B~PEINH
        INTO TABLE T_BODATA
        FROM EKKO AS A
        INNER JOIN EKPO AS B
        ON AEBELN = BEBELN
        FOR ALL ENTRIES IN T_BONUM
        WHERE A~EBELN = T_BONUM-EBELN
          AND A~BUKRS IN R_BUKRS
          AND A~BSTYP = 'K'.
t_bodata is inner table A,then i will extract vendor info from lfa1 use A-lifnr, and plant address use A-werks ,payment info use A-zterm.every time i have to move the
corresponding field to a new inner table,delete repeat,and then do select use this inner table.i am boring in announce inner table.but in perform , form we can transfer variant by using and doesn't change it's value,
is there any method like this by using table?

Download ALV output to excel with formatting

Hi All,
i want to download ALV output to excel sheet and the uneditable fields in ALV oputput should be locked (uneditable) in excel also.
Can you please tell me approach to achieve this functionality?
Thanks in advance.

Thanks Vamsi. Your Suggestion was helpful.
I have used excel integration and used SET PROPERTY OF (COLUMN) 'LOCKED' = 1.
For more details refer below mentioned link.
http://webcache.googleusercontent.com/search?q=cache:SoY6hFC17PoJ:wiki.sdn.sap.com/wiki/display/Snippets/Download%2BData%2Binto%2BMultiple%2BSheet%2BExcel%2BDocument%2Bwith%2BNon%2BEditable%2BColumns%2B(Password%2Bprotected)%2BUsing%2BABAP%2BOLESetPropertynoteditableexcelsapABAP&cd=1&hl=en&ct=clnk&gl=in&source=www.google.co.in (http://webcache.googleusercontent.com/search?q=cache:SoY6hFC17PoJ:wiki.sdn.sap.com/wiki/display/Snippets/Download%2BData%2Binto%2BMultiple%2BSheet%2BExcel%2BDocument%2Bwith%2BNon%2BEditable%2BColumns%2B%28Password%2Bprotected%29%2BUsing%2BABAP%2BOLESetPropertynoteditableexcelsapABAP&cd=1&hl=en&ct=clnk&gl=in&source=www.google.co.in

Alv output to Excel with numeric fields as numeric fields only and not char

Hi,
When we download the alv output to excel format in the locat file using the toolbar button provided in the ALV, the numeric fields get converted to character format. Is there any other way or settings in ALV so that the numeric fields will be get saved as numeric fields only and not character?
Rgds,
MAdhuri

any idea for above problem is welcome

Export to Excel with colored row

Hi,
I'm developing a alv report in web dynpro. The first requirement is to put traffic lights based on some criteria. This part has been done.
2nd requirement is to export this alv report into excel sheet. If traffic light of the row is 'RED' then in excel sheet it will be colored 'RED', if row is green excel sheet row will be 'GREEN' etc.
Thanks in advance for providing me solution of above problem I'm new to dynpro.
Thanks in advance,
Abhijit.

Hi ,
If you need cell formatting you must use the Excel XML format. Build a spreadsheet with the features you want and then choose save as XML from within Excel. Then look at the resulting file with a text editor to see how the XML format is built. This is what you need to duplicate in ABAP using Concatenations, the iXML library or XSLTs.
OR you can go through this link and check if it can help you:
link : http://www.****************/Tutorials/WebDynproABAP/Excel/Index.htm

Generating excel with colors

Hi Experts,
I'm generating excel from Web dynpro for ABAP application.
My webdynpro view is having 3 tables data ( not alv) and one "Export Excel" button . on clicking this button, excel file should be opened. This excel is displaying data from three tables separately. Here I need to display the colunn headings in any colour or bold.Please suggest me the way to achieve this.
Thanks
Sridhar

H,
You have to use the XML coding for having colors in the Excel.
What is the FM/method that you are using to save the data to excel....
Regards,
Lekha.

Word table boarder conversion problems with shaded cells

Hi
We are using Adobe Acrobat 9 and Word 2003
When one of our users converts a document that contains word tables that have shading in them some of the cell boarders are missing on the PDF.
If you remove the shading and convert the document the table boarders are displayed correctly.
Does anybody have any idea if this is a known issue with Acrobat or is there a setting that needs to be chnaged to get this to work?
Many thanks for your help in advance
Michael

What versions of both programs and how did you create the PDF? Can you post an example of the PDF?

Download Table Data into Excel with Less Size

Hi All,
In OBIEE 11.1.1.5, following are my finding of the File Sizes using Various Export Options.
I have used Default SampleAppLite RPD and Webcat , Order Details Report
No.of Records : 2000
Export Excel 2003+ (mht) : 3,812 KB
Export Power Point 2003+ : 8,901 KB
Export Power Point 2007 : 478 KB
Export Data CSV : 205 KB
Export Data Tab Delimited : 409 KB
When the viewscontrolmessages.xml is modified to from "Format=mht" to "Format=excel" for the Download to Excel option,
the filw size was reduced to
Export Excel (xls) : 2,748 KB
By observing the drastic reduction of file size in the Export to Power Point options between Version 2003 and 2007.
we are expecting that a Version Change in Excel might also reduce the Download Size to around 700 KB
But somehow we are not able to achieve this.
So please Suggest
Note: CSV is not an Option, as we loose all Formatting like Grand and Sub Totals and other data level formatting.

Hi All,
In OBIEE 11.1.1.5, following are my finding of the File Sizes using Various Export Options.
I have used Default SampleAppLite RPD and Webcat , Order Details Report
No.of Records : 2000
Export Excel 2003+ (mht) : 3,812 KB
Export Power Point 2003+ : 8,901 KB
Export Power Point 2007 : 478 KB
Export Data CSV : 205 KB
Export Data Tab Delimited : 409 KB
When the viewscontrolmessages.xml is modified to from "Format=mht" to "Format=excel" for the Download to Excel option,
the filw size was reduced to
Export Excel (xls) : 2,748 KB
By observing the drastic reduction of file size in the Export to Power Point options between Version 2003 and 2007.
we are expecting that a Version Change in Excel might also reduce the Download Size to around 700 KB
But somehow we are not able to achieve this.
So please Suggest
Note: CSV is not an Option, as we loose all Formatting like Grand and Sub Totals and other data level formatting.

I want to download a report into Excel sheet with color Heading..Is it Poss

Hi All
I want to download error records into Excel sheet with color Heading..Is it Possible to download into excel with Color Heading?
here i am using the 3 sheets in one
t_error-bkpf -> Sheet1
t_error-bseg-> sheet 2
t-error-bsec -> sheet3.
Rgds
Raghav

The following thread has the code which will put data into multiple sheets
Download to multiple sheets in Excel
FOR COLOR LOGIC JUST REFER THIS PROGRAM
*& Report ZNEGI17 *
REPORT ZNEGI17 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_CELL1 USING 1 1 1 'Flug'(001).
PERFORM FILL_CELL1 USING 1 2 0 'Nr'(002).
PERFORM FILL_CELL1 USING 1 3 1 'Von'(003).
PERFORM FILL_CELL1 USING 1 4 1 'Nach'(004).
PERFORM FILL_CELL1 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_CELL1 USING 1 1 1 'Flug'(001).
PERFORM FILL_CELL1 USING 1 2 0 'Nr'(002).
PERFORM FILL_CELL1 USING 1 3 1 'Von'(003).
PERFORM FILL_CELL1 USING 1 4 1 'Nach'(004).
PERFORM FILL_CELL1 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_CELL1 USING I J BOLD VAL.
data : color(5) type x value 'H80000008'.
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.
SET PROPERTY OF H_F 'ColorIndex' = 3 .
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
*& Form FILL_CELL1
* text
* -->P_H text
* -->P_1 text
* -->P_0 text
* -->P_IT_SPFLI_CARRID text
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.
endform. " FILL_CELL1
kishan negi

Inner table output to Excel with colored cells?

Similar Messages

Maybe you are looking for