Saberexcel - site das macros
Esta macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), faz um Backup na pasta BK, com nome no formato yyyy_mmdd ( ano,mês,dia), isto é, faz uma cópia de segurança (Backup na pasta B, nos formatos definidos pela macro Ano_Mes_dia. Cuidado para usar os separadores para formação do nome da planilha porque senão resulta em simbolos de funcao do aplicativo como ( /, $,&, etc...)
Sub backup_b_nome_data_atual()
Dim vNome As String, strCaminho As String
vNome = "C:\Meu_Backup\B" & Format(Now(), "dd_mmm_yyyyy_")
strCaminho = Dir(vNome, vbDirectory)
If (strCaminho= "") Then MkDir (vNome)
ActiveWorkbook.SaveCopyAs vNome & "\BK_" & ActiveWorkbook.Name
ActiveWorkbook.Save 'salva o arquivo ativo
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA (Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos SaberExcel
