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]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...
    avatar
    Cláudio Más
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1153
    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?
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4281
    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?
    avatar
    Cláudio Más
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1153
    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..
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4281
    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 17 Ago 2017, 02:48