FORMATACAO DADOS EXCELL

Public Sub suLerArquivoExcel(ByVal vArquivo As String)
Dim objWorkbook As Excel.Workbook
Dim objWorkSheet As Excel.Worksheet
Dim objRow As Excel.Range

    objExcel.Visible = False

    Set objWorkbook = objExcel.Workbooks.Open(vArquivo, 0, True)

    For Each objWorkSheet In objWorkbook.Worksheets
        Dim intSair As Integer     [ô]Utilizado para sair do excel caso tenha 3 linhas em branco para nao ler as 65000 linhas
        Dim intLinhas As Integer  [ô]Registra a qtde de linhas lidas
        Dim intColunas As Integer [ô]Registra a qtde de colunas por tipo de documento
        Dim arrColunas() As String  [ô]Registra o nome das colunas
        Dim intRegistros As Integer [ô]Qtde de registros inseridos

        intSair = 0
        intLinhas = 1
        intColunas = 0
        intRegistros = 0

        ReDim arrColunas(99)
        
        For Each objRow In objWorkSheet.Rows
            If objRow.Cells(1).Text = [Ô][Ô] Then
                ReDim arrColunas(99)
                intColunas = 0
                intSair = intSair + 1
            Else
                intSair = 0
                [ô]Pega a Quantidade de colunas do Tipo de Documento
                Dim objColuna As Excel.Range
                Dim intSairColuna As Integer
                ReDim arrColunas(99)
                
                intSairColuna = 0
                intColunas = 0
    
                For Each objColuna In objRow.Cells
                    If objColuna.Text = [Ô][Ô] Then
                        intSairColuna = intSairColuna + 1
                    Else
                        intSairColuna = 0
                    End If
                    intColunas = intColunas + 1
                    [ô]objColuna.FormatConditions = adDouble
                    
                    If intColunas = 18 Then
                        ?????????????????????
                    End If
                    
                    arrColunas(intColunas) = objColuna.Text
    
                    If intSairColuna = 3 Then Exit For
                Next
                intColunas = intColunas - 3
    
                ReDim Preserve arrColunas(intColunas)
            End If
            intLinhas = intLinhas + 1

            If intSair = 3 Then Exit For
            DoEvents
        Next
        intLinhas = intLinhas - 3
    Next

    objWorkbook.Close
    objExcel.Quit
End Sub