MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    [Resolvido]Importar Arquivo txt

    avatar
    Josuene
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Mensagens : 43
    Registrado : 19/07/2011

    [Resolvido]Importar Arquivo txt Empty [Resolvido]Importar Arquivo txt

    Mensagem  Josuene 17/10/2012, 02:51

    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
    avatar
    rclenzi
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 26
    Registrado : 10/10/2012

    [Resolvido]Importar Arquivo txt Empty Re: [Resolvido]Importar Arquivo txt

    Mensagem  rclenzi 17/10/2012, 16:48

    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
    avatar
    Josuene
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Mensagens : 43
    Registrado : 19/07/2011

    [Resolvido]Importar Arquivo txt Empty Re: [Resolvido]Importar Arquivo txt

    Mensagem  Josuene 18/10/2012, 00:27

    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.
    avatar
    Convidad
    Convidado


    [Resolvido]Importar Arquivo txt Empty Re: [Resolvido]Importar Arquivo txt

    Mensagem  Convidad 18/10/2012, 09:05

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

    entre muitos outros que existem neste maravilhoso fórum.

    Conteúdo patrocinado


    [Resolvido]Importar Arquivo txt Empty Re: [Resolvido]Importar Arquivo txt

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 23:31