locked
Macro para criar um backup RRS feed

  • Pergunta

  • Olá,

    estou tentando criar uma macro que crie um backup do meu arquivo do excel e delete o antigo backup, ou  que salve em cima deste.

    Ela teria que "Salvar Como" o arquivo.

    Toda ajuda é bem vinda.

    Muito Obrigado.

    Lucas Aguiar
    domingo, 28 de janeiro de 2007 15:58

Todas as Respostas

  • Olá,
    Tenho duas sugestões para você.
    1. A primeira envolve o uso da macro abaixo que, espero, faça o que você precisa:
    Public Sub CriarBackup()
      On Error GoTo Erro
      'Altere a constante abaixo para que ela aponte
      'para o seu arquivo de backup
      Const STR_NOME_DO_BACKUP As String = "C:\Backups\MeuArquivoBak.xls"
      If (Dir(STR_NOME_DO_BACKUP) <> "") Then
        Kill STR_NOME_DO_BACKUP
      End If
      ThisWorkbook.SaveCopyAs Filename:=STR_NOME_DO_BACKUP
    Fim:
      Exit Sub
    Erro:
      MsgBox "Erro ao criar backup:" & vbCrLf & _
             Err.Description, vbOKOnly + vbCritical, "Atenção"
      Err.Clear
      Resume Fim
    End Sub


    Não se esqueça de alterar a constante STR_NOME_DO_BACKUP para o nome real do seu arquivo de Backup.

    2. A segunda sugestão - que eu, particularmente, acho melhor - seria executar o seguinte procedimento:
    2.1 Selecione o menú Arquivo->Salvar Como (ou Salvar se estiver salvando sua pasta de trabalho pela primeira vez).
    2.1 Na caixa de diálogo Salvar Como, clique no botão Ferramentas
    2.2 No menú que aparece, clique em Opções Gerais ...
    2.3 Marque a opção Sempre criar backup
    2.4 Clique em OK.
    2.5 Agora, sempre que salvar seu arquivo, uma cópia de backup será criada na mesma pasta onde está o arquivo original.
    2.6 Finalmente, valem as seguintes observações:
    2.6.1 Caso seu arquivo se chame Aguiar_13.xls, será criado um backup com o nome Backup de Aguiar_13.xlk (observe a extensão)
    2.6.2 Os procedimentos descritos acima valem para o Excel versão 2.003 mas, para versões diferentes, deve haver um procedimento similar.
    Atenciosamente,

    domingo, 28 de janeiro de 2007 20:22
  • Olá Otávio,

     

    muito obrigado pelas sugestões, ajudaram muito.

     

    Obrigado mesmo pela atenção.

     

    Lucas Aguiar

    segunda-feira, 29 de janeiro de 2007 16:03