Integer li_result, n
OLEObject oleEx, ole_null

oleEx= CREATE OLEObject
li_result = oleEx.ConnectToNewObject('excel.application')

if li_result = 0 then
	oleEx.Workbooks.Open ('C:\test_add.xls')
	SetNull(ole_null)

	n = oleEx.ActiveWorkBook.WorkSheets.Count /*кол-во листов "до"*/
	oleEx.ActiveWorkBook.WorkSheets.Add( ole_null, oleEx.ActiveWorkBook.WorkSheets(n))	/*добавить лист в конец*/
	n = oleEx.ActiveWorkBook.WorkSheets.Count /*кол-во листов "после"*/
	oleEx.ActiveWorkBook.WorkSheets(n).Name = "Name" /*задать имя листа n*/
	oleEx.ActiveWorkBook.WorkSheets(n).Cells(1, 1).Value = "value" /*установить значение в ячейку A1 листа n*/
	oleEx.ActiveWorkbook.Save() /*сохранить изменения*/
	oleEx.application.Quit
	oleEx.DisconnectObject()
else
	Messagebox('excel.application','Errror ConnectToNewObject', stopsign!)
end if

DESTROY oleEx