Макрос VBA, чтобы сохранить файл Excel к другому местоположению резервирных копий

Question

Макрос VBA, чтобы сохранить файл Excel к другому местоположению резервирных копий

Я пытаюсь создать Макрос, который или работает близко или на сохранении для резервного копирования файла к другому местоположению.
В данный момент Макрос, который я использовал:

Private Sub Workbook_BeforeClose(Cancel As Boolean)  
'Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)  
    'Saves the current file to a backup folder and the default folder  
    'Note that any backup is overwritten  
    Application.DisplayAlerts = False  
    ActiveWorkbook.SaveCopyAs Filename:="T:\TEC_SERV\Backup file folder - DO NOT DELETE\" & _ 
    ActiveWorkbook.Name  
    ActiveWorkbook.Save  
    Application.DisplayAlerts = True  
End Sub

Это создает резервное копирование файла хорошо в первый раз, однако если это попробовали еще раз, я добираюсь:

Ошибка времени выполнения '1004';
Microsoft Office Excel не может получить доступ к файлу 'T:\TEC_SERV\Backup file folder - DO NOT DELETE\Test Macro Sheet.xlsm. Существует несколько возможных причин:
Имя файла или путь не существуют
Файл используется другой программой
Рабочая книга, которую Вы пытаетесь сохранить, имеет то же имя как...

Я знаю, что путь корректен, я также знаю, что файл не открыт больше нигде. Рабочая книга имеет то же имя как то, которое я пытаюсь сохранить, но это должно просто перезаписать.

Любая справка очень ценилась бы.

5

vba excel-vba excel-2007 excel

задан Community 9 July 2018 в 19:34

1 ответ

Другие вопросы по тегам:

vba excel-vba excel-2007 excel

Похожие вопросы:

score 5 · Accepted Answer

Я изменил код на этот:

Sub BUandSave2()
'Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'Saves the current file to a backup folder and the default folder
'Note that any backup is overwritten
Dim MyDate
MyDate = Date    ' MyDate contains the current system date.
Dim MyTime
MyTime = Time    ' Return current system time.
Dim TestStr As String
TestStr = Format(MyTime, "hh.mm.ss")
Dim Test1Str As String
Test1Str = Format(MyDate, "DD-MM-YYYY")

Application.DisplayAlerts = False
'
Application.Run ("SaveFile")
'
ActiveWorkbook.SaveCopyAs Filename:="T:\TEC_SERV\Backup Test\" & Test1Str & " " & TestStr & " " & ActiveWorkbook.Name
ActiveWorkbook.Save
Application.DisplayAlerts = True
End Sub

теперь он работает нормально. В университетской сети должно быть что-то, что препятствует запуску оригинала. Дома у меня с ним проблем не было.