Notifications
Clear all

Editar macro salvar em txt

3 Posts
3 Usuários
0 Reactions
1,295 Visualizações
(@marco-acv)
Posts: 142
Estimable 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: 170
Estimable 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.

Se a resposta lhe foi útil, clique no joinha!

 
Postado : 11/05/2017 6:18 am
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious 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.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 11/05/2017 8:20 am