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

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...

Uma solução:

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

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?

Olá, tente assim:

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

Abraço

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?

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

Grande Claudio Más e ahTeixeira

Funcionou perfeitamente...

Muito obrigado mesmo...

que Deus lhe pague..

Olá a todos,
Obrigado Claudio, é que dá tentar ajudar pelo telemovel
Caio, desconhecemos o código, mas deve ser qualquer coisa assim:

Código:

FileCopy txtFIlepath, Left(txtFilePath, Len(txtFilePath) - 3) & "xls"

Abraço