Este é um dos códigos mais úteis, que pode ajudá-lo a salvar um arquivo de backup da sua pasta atual de trabalho. Salvará um arquivo de backup no mesmo diretório onde o arquivo atual está e também adicionará a data atual com o nome do arquivo.
Sub FileBackUp()
ThisWorkbook.SaveCopyAs Filename:=ThisWorkbook.Path & _
"" & Format(Date, "dd-mm-yy") & " " & _
ThisWorkbook.name
End Sub
PUDIM PROJECT
Conheça também:
Veja outros códigos:
Série de Livros nut Project
Série DONUT PROJECT 2015
Clique aqui e nos contate via What's App para avaliarmos seus projetos
Nenhum comentário:
Postar um comentário