Macro access - importar valores na tabela

Private Sub Comando11_Click()

Dim F As Long, sLine As String, A(0 To 8) As String
Dim vCodIndicador As String
Dim pegasequencia() As Integer
Dim db As Database
Dim Indicadores As Recordset
Dim strCaminhoMDB As String
Dim i As Integer
Dim Divisores As String

'String que divide os CDR's no Arquivo texto
Divisores = "     MSQN0977 SEG0035            07/OUT/10  QUI 10:05 BDB MAT3"

On Error GoTo trata_erro

F = FreeFile

Open inserir_txt For Input As F

On Error Resume Next

'Seta o caminho do Banco a ser aberto
 strCaminhoMDB = "C:\Documents and Settings\K56143\Desktop\61BR\MONITORAÇÃO_61BR.mdb"

 Set db = OpenDatabase(strCaminhoMDB)


'Abre a Tabela para acrescentar aos Registros
Set Indicadores = db.OpenRecordset("DESCARGA_DE_DADOS_DE_TRAFEGO", dbOpenTable)

'Carrega no Array os campos que precisam ser gravados
Call CarregaCamposRelevates


Do While Not EOF(F)


    inserir_txt.Value = inserir_txt.Value + 1 ' contando numero de registro processados
    Line Input #F, sLine
    
    'se a linha lida for = a 50 traços (divisor entre um CDR's do Arquivo insere os registros no mdb
    If Trim(sLine) = Divisores Then
        
        
            Indicadores.AddNew
            
            Indicadores![DATA/HORA] = A(0)
            Indicadores![OK (LOCAL)] = A(1)
            Indicadores![OK (INTRACENTRAL)] = A(2)
            Indicadores![LO (OCUPADO - OG)] = A(3)
            Indicadores![LO (OCUPADO - IO)] = A(4)
            Indicadores![CO (SINAL A4/B4 RECEBIDO)] = A(5)
            Indicadores![NR (ABANDONO DURANTE RGT - OG)] = A(6)
            Indicadores![NR (ABANDONO DURANTE RGT - IO)] = A(7)
            Indicadores![OU (NUMERO MUDADO)] = A(8)
            
            
            
            Indicadores.Update

    
    End If
    
    ParseToArray sLine, A()
    
           

Loop

MsgBox "Arquivo texto importado com sucesso !! "

Close #F

Indicadores.Close

Exit Sub

trata_erro:

MsgBox "Ocorreu o erro ==> " & Err.Description

End Sub


' Trata o delimItador Ex ParseToArray(SLine As String, A() As String)
Private Sub ParseToArray(sLine As String, A() As String)

Dim P As Long, LastPos As Long, i As Long
Dim Campo As String
P = InStr(sLine, "                                ")
Dim Posicao As Long

'se ler uma linha em branco não faz nada
If Trim(sLine) = "" Then

    Exit Sub
    
End If


Do While P
    
        
    Campo = Trim(Mid$(sLine, LastPos + 1, P - LastPos - 1))
    
    'recebe a posição do vetor a ser armazenado o campo
    Posicao = VarreVetor(Campo)
    
       

    LastPos = P
    i = i + 1
    P = InStr(LastPos + 1, sLine, "=", vbBinaryCompare)
    
    'se posição menor do que 24 é porque encontrou este campo no vetor
    If Posicao < 9 And Posicao > 0 Then
    
'        A(Posicao) = Trim(Mid$(sLine, LastPos + 1, P - LastPos - 1))
       A(Posicao) = Mid$(sLine, LastPos + 1)
    ElseIf Posicao = 0 Then
        ' Grava a Posição do CDR
        A(0) = Trim(Mid$(sLine, LastPos + 1, P - LastPos - 1))
    End If
    
    
Loop

If i = 0 Then

    A(i) = Mid$(sLine, LastPos + 1)
    
End If



End Sub

Option Compare Database

Public VetCamposRelevantes(0 To 8) As String

Public Sub CarregaCamposRelevates()

VetCamposRelevantes(0) = "07/OUT/10  QUI 10:00"
VetCamposRelevantes(1) = "LOCAL"
VetCamposRelevantes(2) = "INTRACENTRAL"
VetCamposRelevantes(3) = "OCUPADO (OG)"
VetCamposRelevantes(4) = "OCUPADO (IO)"
VetCamposRelevantes(5) = "SINAL A4/B4 RECEBIDO"
VetCamposRelevantes(6) = "ABANDONO DURANTE RGT (OG)"
VetCamposRelevantes(7) = "ABANDONO DURANTE RGT (IO)"
VetCamposRelevantes(8) = "NUMERO MUDADO"


End Sub
' retorna a posição para armazenar no Vetor
Public Function VarreVetor(strCampo As String) As Long


Dim i As Integer

VarreVetor = 9

For i = 0 To 8
    
    If VetCamposRelevantes(i) = strCampo Then
        VarreVetor = i
        Exit Function
    End If

Next i

End Function