MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Importar txt

    Compartilhe

    spccastilho
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 14/04/2012

    [Resolvido]Importar txt

    Mensagem  spccastilho em Seg 26 Maio 2014, 12:38

    Bom dia.

    sou novo em VBA e estou tentando automatizar a importação de um arquivo texto para o Access 2010. o problema é que esse arquivo tem 5 linhas para cada registro e não tem delimitadores.

    já procurei e tentei usar vários exemplos desse fórum . mas não fui suficientemente capaz de fazer funcionar.

    segue o exemplo do arquivo , conto com a ajuda de vocês.

    Muito Obrigado.

    0015052014V3
    01CRSAMSUNG-SP    ELAINE                          ELAINE.S@SAMSUNG.COM            11 56442841       27929926000112SERVITRON SERVICOS ELETRONICOS LTDA SERVITRON SERV82459405       AV  MERITI 2584                 VILA DA PENHA
    11RIO DE JANEIRO                  RJ21211-006                                    21-2482-9107        06033259000115TRANSPORTADORA EXPRESSO JRV LTDA                  206214324114   AV GUPE 10767                   JARDIM BELVAL
    12BARUERI                         SP06422-120                 0001660548                    000000000000893690000000001                                                                                                    RMA
    13
    020000000072521  2014051500000000000089369000007800000110000010000000000000000
    030000000072521  001UN39EH5003GXZD                00000780000011000001000000000001VDE                           Y1NY3XGD111673Z                                   0004888245
    01CRSAMSUNG-SP    ELAINE                          ELAINE.S@SAMSUNG.COM            11 56442841       04691136000146ESC CAMPO BELO ASSIST TECNICA CENTRAL SAM LTDA    116239737117   R VIEIRA DE MORAIS 299, LOJA    CAMPO BELO
    11SAO PAULO                       SP04617-010                                    11-3384-7024        06033259000115TRANSPORTADORA EXPRESSO JRV LTDA                  206214324114   AV GUPE 10767                   JARDIM BELVAL
    12BARUERI                         SP06422-120                 0001660775                    000000000000403050000000001                                                                                                    RMA
    13




    Última edição por Marcelo David em Seg 26 Maio 2014, 16:00, editado 2 vez(es) (Razão : Apenas letras maiúsculas no título)

    Uilson Brasil
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 999
    Registrado : 23/04/2013

    Re: [Resolvido]Importar txt

    Mensagem  Uilson Brasil em Seg 26 Maio 2014, 16:44

    Amigo,

    Dê uma passada por aqui e veja se ajuda.


    Abraços,


    .................................................................................
    ::: Uilson Brasil
    ::: Design in Microsoft Access

    spccastilho
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 14/04/2012

    IMPORTAR TXT

    Mensagem  spccastilho em Ter 27 Maio 2014, 14:02

    Bom dia, Uilson

    olhei o que você indicou , mas como disse , sou bem iniciante  e estou tendo dificuldades.

    o meu arquivo tem as linhas
    00 que não quero importar e depois
    01  02 03 11 12  ( essas estão dos dados nescessarios ) e depois vem 13 que também não quero importar e pula para o novo registro.

    no exemplo que indiciou o código verifica se a linha é 1 como faço para verificar se a linha é 01 ( duas posições)

    eu precisaria juntar tudo em uma unica linha e depois eu quebraria de acordo com o numero de posições dos campos

    conto com sua ajuda só pegar o fio da meada , depois eu tento dar seguimento.

    Obrigado

    spccastilho
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 14/04/2012

    IMPORTAR TXT

    Mensagem  spccastilho em Qua 04 Jun 2014, 13:40

    Uilson.

    Consegui Resolver baseado no link que indicou..

    muito Obrigado

      Data/hora atual: Dom 04 Dez 2016, 01:55