Onedrive Speicherort Fehler 1004
01.05.2020 01:02:04
Marian
Ich möchte beim Öffnen einer Datei ein automatisches Backup mit Timestamp erstellen. Leider hat das Makro ein Problem mit meinem Onedrive als Speicher.
Folgendes Makro verwende ich:
Private Sub Workbook_Open()
Dim FileName As String
Dim FileExtension As String
Dim FileDate As String
Dim FileBackupName As String
SavePath = "https://d.docs.live.net/ONEDRIVENUMMER/ZIELORDNER/" 'Variante 1
SavePath = "/Users/USERNAME/Dokumente/OneDrive/ZIELORDNER/" 'Variante 2
FileName = Left(ThisWorkbook.name, InStrRev(ThisWorkbook.name, ".") - 1)
FileExtension = Mid(ThisWorkbook.name, InStrRev(ThisWorkbook.name, ".") + 1)
FileDate = Format(Now, "YYYYmmdd_hhmmss")
FileBackupName = SavePath & FileName & "_" & FileDate & "." & FileExtension
ActiveWorkbook.SaveCopyAs FileBackupName
End Sub
Variante 2 funktioniert einwandfrei und erstellt eine Backup Datei in dem Ordner in meinem Mac.
Variante 1 leider nicht. Ich bin der Besitzer des Onedrive-Ordners und habe alle Recht auf Onedrive.
Bei Variante1 kommt der Fehler 1004, bei Debuggen verweist er auf Zeile: "ActiveWorkbook.SaveCopyAs FileBackupName"
Die Fehlermeldung ist 1004 - Excel kann nicht auf die Datei zugreifen, es muss also irgendein Problem mit dem Zugriff haben.
In anderen Makros ist es kein Problem Daten in bereits bestehende andere Dateien in den gleichem Onedrive zu kopieren oder neue Dateien zu erstellen. Dort wird allerdings direkt auf eine Datei verwiesen und nicht auf einen Ordner im Allgemeinen.
Variante 2 ist leider keine Lösung, da von verschiedenen Computern auf die Datei zugegriffen wird.
Kennt jemand ne Lösung, oder hat nen anderen Code mit dem das eventuell funktioniert?