Private Sub Excel()
   Me.MousePointer = vbHourglass
        
    Set cn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    Set exclApp = CreateObject("Excel.Application")
               Set exclsheet = CreateObject("Excel.Sheet")
               Set exclBook = exclApp.Workbooks.Add
               Set exclsheet = exclBook.Worksheets(1)
               
     With MS1
            .FixedCols = 0
            .Rows = .Rows
   
    i = 0
    l = 0
   
    exclsheet.Rows(1).Font.Bold = True
      
         For i = 0 To .Rows
         l = l + 1
         'If .TextMatrix(l, 3) = a Then
            'Exit Sub
            'Me.MousePointer = vbArrow
         'Else
               exclsheet.Cells(l, 1).Value = .TextMatrix(i, 0)
               exclsheet.Cells(l, 2).Value = .TextMatrix(i, 1)
               exclsheet.Cells(l, 3).Value = .TextMatrix(i, 2)
               exclsheet.Cells(l, 4).Value = .TextMatrix(i, 3)
               exclsheet.Cells(l, 5).Value = .TextMatrix(i, 4)
               exclsheet.Cells(l, 6).Value = .TextMatrix(i, 5)
               exclsheet.Cells(l, 7).Value = .TextMatrix(i, 6)
        ' End If
        
        
         Next
               
                exclsheet.SaveAs "C:Sera" & Format(Now, "DDMMYYHHMM") & ".xls"
                exclApp.Application.Quit
                Set excelSheet = Nothing
                MsgBox "ARQUIVO SALVO COMO : " & vbNewLine & "C:Sera" & Format(Now, "DDMMYYHHMM") & ".xls", vbInformation, "AVISO"
                Set exclsheet = Nothing
                Set exclBook = Nothing
                Set exclApp = Nothing

End With
Me.MousePointer = vbArrow

End Sub