Excel Backup Base de Dados outro Arquivo

Neri Schuck · 12 de janeiro de 2019

Como eu faço o backup se a base de dados é separado dos formulários? Tenho o meu arquivo onde tenho todos os formulários e outra base com os dados. Se colocar o meu backup ele fará cópia dos formulários, mas eu quero fazer dos dados... vou colocar abaixo o código do meu backup atual, baseado no link... Se alguém puder me ajudar, agradeço....

O código abaixo eu encontrei parte na internet e adaptei parte para a minha necessidade. Porém ele faz cópia somente do arquivo ativo. O que eu preciso é fazer cópia de outra base. Assim....

Tenho dois arquivos:
- um com os formulários
- um com os dados

>> a arquivo de dados eu não abro manualmente, somente pelos formulários. Então, com os formulários abertos, eu quero uma opção que acesse o arquivo de dados e faça uma cópia de todo o arquivo para um outro local (para a paste Backup - por exemplo).

Alguém me ajuda a adaptar a minha necessidade?

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

LaerteB · 12 de janeiro de 2019

Boa tarde, Neri Schuck

Já existe no outro Fórum a mesma dúvida sua e que eu respondi, verifique :)

Obs: quando lançar a mesma dúvida (Tópico) em outros Fóruns, por gentileza informar com os Links deles para que
os que tenham a mesma dúvida possam acompanhar (e aqueles que querem ajudar podem verificar se já foi
solucionado, para não amarrá-los depois que foi resolvido), tu abriu em outro Fórum...

LaerteB :)