Notifications
Clear all

MACRO QUE SALVA NO DIRETÓRIO ESPECIFICADO EM UMA CÉLULA

3 Posts
2 Usuários
0 Reactions
922 Visualizações
(@ricky)
Posts: 4
New Member
Topic starter
 

Pessoal, a dúvida é a seguinte:
Tenho uma macro que gera um arquivo com os dados da planilha sempre no disco D:
O nome e o formato do arquivo são únicos e não devem ser alterados. A única que coisa a alterar é o diretório onde o arquivo é salvo.

Gostaria que, o diretório fosse especificado na Plan3!A5.

Por exemplo: Eu digito a letra "C" na Plan3!A5 então o arquivo não será mais salvo do disco D: e sim no disco C:

Outra opção que também me ajudaria, seria se abrisse uma janela antes de salvar para escolher o local em que o arquivo seria salvo, mas acredito que eu teria mais dificuldade para adaptar isso em minha macro.

Alguém pode me ajudar?
Desde já, grato pela atenção!

 
Postado : 30/05/2017 8:47 am
(@osvaldomp)
Posts: 857
Prominent Member
 

Letra do drive na célula

ActiveWorkbook.SaveAs Filename:=Sheets("Plan3").[A5] & ":MinhaPastaNomeArq", FileFormat:=52

Exibe a caixa de diálogo Salvar Como

Application.Dialogs(xlDialogSaveAs).Show

Osvaldo

 
Postado : 30/05/2017 11:57 am
(@ricky)
Posts: 4
New Member
Topic starter
 

Valeu mesmo companheiro.

Tive um pouco de dificuldades para adaptar aqui, porque não sou muito bom com Macros. Mas consegui fazer a seguinte adaptação, porque minha pasta de trabalho tem várias planilhas e ela ainda cria uma outra pasta do excel:
ActiveWorkbook.SaveAs Filename:=ThisWorkBook.Sheets("Plan3").[A5] & ":NomeArq", FileFormat:=52

Agora eu só gostaria de mais uma coisinha:
Quando a macro é executada ela cria uma outra pasta do excel, e é essa pasta que é salva em outro formato nesse diretório que especificamos. E pode acontecer de o diretório especificado não aceitar acesso ou alterações do usuário. Então gostaria que, nessa condição, a planilha que foi criada fosse fechada e resultasse uma mensagem de erro.

 
Postado : 31/05/2017 12:19 pm