Notifications
Clear all

Macro para Salvar Como .xlsm

4 Posts
3 Usuários
0 Reactions
848 Visualizações
(@fpheldman)
Posts: 26
Eminent Member
Topic starter
 

Boa tarde!
Encontrei algumas macros no fórum porém dentre as que eu encontrei não consegui achar o resultado que eu queria.
Gostaria de saber se é possível elaborar uma macro que salve todo workbook na extensão habilitada para macros (.xlsm) em um determinado local (Ex: C:Planilhas)
e com um nome e data atual, por exemplo: "passagem de serviço 10-08-2015.xlsm".
Obrigado desde já!

 
Postado : 10/08/2015 2:15 pm
(@miguel-70)
Posts: 207
Estimable Member
 

Sub Salva_Cópia_Planilha_Com_Macros() 'Excel 2010
On Error Resume Next
Set objWS = CreateObject("WScript.Shell")
ActiveWorkbook.SaveCopyAs Filename:= _
objWS.SpecialFolders("mydocuments") & "Arquivo " & Format(Date, " dd-mm-yyyy") & ".xlsm" _
'linha vazia
End Sub

 
Postado : 10/08/2015 7:09 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Leia:
http://www.google.com.br/cse?cx=partner ... gsc.page=1

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 11/08/2015 6:04 am
(@fpheldman)
Posts: 26
Eminent Member
Topic starter
 

Certinho Miguel! Ajudou bastante.
Obrigado! Boa noite

 
Postado : 11/08/2015 5:21 pm