#DEFINE xlCenter          -4108            && описание констант EXCEL
#DEFINE xlSolid               1
#DEFINE xlEdgeLeft            7
#DEFINE xlEdgeTop             8
#DEFINE xlEdgeBottom          9
#DEFINE xlEdgeRight          10
#DEFINE xlInsideVertical     11
#DEFINE xlInsideHorizontal   12
#DEFINE xlThin                2
#DEFINE xlThick               4
#DEFINE xlMedium          -4138
#DEFINE xlDouble          -4119

LOCAL lcPath, loExcel, lnRow

loExcel = CREATEOBJECT("Excel.Application") &&Создаем файл ексель
loExcel.workBooks.add
SELECT post 
GO top
i=1
DO WHILE NOT EOF()

WITH loExcel
  .sheets.add
  .ActiveSheet.name = ALLTRIM(post.naim)
  .visible = .f.
  *.WorkBooks.Add
  *.Sheets.Add
  *.Sheets.Name = post.naim 
  .ActiveWindow.DisplayZeros = .F.
* задаем ширину колонок
  .Columns[1].ColumnWidth = 10            
  .Columns[2].ColumnWidth = 40               
  .Columns[3].ColumnWidth = 20           
  .Columns[4].ColumnWidth = 20              
  .Columns[5].ColumnWidth = 20             
  .Columns[6].ColumnWidth = 40              
  .Columns[7].ColumnWidth = 7           
  .Columns[8].ColumnWidth = 7              
  .Columns[9].ColumnWidth = 8              
* задаем параметры шрифта
  .cells(1,1).font.size = 10
  .cells(1,1).font.Bold = .t.
  .cells(1,1).value = 'Организация'
  .Cells(2,2).Font.Size = 14                
  .Cells(2,2).Font.Bold = .T.               
  .Cells(2,2).Value = 'Отчет'     && название отчета
  .Cells(3,2).Font.Size = 14               
  .Cells(3,2).Font.Bold = .T.               
  .Cells(3,2).Value = post.naim    
* замораживаем строки
  .Range("A6:D6").Select
  .ActiveWindow.FreezePanes = .T.  
  WITH .Selection 
     .RowHeight = 18                        
     .Font.Size = 10
     .Font.Bold = .t.
  ENDWITH
 *MESSAGEBOX('create columns name',0,'Message') 
  .Cells(5,1).Value = '1 колонка наименование'
  .Cells(5,2).Value = '2'
  .Cells(5,3).Value = '3'
  .Cells(5,4).Value = '4'
  .Cells(5,5).Value = '5'
  .Cells(5,6).Value = '6'
  .Cells(5,7).Value = '7'
  .Cells(5,8).Value = '8'
  .Cells(5,9).Value = '9'
  * теперь берем данные из таблицы
  lnRow = 5 

  SELECT inF
  SET FILTER TO ALLTRIM(post)=ALLTRIM(post.naim)
  GO TOP 
  m=RECCOUNT()
 for n=1 to m  
    wait "Выполнено: "+ALLTRIM(post.naim)+" "+alltrim(str(100/m*n))+" %"+replicate(" ",65)+;  
    chr(13)+replicate("|",100/m*n)+;  
    chr(13)+"Осталось": "+alltrim(str(100-100/m*n))+" %" nowait wind  
  
    lnRow = lnRow + 1
   *присваиваем каждой колонке свои переменные
    .Cells(lnRow,1).NumberFormat = "@"
    .Cells(lnRow,1).Value = Se_k
    .Cells(lnRow,2).NumberFormat = "@"
    .Cells(lnRow,2).Value = se_n
    .Cells(lnRow,3).NumberFormat = "@"
    .Cells(lnRow,3).Value = by
    .Cells(lnRow,4).NumberFormat = "@"
    .Cells(lnRow,4).Value = cv
    .Cells(lnRow,5).NumberFormat = "@"
    .Cells(lnRow,5).Value = pe
    .Cells(lnRow,6).NumberFormat = "@"
    .Cells(lnRow,6).Value = post
    .Cells(lnRow,7).NumberFormat = "@"
    .Cells(lnRow,7).Value = kol1
    .Cells(lnRow,8).NumberFormat = "@"
    .Cells(lnRow,8).Value = kol2
    .Cells(lnRow,9).NumberFormat = "@"
    .Cells(lnRow,9).Value = itog
    IF NOT EOF()
    SELECT inF
    skip 
    ENDIF 
   ENDFOR  
ENDWITH 
  SELECT post
  SKIP
  i=i+1
ENDDO   
WAIT CLEAR 
loExcel.Visible = .T.
MESSAGEBOX ('данные выгружены в Excel',0+64,;
            'Сообщение программы')