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]Extensão de Arquivo .ret

    Compartilhe

    Gerson
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 410
    Registrado : 25/08/2010

    Extensão de Arquivo .ret

    Mensagem  Gerson em Qua 14 Ago 2013, 12:39

    Olá Amigos estou precisando de ajuda.
     
    A questão envolve importação de arquivo de texto, bastante comentada aqui no fórum e á principio sem muitos problemas com o uso do assistente do Access.
    Já pesquisei no Fórum e houve um tópico bem parecido, porém faltou o que eu queria saber.
    Problema:
    Os bancos aqui no Brasil geram aos clientes um arquivo para baixa de títulos estes arquivos o cliente entra no site do banco faz a consulta e salva. Fica disponível no disco o relatório, só que com a extensão .ret (que é uma extensão de arquivo de texto), porém o Access não abre arquivos com esta extensão. No Excel no assistente de importação possui a opção importar arquivos: Todos os tipos. Gostaria de saber se há a possibilidade por meio de código de se fazer a importação dentro do Access sem passar pelo Exel.
     
    Se alguém tiver alguma idéia fico agradecido.
     
    Abraços,
     
    Gerson

    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3348
    Registrado : 04/04/2010

    Re: [Resolvido]Extensão de Arquivo .ret

    Mensagem  Avelino Sampaio em Qua 14 Ago 2013, 22:30

    Ola!

    Ao renomear o arquivo para txt vc consegue ler o conteúdo?  Se sim, vc pode usar o VBA para renomear o arquivo como desejado e então abrir a importação.

    Exemplo:

    dim strCaminho$
    strCaminho = "c:\SuaPasta\SeuArquivo.ret"
    Name strCaminho As Replace(strArquivo, ".ret", ".txt")
    docmd.RunCommand acCmdImportAttachText

    Sucesso!


    .................................................................................
    ============ Quer aprender Access em alta velocidade ? ============

    || [Você precisa estar registrado e conectado para ver esta imagem.] Acesse o site UsandoAccess.com.br e veja um ótimo kit de ensino que tenho para você.

    ===========================================================

    Gerson
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 410
    Registrado : 25/08/2010

    Extensão de Arquivo .ret

    Mensagem  Gerson em Qui 15 Ago 2013, 22:50

    Olá Avelino,

    Obrigado pela atenção, passei o dia quebrando a cabeça tentando mas não consegui. Ainda estou muito fraco em VBA, aqui no fórum tem um exemplo do Jpaulo [Você precisa estar registrado e conectado para ver este link.] e ele funciona muito bem só falta acrescentar a complementação que você me sugeriu mas não consegui.

    Fiz o seguinte antes de usar o exemplo do Jpaulo:

    1: Copiei o arquivo .Ret e renomeei para .txt e testei o exemplo do Jpaulo deu tudo certo porém no exemplo dele os campos estão na mesma linha separados por tabulação preciso dos campos separados na mesma linha em suas respectivas células.
    Observe o trecho por favor...
    ArquivoTexto = "C:\teste.txt" 'caminho do arq de texto
    strTabela = "temp" 'nome da tabela no banco

    Delimitador = "|" 'defina aqui qual o delimitador que não quer importar (aqui o trecho onde ele explica)

    If Delimitador = "" Then Delimitador = " "
    If Delimitador = "" Then Delimitador = vbTab

    2: Também não saberia aonde colocar o seu trecho se eu não renomear antes o Access não lê.

    3: Outra coisa é que são 2 bancos portanto serão feitas 2 importações para a mesma tabela uma coisa assim:
    C:\Bradesco\retorno\zwshsjsj1234.ret
    C:\BBrasil\retorno\zwshsjsj1234.ret
    Um jeito para isso seria criar um botão para cada banco.
    Fico grato pelo apoio até breve.

    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3348
    Registrado : 04/04/2010

    Re: [Resolvido]Extensão de Arquivo .ret

    Mensagem  Avelino Sampaio em Sex 16 Ago 2013, 06:50

    Escreva aqui algumas linhas do conteúdo deste seu arquivo ret.  Troque os valores, caso seja informações que vc não queira mostrar.

    Aguardamos


    .................................................................................
    ============ Quer aprender Access em alta velocidade ? ============

    || [Você precisa estar registrado e conectado para ver esta imagem.] Acesse o site UsandoAccess.com.br e veja um ótimo kit de ensino que tenho para você.

    ===========================================================

    Gerson
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 410
    Registrado : 25/08/2010

    Extensão de Arquivo .ret

    Mensagem  Gerson em Sex 16 Ago 2013, 12:13

    Bom dia Avelino, obrigado pela força lá vai o rel Bradesco.
     
     
    [Você precisa estar registrado e conectado para ver este link.]
     
    Aqui o Banco do Brasil
    [Você precisa estar registrado e conectado para ver este link.]
    Até breve.

    Gerson
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 410
    Registrado : 25/08/2010

    Extensão.ret

    Mensagem  Gerson em Seg 02 Set 2013, 17:28

    Olá amigos com ajudo do Junior Wano foi resolvida a questão.
    Agradeço a todos.
    E até breve.

    Luis Antonio Cordeiro
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 20/05/2014

    Resolução

    Mensagem  Luis Antonio Cordeiro em Ter 20 Maio 2014, 02:10

    Boa noite pessoal,

    Estou com a mesma dúvida.
    Poderiam colocar a solução no Forúm??

    Agradeço.


      Data/hora atual: Sab 03 Dez 2016, 19:43