[Resolvido]Importar Arquivo txt

senhores do conselho, procurei no forum e encontrei muitos exemplos de importação de txt para access, porém, estudei os exemplos mais não conseguir entender devido ao meu nivel de conhecimento. tenho que importar todos os dias um txt e tratá-lo no excel, este arquivo poissui linhas que não quero impotar e o mais dificil e que tem linhas que na coluna 1 linha 1 possui valor e na linha 2,3 não, dependendo da quantidade de produtos. pra entender melhor. se alguem puder comentar um possivel codigo para resolução.

cliente_________codigo_____descrição______________________valor___________tipo operação___data
0001111_______333333_____produto tal_____________________100,00__________02___________13/10/2012
______________444444_____produto tal_____________________100,00__________02___________13/10/2012
______________666666_____produto tal_____________________100,00__________02___________13/10/2012
______________777777_____produto tal_____________________100,00__________02___________13/10/2012

oioiui____iuiuoiu_____oiuoiuoiuoiu_oiuoiuoiuo_____________oiuoiuoiuoi___oiuoiuoiuo____uoiuiiuoi
-----------------------------------------------------------------------------------------------
0002222_______333333_____produto tal_____________________100,00__________02___________13/10/2012
______________333333_____produto tal_____________________100,00__________02___________13/10/2012

Eu pra quase tudo prefiro fazer em código, segue um pequeno exemplo:

Código:


    Dim ConteudoLinha As String
   
    Dim Codigo As Long
    Dim Cliente As Long
    Dim Descricao As String
    Dim Valor As Double
    Dim TipoOperacao As String
    Dim Data As Date
   
    Open "E:\a2.txt" For Input Access Read As #1
        While Not EOF(1)
            Line Input #1, ConteudoLinha
                       
            If Trim(Mid(ConteudoLinha, 1, 14)) <> "" Then
                Codigo = Mid(ConteudoLinha, 1, 14)
            End If
           
            Cliente = Mid(ConteudoLinha, 15, 11)
            Descricao = Trim(Mid(ConteudoLinha, 26, 32))
            Valor = Mid(ConteudoLinha, 58, 16)
            TipoOperacao = Trim(Mid(ConteudoLinha, 74, 13))
            Data = Mid(ConteudoLinha, 87)
        Wend
    Close #1


Para funcionar, tirei a primeira linha com os campos, e tirei os "_", substitui por espaços, mas acho que deu pra entender a lógica do esquema

Caro amigo preciso importar para dentro de uma tabela chamada compras e o codigo não importa.
se puder comentar o codigo eu agradeço.

http://maximoaccess.forumeiros.com/t7059-importar-dados-de-um-arquivo-txt-irregular

entre muitos outros que existem neste maravilhoso fórum.