Доброго всем дня,
Задача. Есть фиал CD_DB.xlsm. Сразу после открытия WorkBook должен создать своего клона и сохранить на OneDrive далее работа должна быть продолжена в initial файле (который только что был скоприрован). Пример кода ниже. Данный метод .SaveAsCopy работает если фаил находтся локально на машине. При попытке сохранить в облако выдает ошибку Run-Time error 1004. Application defined or object defined error.
Спасибо всем кто откликнется на помощь.
Задача. Есть фиал CD_DB.xlsm. Сразу после открытия WorkBook должен создать своего клона и сохранить на OneDrive далее работа должна быть продолжена в initial файле (который только что был скоприрован). Пример кода ниже. Данный метод .SaveAsCopy работает если фаил находтся локально на машине. При попытке сохранить в облако выдает ошибку Run-Time error 1004. Application defined or object defined error.
Спасибо всем кто откликнется на помощь.
Код |
---|
'CodeLocation >> ThisWorkbook Private Sub Workbook_Save() Dim ThisBook As Workbook Dim ws As Worksheet Dim copyName As String Set ThisBook = ThisWorkbook Set ws = ThisBook.Worksheets("cover") 'file path connected to named range. 'filepath5 = "https://xxx.sharepoint.com/personal/user_xxx/Documents/CA%20CZ%20Handover/Macro%20preparation/CA%20Tool/Archiving/CA_DB%20Backup%20210521133611.xlsm" copyName = ws.Range("filepath5") With Application .ScreenUpdating = False .DisplayAlerts = False If ThisBook.Name <> "CA_DB.xlsm" Then Exit Sub Else ThisWorkbook.SaveCopyAs copyName ActiveWorkbook.Save End If .DisplayAlerts = True .ScreenUpdating = True End With MsgBox "Backup for [CA_DB yyyy-mm-dd hhmmss.xlsm] has been created." End Sub |