nSheet.Cells(r +  6 , c +  3 ).Interior.Color = ocxGrid.CellBackColor

 msgbox ocxGrid.CellBackColor

Private Sub cmdAnalysis_Click()
   Dim db As Database, rst As Recordset, i, k As Integer
   Dim r, c, maxRow, maxCol, begCol As Integer
   Dim t, datTimes( 1  To  500 ) As Date
   
   highLight ("")
   startWait ("Анализ сетки")
   
   'Заполним массив datTimes
   maxRow = ocxGrid.Rows -  1 
   For r =  2  To maxRow
       If ocxGrid.TextMatrix(r,  0 ) = "" Then
          datTimes(r) =  0 
       Else
          datTimes(r) = TimeValue(ocxGrid.TextMatrix(r,  0 ))
       End If
   Next
   
   Set db = CurrentDb
   db.QueryDefs!t_Itogo_Norm.Parameters!xStationID = StationID
   db.QueryDefs!t_Itogo_Norm.Parameters!xProductID = ProductID
   db.QueryDefs!t_Itogo_Norm.Parameters!xQueryID = QueryID
   db.QueryDefs!t_Itogo_Norm.Parameters!xTime = # 12 : 00 : 00  PM#
   db.QueryDefs!t_Itogo_Norm.Parameters!xOffDown =  1 
   db.QueryDefs!t_Itogo_Norm.Parameters!xOffUp =  1 
   maxCol = IIf(ocxGrid.Cols -  2  < ocxEndDate - ocxStartDate, ocxGrid.Cols -  2 , ocxEndDate - ocxStartDate)
   
   For i =  0  To maxCol
      
      textWait ("Анализ сетки за " & Format(ocxStartDate + i, "d mmmm yyyy") & "г.")
      generateGrid StationID, ocxStartDate + i, True, OrderID
      db.QueryDefs!t_Itogo_Norm.Parameters!xDate = ocxStartDate + i
      ocxGrid.Col = i +  1 
      Set rst = db.QueryDefs!t_Itogo_Norm.OpenRecordset
      
      Do While Not rst.EOF
         t = rst!time
         r =  2 
         For r =  2  To maxRow
            If Abs(datTimes(r) - t) <  0 . 000001  Then Exit For
         Next
         ocxGrid.Row = r
         ocxGrid.CellBackColor = RGB( 200  + rst!Coeff *  55 ,  255 ,  255 )
 
  '***********************     
        msgbox ocxGrid.CellBackColor 'ТУТ ВСЕ ПОКАЗЫВАЕТ!!! 

   '***************************

         rst.MoveNext
      Loop
      rst.Close
   Next
   stopWait
End Sub

For c =  0  To ocxGrid.Cols -  1  'брать количество столбцов начиная с нулевого
   For r =  2  To ocxGrid.Rows -  1  'брать количество строк начиная со второй
                             
           xx = ocxGrid.TextMatrix(r, c) 'часы и выходы
     
     nSheet.Cells(r +  6 , c +  3 ).Value = xx 'заполняем часы и выходы в excel

'поидее должен брать цвет!!! но не берет!
     nSheet.Cells(r +  6 , c +  3 ).Interior.ColorIndex = ocxGrid.CellBackColor

next r
next c

ocxGrid.Row = r:                        ocxGrid.Col = c
nSheet.Cells(r +  6 , c +  3 ).Interior.Color = ocxGrid.CellBackColor