Notifications
Clear all

Editar macro salvar em txt

3 Posts
3 Usuários
0 Reactions
1,290 Visualizações
(@marco-acv)
Posts: 0
New Member
Topic starter
 

Prezados, bom dia!

Por favor, preciso de ajuda para editar uma macro.

Eu consegui criar essa macro aqui:

ActiveWorkbook.SaveAs Filename:="C:UsersTardelliDesktop'.txt", _
FileFormat:=xlTextPrinter, CreateBackup:=False

essa macro salva uma planilha tem formato txt, porém apenas no diretório informado.

como faço para alterar o diretório?

deixar a macro assim:

ActiveWorkbook.SaveAs Filename:="escolha o nome e local para salvar o seu arquivo.txt", _
FileFormat:=xlTextPrinter, CreateBackup:=False 

Desde já agradeço pela atenção e ajuda.

Atenciosamente,
Marco

 
Postado : 11/05/2017 5:20 am
(@skulden)
Posts: 0
New Member
 

Bom dia,

ActiveWorkbook.SaveAs Filename:=Inputbox("escolha o nome e local para salvar o seu arquivo.txt"), _
FileFormat:=xlTextPrinter, CreateBackup:=False

Seria legal se você declarasse uma variável para o nome do arquivo e procurasse fazer um tratamento para eventuais erros, mas em essência é isso ai.

Abraços.

 
Postado : 11/05/2017 6:18 am
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

skulden,

Bom dia!

nas suas próximas postagens de código aqui no fórum, por gentileza, utilize a TAG CODE existente no início da caixa de mensagens.

 
Postado : 11/05/2017 8:20 am