функция подключения

string		ls_named
integer		li_ret
any			la_value
long			ll_sheet
string		ls_profiles
datawindowchild	dwc

ib_open = FALSE
IF FileExists(as_filename) = FALSE Then
	MessageBox('Ошибка', 'Файл "' + as_filename + '" не найден')
	Return - 1 
End IF
excel = create oleobject
li_ret = excel.connecttonewobject('excel.application')
if li_ret<> 0  then
	messagebox('OLE','Невозможно подключится к OLE-объекту~r~nКод ошибки=' + string(li_ret),stopsign!)
	return - 2 
end if
excel.Visible = FALSE
excel.WorkBooks.Open(as_filename)
ib_open = TRUE
Return  0 

функция отключения

integer		li_ret
IF ib_open Then
	excel.WorkBooks.Close()
	excel.Application.Quit
	li_ret = excel.disconnectobject()
	if li_ret <>  0  then
		messagebox('OLE','Невозможно откключится от OLE-объекта~r~nКод ошибки=' + string(li_ret),stopsign!)
		return
	End IF
End IF 

excel.WorkBooks('имя_файла.XLS').Close()