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]Abrir um arquivo "txt" e salvar como "xls" com VBA

    Compartilhe

    kaiuviny
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 14/09/2015

    [Resolvido]Abrir um arquivo "txt" e salvar como "xls" com VBA

    Mensagem  kaiuviny em Seg 01 Fev 2016, 12:47

    Pessoal, estou como um dúvida que me parece simples e não consigo resolver...

    Primeiramente, utilizo Access 2013, windows 7, 32 bits

    Estou tentanto fazer que meu botão apenas salve um arquivo "txt" para "xls".

    Pois Arquivo é bem simples, porém tem cabeçalhos e uns caracteres solto no começo do arquivo, e ao transformar em Excel ("xls") eu deleto e formato ele com Vba, e importa ele para um tabela, carregando dados no formulário.


    Estou começando a programar em VBA faz 2 meses, e a solução que eu achei é apenas Abrir o arquivo e salvar como "xls",

    e precisava apenas fazer isso automático.

    Alguem tem algum exemplo ou solução para me ajudar...

    Cláudio Más
    Developer
    Developer

    Respeito às Regras 100%

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

    Re: [Resolvido]Abrir um arquivo "txt" e salvar como "xls" com VBA

    Mensagem  Cláudio Más em Seg 01 Fev 2016, 14:27

    Uma solução:

    FileCopy "C:\NomePasta\NomeArquivo.txt", "C:\NomePasta\NomeArquivo.xls"

    kaiuviny
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 14/09/2015

    Re: [Resolvido]Abrir um arquivo "txt" e salvar como "xls" com VBA

    Mensagem  kaiuviny em Seg 01 Fev 2016, 14:36

    Muito obrigado pela ajuda...

    No caso eu utilizo um código para abrir uma janela, e ele seleciona aonde está o local do arquivo e armazena numa variável "txtFIlepath",

    Então, eu teria que de algum jeito alterar os últimos 3 caracteres da variável:

    Exemplo txtFIlepath = "c:\temp\relatorio.txt" para "c:\temp\relatorio.xls"..

    Tem algum método para fazer isso?

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3216
    Registrado : 15/03/2013

    Re: [Resolvido]Abrir um arquivo "txt" e salvar como "xls" com VBA

    Mensagem  ahteixeira em Seg 01 Fev 2016, 14:59

    Olá, tente assim:

    StrDestino =left(len(txtFIlepath)-3) &"xls"

    Abraço

    kaiuviny
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 14/09/2015

    Re: [Resolvido]Abrir um arquivo "txt" e salvar como "xls" com VBA

    Mensagem  kaiuviny em Seg 01 Fev 2016, 15:47

    AhTeixeira, muito obrigado também pela ajuda,

    Mas está retornando o seguinte erro:

    Erro de Copilação:

    Argumento não é opcional


    E e fica selecionado a palavra Left.

    StrDestino =Left(Len(txtFIlePath) - 3) & "xls"

    e a variável StrDestino , eu declarei como String.

    O Que será que pode ser?

    Cláudio Más
    Developer
    Developer

    Respeito às Regras 100%

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

    Re: [Resolvido]Abrir um arquivo "txt" e salvar como "xls" com VBA

    Mensagem  Cláudio Más em Seg 01 Fev 2016, 16:19

    StrDestino = Left(txtFilePath, Len(txtFilePath) - 3) & "xls"

    kaiuviny
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 14/09/2015

    Re: [Resolvido]Abrir um arquivo "txt" e salvar como "xls" com VBA

    Mensagem  kaiuviny em Seg 01 Fev 2016, 16:23

    Grande Claudio Más e ahTeixeira

    Funcionou perfeitamente...

    Muito obrigado mesmo...

    que Deus lhe pague..

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3216
    Registrado : 15/03/2013

    Re: [Resolvido]Abrir um arquivo "txt" e salvar como "xls" com VBA

    Mensagem  ahteixeira em Seg 01 Fev 2016, 16:24

    Olá a todos,
    Obrigado Claudio, é que dá tentar ajudar pelo telemovel Razz
    Caio, desconhecemos o código, mas deve ser qualquer coisa assim:
    Código:
    FileCopy txtFIlepath, Left(txtFilePath, Len(txtFilePath) - 3) & "xls"
    Abraço

      Data/hora atual: Qui 08 Dez 2016, 23:54