Ir ao conteúdo
  • Cadastre-se
Neri Schuck

Excel RESOLVIDO Backup Base de Dados outro Arquivo

Recommended Posts

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

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

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 :)

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×