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

3 participantes

    [Resolvido]Importar TXT com outra extensão

    avatar
    MarioAB
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 13/09/2013

    [Resolvido]Importar TXT com outra extensão Empty [Resolvido]Importar TXT com outra extensão

    Mensagem  MarioAB 12/12/2013, 19:19

    Desde já agradeço a atenção,

    Possuo um cógigo que importa vários arquivos TXT simultaneamente. No entanto, esta importação somente ocorre quanto a extensão do arquivo é TXT. Os arquivos originais tem a extensão BLOQUEADOS (com conteúdo de um arquivo TXT) ficando com o nome da seguinte forma:

    YYYYMMDD0001.bloqueados

    Ocorre que para fazer a importação é necessário rodar uma BAT para a troca da extensão do arquivo, o que esta dependendo de intervenção do usuário.

    É possível importar diretamente um arquivo com a extensão .BLOQUEADOS? Lembrando que a especificação de importação só dá opção de extensão TXT para este tipo de arquivo.

    Estou usando a seguinte linha para a importação:

    DoCmd.TransferText acImportDelim, "Grupo_06", "Tabela024_inadimplencia", strOrigemInad & strFileInad, False, "", 1252

    onde

    strOrigemInad = "C:\CLIENTES\AreaDeImportacao\Inadimplencia\"
    strFileInad = Dir$(strOrigemInad & "*.txt")

    Windows 7, Access 2010

    Agradeço a indicação de uma solução.
    Dilson
    Dilson
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009

    [Resolvido]Importar TXT com outra extensão Empty Re: [Resolvido]Importar TXT com outra extensão

    Mensagem  Dilson 13/12/2013, 03:19

    Amigo pelo jeito o access não aceita uma extensão diferente daquelas padronizadas por ele.

    Uma alternativa pode ser renomeando os arquivos pelo VBA e depois da importação renomeando de novo se for o caso, ex:

    Name "C:\nome_arquivo.bloqueados" As "C:\nome_arquivo.txt"

    Código de importação

    Name "C:\nome_arquivo.txt" As "C:\nome_arquivo.bloqueados"
    Cláudio Más
    Cláudio Más
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1306
    Registrado : 21/01/2012

    [Resolvido]Importar TXT com outra extensão Empty Re: [Resolvido]Importar TXT com outra extensão

    Mensagem  Cláudio Más 13/12/2013, 12:46

    Acho que o que importa é o formato do arquivo, e não a extensão.
    Acontece que o seu código está localizando somente arquivos com a extensão .txt.
    Tente alterar a linha abaixo, para buscar os arquivos com extensão "bloqueados":

    strFileInad = Dir$(strOrigemInad & "*.bloqueados")
    Dilson
    Dilson
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009

    [Resolvido]Importar TXT com outra extensão Empty Re: [Resolvido]Importar TXT com outra extensão

    Mensagem  Dilson 13/12/2013, 15:41

    Eu até pensei nessa possibilidade, pois fiz uma tentativa pelo assistente do access selecionando um arquivo de extensão .desbloqueados e retornou erro dizendo que só aceitara os formatos xml, txt, html ...

    Acreditava que se pelo assistente funcionasse, certamente pelo vba também (pelo que não tentei devido o fracasso usando o assistente).

    Acho válido testar pelo vba, vai que ...

    Vamos aguardar o marioAB.
    avatar
    MarioAB
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 13/09/2013

    [Resolvido]Importar TXT com outra extensão Empty Re: [Resolvido]Importar TXT com outra extensão

    Mensagem  MarioAB 13/12/2013, 18:09

    Caros,

    A tentativa da solução apresentada pelo Cláudio Más resultou o erro: "Erro em tempo de execução '31519': Não é possivel importar este arquivo".

    A sugestão do :placeholder resolveu a questão.

    Saudações e muito obrigado.
    Cláudio Más
    Cláudio Más
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1306
    Registrado : 21/01/2012

    [Resolvido]Importar TXT com outra extensão Empty Re: [Resolvido]Importar TXT com outra extensão

    Mensagem  Cláudio Más 13/12/2013, 22:24

    Ou funcionaria em versões antigas do Access, ou eu to ficando doido mesmo...  Shocked 

      Data/hora atual: 3/12/2022, 01:36