Notifications
Clear all

Salvar Planilha em diretório específico

4 Posts
2 Usuários
0 Reactions
1,199 Visualizações
(@edilsonjc)
Posts: 39
Trusted Member
Topic starter
 

Galera procurei em pesquisa mais não encontrei o que queria.

É o seguinte: tenho um form com um botão de salvar, porém gostaria de salvá-lo em local específico (e.g.: D:/meus documentos/planilhas/*.xlsm).
Mesmo se alguém copiar a planilha para outro local ela sempre irá salvar no diretório acima.
Tem como?

Obrigado.

 
Postado : 10/01/2014 12:12 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Ola Edilson,

Estou colocando abaixo uma rotina que voce pode incorporar de acordo com sua necessidade:

Sub SALVAR()

    Dim MeuDir, MeuNome
    MeuDir = TextBox1
    MeuNome = "SUAPLANILHA.xlsm"
    Workbooks("SUAPLANILHA.xlsm").SaveCopyAs Filename:=MeuDir & MeuNome
    MsgBox "Arquivo salvo com sucesso"
    
End Sub
 
Postado : 10/01/2014 12:37 pm
(@edilsonjc)
Posts: 39
Trusted Member
Topic starter
 

Guima.

Testado e funcionando.

Valeu Obrigado pela Força.
:D

 
Postado : 10/01/2014 3:44 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Caso seja necessário reabrir o tópico, o autor poderá enviar uma MP para um dos moderadores solicitando o desbloqueio.

 
Postado : 12/01/2014 6:14 pm