regarding OLE

Former Member — Wed, 06 Feb 2008 11:06:31 GMT

Hi All,

What is OLE , how to use OLE, kindly provide the details.

thanks

krishna

Re: regarding OLE

Vijay — Wed, 06 Feb 2008 11:12:04 GMT

OLE is object link enabling. it is ued to handle objects like excel, word etc through abap.

check this sample program

&----

*& Report Z_PR_EXCEL_WITH_OLE

&----

REPORT z_pr_excel_with_ole.

To handle OLE objects

INCLUDE ole2incl.

TYPE-POOLS kcde.

TYPES: BEGIN OF ty_table,

LINE LIKE SY-TABIX,

COLN TYPE I,

name(1024) TYPE c,

END OF ty_table.

DATA: itab TYPE STANDARD TABLE OF ty_table,

wa_itab TYPE ty_table.

Data Declaration

DATA: excel TYPE ole2_object, " Excel object

workbook TYPE ole2_object,

sheet TYPE ole2_object,

cell TYPE ole2_object,

directory TYPE string,

filetable TYPE STANDARD TABLE OF file_info,

count TYPE i,

wa_filetable LIKE file_info,

v_len TYPE i,

v_extn TYPE string,

v_filename TYPE rlgrap-filename,

intern TYPE kcde_sender,

wa_intern LIKE LINE OF intern,

v_date TYPE dats,

week LIKE scal-week,

monday LIKE sy-datum,

sunday LIKE sy-datum,

cell_value(132) TYPE c.

DATA : excel_line LIKE sy-index,

excel_coln LIKE sy-index.

Selection Screen

PARAMETERS : p_dir TYPE string OBLIGATORY.

To read no. and type of files in a directory

CALL METHOD cl_gui_frontend_services=>directory_list_files

EXPORTING

directory = p_dir

filter = '.'

FILES_ONLY = FILES_ONLY
DIRECTORIES_ONLY = DIRECTORIES_ONLY

CHANGING

file_table = filetable

count = count

EXCEPTIONS

cntl_error = 1

directory_list_files_failed = 2

wrong_parameter = 3

error_no_gui = 4

not_supported_by_gui = 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.

Check whether Excel sheet is present or not
If Present, Process it

LOOP AT filetable INTO wa_filetable.

v_len = STRLEN( wa_filetable-filename ) - 3.

v_extn = wa_filetable-filename+v_len(3).

IF v_extn EQ 'XLS' OR v_extn EQ 'xls'.

CONCATENATE p_dir wa_filetable-filename INTO v_filename SEPARATED BY '\'.

CALL FUNCTION 'KCD_EXCEL_OLE_TO_INT_CONVERT'
EXPORTING
filename = v_filename
i_begin_col = 1
i_begin_row = 1
i_end_col = 11
i_end_row = 58
TABLES
intern = intern
EXCEPTIONS
inconsistent_parameters = 1
upload_ole = 2
OTHERS = 3.

IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.

start Excel

CREATE OBJECT excel 'EXCEL.APPLICATION'.

SET PROPERTY OF excel 'VISIBLE' = 1 .

CALL METHOD OF excel 'WORKBOOKS' = workbook.

CALL METHOD OF workbook 'OPEN' EXPORTING #1 = v_filename.

CALL METHOD OF excel 'read' EXPORTING #1 = v_filename.

DO 53 TIMES.

excel_line = sy-index.

DO 10 TIMES.

excel_coln = sy-index.

CALL METHOD OF excel 'CELLS' = cell

EXPORTING

#1 = 16

#2 = 4.

GET PROPERTY OF cell 'VALUE' = cell_value.

CLEAR wa_itab.

wa_itab-LINE = excel_line.

wa_itab-COLN = excel_coln.

wa_itab-name = cell_value.

APPEND wa_itab TO itab.

ENDDO.
ENDDO.

FREE OBJECT excel.

FREE OBJECT workbook.

FREE OBJECT sheet.

FREE OBJECT cell.

*call method of cell 'SELECT'.

*call method of cell 'COPY'.

*CALL FUNCTION 'CONTROL_FLUSH'

EXCEPTIONS
CNTL_SYSTEM_ERROR = 1
CNTL_ERROR = 2
OTHERS = 3 .

*IF sy-subrc <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

*ENDIF.

*CALL FUNCTION 'CLPB_IMPORT'

TABLES
data_tab = intern
EXCEPTIONS
CLPB_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.

LOOP AT intern into wa_intern WHERE row eq 16 and col eq 4.
v_date = wa_intern-value.

CALL FUNCTION 'GET_WEEK_INFO_BASED_ON_DATE'
EXPORTING
DATE = intern
IMPORTING
WEEK = WEEK
MONDAY = MONDAY
SUNDAY = SUNDAY .

ENDLOOP.

ENDIF.

ENDLOOP.

regards

vijay

reward points if helpful

Re: regarding OLE

Former Member — Wed, 06 Feb 2008 11:19:35 GMT

please go thru this link

http://help.sap.com/saphelp_46c/helpdata/en/59/ae3c98488f11d189490000e829fbbd/frameset.htm

Re: regarding OLE

Former Member — Wed, 06 Feb 2008 11:20:06 GMT

hi,

Through its Open Object Interface, ABAP supports the OLE2 Automation technique. Desktop applications that provide their functionality in the form of an OLE2 Automation Server (such as Excel or WinWord) can be thus be integrated into R/3.

All applications controlled by ABAP must be registered in R/3.

The following ABAP key words control the applications:

CREATE OBJECT

SET PROPERTY

GET PROPERTY

CALL METHOD

FREE OBJECT

When called from an ABAP program, the SAPGUI acts as OLE client, and the desktop application as the OLE server.

Hope this is helpful, DO reward.

Re: regarding OLE

Former Member — Wed, 06 Feb 2008 11:25:42 GMT

good

Separate the name of the application and commands used to communicate with this application. You can split these commands further into method calls, attribute settings and the retrieval of object attributes:

Name of the application

Commands for communication with the application

Method calls (see Calling Object Methods)

Attribute settings (see Setting Object Attributes)

Retrieving attributes (see Retrieving Object Attributes)

The application names and the communication syntax are described in the user documentation for the application to be called. The application names are also frequently called object names

http://help.sap.com/saphelp_nw04/helpdata/en/4f/9937f1446d11d189700000e8322d00/content.htm

thanks

mrutyun^

topic regarding OLE in Application Development and Automation Discussions

regarding OLE

Re: regarding OLE

Re: regarding OLE

Re: regarding OLE

Re: regarding OLE