MaximoAccess

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

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)
    avatar
    Uilson Brasil
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1021
    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: Seg 25 Set 2017, 03:34