backup base dados separado
Enviado: Qua Jan 09, 2019 8:04 pm
Pessoal
tenho o Backup abaixo porém ele faz a cópia do arquivo que está ativo. Como fazer backup da base de dados?
Alguém pode me ajudar?
tenho o Backup abaixo porém ele faz a cópia do arquivo que está ativo. Como fazer backup da base de dados?
Alguém pode me ajudar?
Código: Selecionar todos
Public Sub Backup()
Dim Copia As String
Dim caminho As String
Dim NomeArquivo As String
Dim Resp As String
Dim y, X As String
Dim a As Integer
y = ActiveWorkbook.Name
a = Len(y)
X = Left(y, (Len(y) - 5))
MsgBox "Este módulo serve para fazer cópia dos dados do Programa." & vbCrLf & _
"É recomendável fazer a cópia diariamente!" & vbCrLf & _
" " & vbCrLf & _
"Este comando irá finalizar o Programa. Após a execução poderá ser reinicializado normalmente.", vbInformation, "Backup"
NomeArquivo = ThisWorkbook.Name
caminho = Application.ThisWorkbook.Path & "\Backup\"
Copia = caminho & X & " - " & Plan12.Cells(202, 3) & ".xlsm"
Resp = MsgBox("Deseja efetuar cópia de segurança?" & vbCrLf & _
"A cópia levará alguns segundos para terminar!", vbYesNo + vbDefaultButton2, "Controle Caixa.xlsm")
If Resp = vbNo Then
MsgBox "Backup cancelado pelo usuário!", vbInformation, "Controle Caixa"
Exit Sub
End If
Application.DisplayAlerts = False
ThisWorkbook.Save
ThisWorkbook.SaveAs Copia
Application.Quit
End Sub