WAIT 'Ждите! Идет передача в Microsoft Excel' WINDOW NOWAIT
ON ERROR oExcel=.NULL.
oExcel=GetObject(,"EXCEL.Application")
IF ISNULL(oExcel)
ErrorExcel=.T. && Excel на компьютере есть
ON ERROR ErrorExcel=.F. && Excel на компьютере нет
oExcel=CREATEOBJECT("EXCEL.Application") && Запускаем Excel
IF ErrorExcel=.F.
=MESSAGEBOX('На Вашем компьютере отсутствует '+;
'Microsoft Excel', 48 ,'Ошибка!')
RETURN
ENDIF
ELSE
=MESSAGEBOX('Microsoft Excel уже запущен! Найдите его '+;
'на Панели задач внизу экрана', 48 ,'Ошибка!')
RETURN
oExcel.application.Visible=.T.
oExcel.WorkBooks.Add
oExcel.DisplayAlerts=False
oExcel.ActiveWindow.Zoom =  75 
oExcel.Caption=[ 1100305 ]
oExcel.ActiveSheet.PageSetup.LeftMargin= 42 
oExcel.ActiveSheet.PageSetup.RightMargin= 42 
oExcel.ActiveSheet.PageSetup.TopMargin = 42 
oExcel.ActiveSheet.PageSetup.BottomMargin= 42 
oExcel.ActiveSheet.PageSetup.Orientation = xlLandscape
oExcel.ActiveSheet.PageSetup.PaperSize = xlPaperA4
nRow= 9  
***********
IF p1[n, 7 ]<> 0  THEN
oExcel.Range([l]+ALLTRIM(STR(nRow, 3 ))).Select
oExcel.ActiveCell.FormulaR1C1=IIF(p1[n, 7 ]<> 0 ,round(p1[n, 9 ]/p1[n, 7 ], 0 )* 1000 , 0 )
ENDIF
*************
.................
n=n+ 1 
nRow=nRow+ 1  
ENDIF