Community
Application Development and Automation Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Turn on suggestions
Auto-suggest helps you quickly narrow down your search results by suggesting possible matches as you type.
Showing results for 
Search instead for 
Did you mean: 
Read only

Z function modules for OLE

Former Member

‎2008 May 23 1:54 PM

0 Likes
514

Hi all,

Is there any Z function modules for OLE, which will download the data directly to Excel with 2 sheets.

Regards,

Shalini

2 REPLIES 2
Read only

Former Member

‎2008 May 23 4:08 PM

0 Likes
400

Hi Shalini Reddy

there is no FM but code is there... u can see...

&----

*& Report YOLE_FOR_EXCEL

*&

&----

*&

*&

&----

REPORT yole_for_excel.

*REPORT ZTEST_BYW.

*

  • OLE specific include file

*

INCLUDE ole2incl.

INCLUDE excel__c.

*

  • data definitions of OLE objects with type ole2_object

*

PARAMETERS: p_filenm(80) LOWER CASE OBLIGATORY

DEFAULT 'd:\temp\report_tsl.xls'.

DATA: g_tmp_workbook TYPE ole2_object.

DATA: g_tmp_worksheets TYPE ole2_object.

DATA: g_tmp_worksheet1 TYPE ole2_object.

DATA: g_tmp_worksheet2 TYPE ole2_object.

DATA: g_pc_template LIKE rcgfiletr-ftappl

VALUE 'd:\temp\mmr_rpt_tsl_tmp.xls'.

DATA: g_excel TYPE ole2_object.

DATA: g_workbooks TYPE ole2_object.

DATA: g_workbook TYPE ole2_object.

DATA: g_worksheets TYPE ole2_object.

DATA: g_worksheet TYPE ole2_object.

DATA: g_cell TYPE ole2_object.

DATA: g_cell1 TYPE ole2_object.

DATA: g_cell2 TYPE ole2_object.

DATA: g_cellrange TYPE ole2_object.

DATA: g_font TYPE ole2_object.

DATA: g_interior TYPE ole2_object.

DATA: g_borders TYPE ole2_object.

DATA: g_first_ws VALUE 'Y'.

DATA: g_row TYPE i.

DATA: g_col TYPE i.

*

  • definition of loop counter

*

DATA: i TYPE i VALUE '5'.

DATA: BEGIN OF t_sheet1 OCCURS 1,

col1(10),

col2(20),

END OF t_sheet1.

DATA: BEGIN OF t_sheet2 OCCURS 1,

col1(10),

col2(20),

END OF t_sheet2.

START-OF-SELECTION.

PERFORM prepare_data.

PERFORM download_to_excel.

END-OF-SELECTION.

  • call method of excel 'QUIT'.

*

  • it is now possible to leave the EXCEL application

  • remark: you have to go to the EXCEL application and answer the

  • popup dialog screen

*

&----

*& Form PREPARE_DATA

&----

FORM prepare_data.

t_sheet1-col1 = 'A1'.

t_sheet1-col2 = 'A2'.

APPEND t_sheet1.

t_sheet1-col1 = 'B1'.

t_sheet1-col2 = 'B2'.

APPEND t_sheet1.

t_sheet2-col1 = 'Y1'.

t_sheet2-col2 = 'Y2'.

APPEND t_sheet2.

t_sheet2-col1 = 'Z1'.

t_sheet2-col2 = 'Z2'.

APPEND t_sheet2.

ENDFORM. " PREPARE_DATA

&----

*& Form DOWNLOAD_TO_EXCEL

&----

FORM download_to_excel.

PERFORM open_excel.

PERFORM add_worksheet1.

PERFORM add_worksheet2.

PERFORM open_template_file.

PERFORM close_excel.

WRITE: / 'End of program'.

ENDFORM. " DOWNLOAD_TO_EXCEL

&----

*& Form FILL_CELL

*& FORM routine, which fills the specified cell in the EXCEL sheet

*& with the given value

&----

FORM fill_cell USING i_row TYPE i

i_col TYPE i

i_value

i_fontbold

i_digit

i_wraptext

i_horizon_align

i_vertical_align.

DATA: l_str TYPE string.

CALL METHOD OF g_excel 'CELLS' = g_cell

EXPORTING #1 = i_row

#2 = i_col.

SET PROPERTY OF g_cell 'VALUE' = i_value.

IF i_fontbold = 'X'.

GET PROPERTY OF g_cell 'Font' = g_font.

SET PROPERTY OF g_font 'Bold' = 1.

ENDIF.

IF NOT i_wraptext IS INITIAL.

SET PROPERTY OF g_cell 'WrapText' = 1.

ENDIF.

IF NOT i_horizon_align IS INITIAL.

IF i_horizon_align = 'L'.

SET PROPERTY OF g_cell 'HorizontalAlignment' = xlleft.

ELSEIF i_horizon_align = 'R'.

SET PROPERTY OF g_cell 'HorizontalAlignment' = xlright.

ELSEIF i_horizon_align = 'C'.

SET PROPERTY OF g_cell 'HorizontalAlignment' = xlcenter.

ENDIF.

ENDIF.

IF NOT i_vertical_align IS INITIAL.

IF i_vertical_align = 'T'.

SET PROPERTY OF g_cell 'VerticalAlignment' = xltop.

ELSEIF i_vertical_align = 'B'.

SET PROPERTY OF g_cell 'VerticalAlignment' = xlbottom.

ELSEIF i_vertical_align = 'C'.

SET PROPERTY OF g_cell 'VerticalAlignment' = xlcenter.

ENDIF.

ENDIF.

  • To set number format for cell

IF i_digit <> ''.

IF i_value IS INITIAL AND i_digit <> '%'.

SET PROPERTY OF g_cell 'VALUE' = ''.

ELSE.

  • Set number format for cell with number

IF i_digit = '1'.

SET PROPERTY OF g_cell 'NumberFormat' = '#,###.0 '.

ELSEIF i_digit = '2'.

SET PROPERTY OF g_cell 'NumberFormat' = '#,##0.00 '.

ELSEIF i_digit = '%'.

SET PROPERTY OF g_cell 'NumberFormat' = '#,##0.00% '.

ELSE.

SET PROPERTY OF g_cell 'NumberFormat' = '#,### '.

ENDIF.

ENDIF.

ENDIF.

ADD 1 TO i_col.

ENDFORM. "FILL_CELL

&----

*& Form OPEN_EXCEL

&----

FORM open_excel.

DATA: l_cnt TYPE i.

*

  • create object excel of OLE class 'EXCEL.APPLICATION'

*

CREATE OBJECT g_excel 'EXCEL.APPLICATION'.

CALL METHOD OF g_excel 'WORKBOOKS' = g_workbooks.

CALL METHOD OF g_workbooks 'ADD' = g_workbook.

GET PROPERTY OF g_workbook 'Worksheets' = g_worksheets.

GET PROPERTY OF g_excel 'ACTIVESHEET' = g_worksheet.

SET PROPERTY OF g_excel 'DISPLAYALERTS' = 0.

GET PROPERTY OF g_worksheets 'Count' = l_cnt.

l_cnt = l_cnt - 1.

  • Delete unwanted worksheets

DO l_cnt TIMES.

GET PROPERTY OF g_excel 'ACTIVESHEET' = g_worksheet.

CALL METHOD OF g_worksheet 'DELETE'.

ENDDO.

ENDFORM. " OPEN_EXCEL

&----

*& Form CLOSE_EXCEL

&----

FORM close_excel.

SET PROPERTY OF g_excel 'VISIBLE' = 1.

CALL METHOD OF g_workbook 'SAVEAS'

EXPORTING #1 = p_filenm.

*

  • quit Excel and free all OLE objects

*

  • call method of g_excel 'QUIT'.

FREE OBJECT g_interior.

FREE OBJECT g_borders.

FREE OBJECT g_font.

FREE OBJECT g_cell.

FREE OBJECT g_cell1.

FREE OBJECT g_cell2.

FREE OBJECT g_cellrange.

FREE OBJECT g_excel.

FREE OBJECT g_workbooks.

FREE OBJECT g_workbook.

FREE OBJECT g_worksheets.

FREE OBJECT g_worksheet.

ENDFORM. " CLOSE_EXCEL

&----

*& Form ADD_WORKSHEET

&----

FORM add_worksheet USING i_name.

  • Add new worksheet

IF g_first_ws <> 'N'.

g_first_ws = 'N'.

GET PROPERTY OF g_excel 'ACTIVESHEET' = g_worksheet.

ELSE.

CALL METHOD OF g_worksheets 'Add' = g_worksheet.

ENDIF.

SET PROPERTY OF g_worksheet 'NAME' = i_name.

g_row = 1.

g_col = 1.

ENDFORM. " ADD_WORKSHEET

&----

*& Form ADD_WORKSHEET1

&----

FORM add_worksheet1.

PERFORM add_worksheet USING 'Test 1'.

*

  • fill line in EXCEL sheet with headerlines of table columns

*

g_col = 1.

PERFORM fill_cell USING g_row g_col 'My First Worksheet' 'X' ''

'' '' ''.

PERFORM merge_cell USING g_row 1 g_row 4.

PERFORM set_border USING g_row 1 g_row 4 4 ''.

ADD 1 TO g_row.

g_col = 1.

PERFORM fill_cell USING g_row g_col 'ID'(001) 'X' '' '' '' ''.

PERFORM fill_cell USING g_row g_col 'Name'(002) 'X' '' '' '' ''.

PERFORM fill_cell USING g_row g_col 'Telephon'(003) 'X' '' '' '' ''.

PERFORM fill_cell USING g_row g_col 'Rabatt'(004) 'X' '' '' '' ''.

*

  • loop at customr table and print values into EXCEL sheet

*

ADD 1 TO g_row.

LOOP AT t_sheet1.

g_col = 1.

PERFORM fill_cell USING g_row g_col t_sheet1-col1 '' '' '' '' ''.

PERFORM fill_cell USING g_row g_col t_sheet1-col2 '' '' '' '' ''.

ADD 1 TO g_row.

ENDLOOP.

g_col = 4.

PERFORM set_border USING 1 1 g_row g_col '' 4.

ENDFORM. " ADD_WORKSHEET1

&----

*& Form ADD_WORKSHEET2

&----

FORM add_worksheet2.

PERFORM add_worksheet USING 'Test 2'.

*

  • fill line in EXCEL sheet with headerlines of table columns

*

g_col = 1.

PERFORM fill_cell USING g_row g_col 'My Second Worksheet' 'X' ''

'' '' ''.

PERFORM merge_cell USING g_row 1 g_row 4.

PERFORM set_border USING g_row 1 g_row 4 1 'X'.

PERFORM set_color USING g_row 1 g_row 4 'LT'.

ADD 1 TO g_row.

g_col = 1.

PERFORM fill_cell USING g_row g_col 'ID'(001) 'X' '' '' '' ''.

PERFORM fill_cell USING g_row g_col 'Name'(002) 'X' '' '' '' ''.

PERFORM fill_cell USING g_row g_col 'Telephon'(003) 'X' '' '' '' ''.

PERFORM fill_cell USING g_row g_col 'Rabatt'(004) 'X' '' '' '' ''.

*

  • loop at customr table and print values into EXCEL sheet

*

ADD 1 TO g_row.

LOOP AT t_sheet2.

g_col = 1.

PERFORM fill_cell USING g_row g_col t_sheet2-col1 '' '' '' '' ''.

PERFORM fill_cell USING g_row g_col t_sheet2-col2 '' '' '' '' ''.

ADD 1 TO g_row.

ENDLOOP.

g_col = 4.

PERFORM set_border USING 1 1 g_row g_col 2 'X'.

ADD 4 TO g_row.

g_col = 1.

PERFORM fill_cell USING g_row g_col 'This is a wrap text' 'X' ''

'X' 'C' 'T'.

PERFORM fill_cell USING g_row g_col 'Vertical - Bottom' 'X' ''

'' 'L' 'T'.

ADD 4 TO g_row.

g_col = 1.

PERFORM fill_cell USING g_row g_col 'Amount 1' 'X' '' '' '' ''.

PERFORM fill_cell USING g_row g_col '100.04' '' 'X' '' '' ''.

ADD 1 TO g_row.

g_col = 1.

PERFORM fill_cell USING g_row g_col 'Amount 2' 'X' '' '' '' ''.

PERFORM fill_cell USING g_row g_col '200.01' '' 'X' '' '' ''.

ADD 1 TO g_row.

g_col = 1.

PERFORM fill_cell USING g_row g_col 'Total' 'X' '' '' '' ''.

PERFORM fill_cell USING g_row g_col '=SUM(B13:B14)' 'X' 'X' '' '' ''.

PERFORM fill_cell USING g_row g_col '0.00' 'X' 'X' '' '' ''.

PERFORM copy_cell USING g_row 2 17 5 25 8.

ENDFORm. " ADD_WORKSHEET2

&----

*& Form MERGE_CELL

&----

FORM merge_cell USING i_row1 i_col1

i_row2 i_col2.

CALL METHOD OF g_excel 'Cells' = g_cell1

EXPORTING #1 = i_row1

#2 = i_col1.

CALL METHOD OF g_excel 'Cells' = g_cell2

EXPORTING #1 = i_row2

#2 = i_col2.

CALL METHOD OF g_excel 'Range' = g_cellrange

EXPORTING #1 = g_cell1

#2 = g_cell2.

CALL METHOD OF g_cellrange 'Merge'.

ENDFORM. " MERGE_CELL

&----

*& Form SET_BORDER

&----

FORM set_border USING i_row1 i_col1

i_row2 i_col2

i_thickness

i_allborders.

CALL METHOD OF g_excel 'Cells' = g_cell1

EXPORTING #1 = i_row1

#2 = i_col1.

CALL METHOD OF g_excel 'Cells' = g_cell2

EXPORTING #1 = i_row2

#2 = i_col2.

CALL METHOD OF g_excel 'Range' = g_cellrange

EXPORTING #1 = g_cell1

#2 = g_cell2.

IF i_allborders IS INITIAL.

CALL METHOD OF g_cellrange 'BorderAround'

EXPORTING #1 = 1 "Continuous line

#2 = i_thickness. "Thickness: 1 - Normal, 4 - Thick

ELSE.

GET PROPERTY OF g_cellrange 'Borders' = g_borders.

SET PROPERTY OF g_borders 'LineStyle' = '1'.

SET PROPERTY OF g_borders 'Weight' = i_thickness.

ENDIF.

ENDFORM. " SET_BORDER

&----

*& Form SET_COLOR

&----

FORM set_color USING i_row1 i_col1

i_row2 i_col2

i_color.

DATA: l_colorindex TYPE i.

CASE i_color.

WHEN 'BK'.

l_colorindex = 1. "Black

WHEN 'BR'.

l_colorindex = 53. "Brown

WHEN 'OG'.

l_colorindex = 52. "Olive Green

WHEN 'DG'.

l_colorindex = 51. "Dark Green

WHEN 'DT'.

l_colorindex = 49. "Dark Teal

WHEN 'DB'.

l_colorindex = 11. "Dark Blue

WHEN 'ID'.

l_colorindex = 55. "Indigo

WHEN 'G4'.

l_colorindex = 56. "Gray 80%

WHEN 'DR'.

l_colorindex = 9. "Dark Red

WHEN 'OR'.

l_colorindex = 46. "Orange

WHEN 'DY'.

l_colorindex = 12. "Dark Yellow

WHEN 'GR'.

l_colorindex = 10. "Green

WHEN 'TL'.

l_colorindex = 14. "Teal

WHEN 'BL'.

l_colorindex = 5. "Blue

WHEN 'BY'.

l_colorindex = 47. "Blue Gray

WHEN 'G3'.

l_colorindex = 16. "Gray 50%

WHEN 'RD'.

l_colorindex = 3. "Red

WHEN 'LO'.

l_colorindex = 45. "Light Orange

WHEN 'LI'.

l_colorindex = 43. "Lime

WHEN 'SG'.

l_colorindex = 50. "Sea Green

WHEN 'AQ'.

l_colorindex = 42. "Aqua

WHEN 'LB'.

l_colorindex = 41. "Light Blue

WHEN 'VL'.

l_colorindex = 13. "Violet

WHEN 'G2'.

l_colorindex = 48. "Gray 40%

WHEN 'PK'.

l_colorindex = 7. "Pink

WHEN 'GD'.

l_colorindex = 44. "Gold

WHEN 'YL'.

l_colorindex = 6. "Yellow

WHEN 'BG'.

l_colorindex = 4. "Bright Green

WHEN 'TQ'.

l_colorindex = 8. "Turquoise

WHEN 'SB'.

l_colorindex = 33. "Sky Blue

WHEN 'PL'.

l_colorindex = 54. "Plum

WHEN 'G1'.

l_colorindex = 15. "Gray 25%

WHEN 'RS'.

l_colorindex = 38. "Rose

WHEN 'TN'.

l_colorindex = 40. "Tan

WHEN 'LY'.

l_colorindex = 36. "Light Yellow

WHEN 'LG'.

l_colorindex = 35. "Light Green

WHEN 'LT'.

l_colorindex = 34. "Light Turquoise

WHEN 'PB'.

l_colorindex = 37. "Pale Blue

WHEN 'LV'.

l_colorindex = 39. "Lavender

WHEN 'WH'.

l_colorindex = 2. "White

WHEN OTHERS.

l_colorindex = 2. "White

ENDCASE.

CALL METHOD OF g_excel 'Cells' = g_cell1

EXPORTING #1 = i_row1

#2 = i_col1.

CALL METHOD OF g_excel 'Cells' = g_cell2

EXPORTING #1 = i_row2

#2 = i_col2.

CALL METHOD OF g_excel 'Range' = g_cellrange

EXPORTING #1 = g_cell1

#2 = g_cell2.

GET PROPERTY OF g_cellrange 'Interior' = g_interior.

SET PROPERTY OF g_interior 'ColorIndex' = l_colorindex.

ENDFORM. " SET_COLOR

&----

*& Form COPY_CELL

&----

FORM copy_cell USING i_crow i_ccol

i_prow1 i_pcol1

i_prow2 i_pcol2.

CALL METHOD OF g_excel 'Cells' = g_cell

EXPORTING #1 = i_crow

#2 = i_ccol.

CALL METHOD OF g_cell 'Copy'.

CALL METHOD OF g_excel 'Cells' = g_cell1

EXPORTING #1 = i_prow1

#2 = i_pcol1.

CALL METHOD OF g_excel 'Cells' = g_cell2

EXPORTING #1 = i_prow2

#2 = i_pcol2.

CALL METHOD OF g_excel 'Range' = g_cellrange

EXPORTING #1 = g_cell1

#2 = g_cell2.

CALL METHOD OF g_worksheet 'Paste'

EXPORTING #1 = g_cellrange.

ENDFORM. " COPY_CELL

&----

*& Form OPEN_TEMPLATE_FILE

&----

FORM open_template_file.

CALL METHOD OF g_workbooks 'Open' = g_tmp_workbook

EXPORTING #1 = g_pc_template

#2 = 2

#3 = 0

#4 = 1

#5 = 0

#6 = 0

#7 = 1.

CALL FUNCTION 'FLUSH'

EXCEPTIONS

OTHERS = 0.

GET PROPERTY OF g_tmp_workbook 'Worksheets' = g_tmp_worksheets.

GET PROPERTY OF g_tmp_worksheets 'Item' = g_tmp_worksheet1

exporting #1 = 1.

GET PROPERTY OF g_tmp_worksheets 'Item' = g_tmp_worksheet2

exporting #1 = 2.

CALL METHOD OF g_tmp_worksheet1 'Copy'

EXPORTING #1 = g_worksheet.

CALL METHOD OF g_tmp_worksheet2 'Copy'

EXPORTING #1 = g_worksheet.

  • call method of g_tmp_workbook 'Close'.

CALL FUNCTION 'FLUSH'

EXCEPTIONS

OTHERS = 0.

ENDFORM. " OPEN_TEMPLATE_FILE

Read only

Former Member
In response to Former Member

‎2008 May 28 11:43 AM

0 Likes
400

Hi venkat,

i have done like this only.....but i dont want like this......iam searching for a FM.

r u sure there is no FM for this?

Regards,

Shalini