Sub ВыводВExel()
   Const НачСтрока =  2 
   Dim rs As New ADODB.Recordset
   Dim ex1 As Object ' Excel.Application
   Dim wb As Object ' Excel.Workbook
   Dim ws As Object ' Excel.Worksheet
   Dim i As Long, j As Long, k As Long, rДанные As String
   Dim v As Variant
   Set ex1 = CreateObject("Excel.Application")  'New Excel.Application
   Set wb = ex1.Workbooks.Add
   Set ws = wb.Sheets( 1 )
   Set rs = рекордсетГрида.Clone
   rs.filter = рекордсетГрида.filter
   rs.sort = рекордсетГрида.sort
   k = rs.Fields.Count -  1 
   rДанные = "A" & (НачСтрока +  1 ) & ":" & XCol_(k) & rs.RecordCount + НачСтрока
   If rs.RecordCount >  0  Then
      rs.MoveFirst
      i =  0 
      Do Until rs.EOF
         For j =  0  To k
             v(i, j) = rs.Fields(j).Value
         Next j
         i = i +  1 
         rs.MoveNext
      Loop
      ws.Range(rДанные) = v
   End If
End Sub

Function XCol_(ByVal Column_ As Long) As String
    If (Column_ <  0 ) Then Column_ =  0 
    If (Column_ <  26 ) Then
        XCol_ = Chr(Column_ + Asc("A"))
    ElseIf (Column_ <  676 ) Then
        XCol_ = Chr((Column_ \  26 ) + Asc("A") -  1 ) & Chr((Column_ Mod  26 ) + Asc("A"))
    Else
        XCol_ = "ZZ"
    End If
End Function

rДанные = "A" & (НачСтрока +  1 ) & ":" & XCol_(k) & rs.RecordCount + НачСтрока
   ReDim v(rs.RecordCount, k) 'Забыл указать
   If rs.RecordCount >  0  Then

      ex1.Visible = True   'Еще забыл
      ws.Range(rДанные) = v

'Форматирование колонок. Поставить перед выводом данных (для быстроты работы)
   Dim Строк As Long, cДанные As String, cFooter As String, cЗаголовок As String
   Строк = rs.RecordCount
   For j =  0  To k
      cДанные = XCol_(j) & (НачСтрока +  1 ) & ":" & M2.XCol_(j) & НачСтрока + Строк
      cFooter = XCol_(j) & НачСтрока + Строк +  1 
      cЗаголовок = XCol_(j) & (НачСтрока)
      ws.Range(cЗаголовок) = rs.Fields(j).Name
      If (rs.Fields(j).Type = adDBDate) Or (rs.Fields(j).Type = adDBTime) Or (rs.Fields(j).Type = adDate) Or (rs.Fields(j).Type = adDBTimeStamp) Then
         ws.Range(cДанные).NumberFormat = "dd mmmm yyyy"
      End If
      'Проверка необходимости добавить формулу
      If (rs.Fields(j).Type = adCurrency) Or (rs.Fields(j).Type = adDouble) Then
         ws.Range(cFooter).FormulaR1C1 = "=SUM(R[-" & Строк & "]C:R[-1]C)"
      End If
   Next j
'Дальше идет уже написанное (показано для ориентировки)
   ReDim v(rs.RecordCount, k) 'Забыл указать
   If rs.RecordCount >  0  Then