Página 1 de 1

backup base dados separado

Enviado: Qua Jan 09, 2019 8:04 pm
por NERI INACIO
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?

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

Re: backup base dados separado

Enviado: Sex Fev 22, 2019 12:13 pm
por Reinaldo
Experimente utilizar fileCopy (http://www.rondebruin.nl)

Código: Selecionar todos

Sub Copy_One_File()
    FileCopy "C:\Users\Ron\SourceFolder\Test.xls", "C:\Users\Ron\DestFolder\Test.xls"
End Sub