Backup Excel VBA

Backup Excel VBA aqueles que já perderam dados importantes quando precisaram formatar o sistema, falha nos discos ou mesmo remoção acidental de arquivos, sabem a importância de ter uma cópia de segurança.

Mas muitos não conhecem os programas ou recursos corretos para se criar um mecanismo de backup bem implementado.

Mas o que é um backup?

Backup é uma cópia de segurança dos seus dados (informações) de um dispositivo de armazenamento (celulares, tablets, computadores) ou sistema (aplicativos, softwares e jogos) para outro ambiente para que esses mesmos dados possam ser restaurados em caso de perda dos dados originais ou que ocorra um acidente.

Bom, agora que você já sabe que backup nada mais é que uma cópia de segurança, pode imaginar que precisamos copiar essas informações para algum lugar seguro.

Super Planilhas do Excel. Cadastre o seu email e receba gratuitamente planilhas pronta.

Vamos aprender como criar uma rotina de backup em Excel VBA.

Segue sintaxe utilizada.

Função para criar o backup

Function BackupXlsb()
Dim CopiaSegura As Object
Dim Caminho As String
Dim MyXlsbPath As String
MyXlsbPath = ThisWorkbook.Path & “\” & ThisWorkbook.Name
Caminho = ThisWorkbook.Path & “\BACKUP\” ‘Nome da pasta e nome de inicio para o banco de backup
Set CopiaSegura = CreateObject(“Scripting.FileSystemObject”)
CopiaSegura.CopyFile MyXlsbPath, Caminho & Format(Now, “_ddmmyyyy”) & “.XLSm”
End Function

Função para criar pasta

Sub CriaPasta_Backup()
On Error Resume Next
Dim fso As Object
Set fso = CreateObject(“Scripting.FileSystemObject”)
If fso.FolderExists(ThisWorkbook.Path & “\BACKUP”) Then ‘ verifica se ja existe a pasta
Else: MkDir ThisWorkbook.Path & “\BACKUP” ‘ se nao existir cria
End If
End Sub

Função para executar a rotina de backup

Private Sub CommandButton48_Click()
CriaPasta_Backup
BackupXlsb
MsgBox (“Backup Realizado com Sucesso!”)
End Sub

Backup Excel VBA vídeo passo a passo.

Download

Planilhas prontas gratis compatíveis com office 2007 em diante. Caso encontre alguma dificuldade para usar ou baixar nossas planilhas favor usar os comentários abaixo que em breve retornaremos.

Olá, amigos! Inscreva-se em nosso canal do Youtube para não perder os próximos vídeos.