Hallo Leute,
Ich habe wieder einmal ein Problem in dem ich zwar viel in Google gefunden habe, das aber nicht wirklich mein Problem löst.
Ich habe eine .xlsm Datei mit einem Makro.
Diese liegt in einem Sharepoint, der mir von einem Kollegen freigegeben wurde. Ich habe zugriff auf diesen Sharepoint und habe dort einen Ordner erstellt mit dem Namen "Sicherungen".
Zum Test habe ich dort auch gleich ein paar Dateien abgelegt, die ich auch problemlos öffnen kann. An den Zugriffsrechten sollte es also nicht hängen.
Da diese Datei auch an andere Personen mit anderen Sharepoints verteilt wird, habe ich den Speicherort Dynamisch mit einer Variablen abgefragt.
Um es noch einmal zu verdeutlichen: ich habe einen Ordner: "https://Firma.sharepoint.com/sites/ISPMIFT/Freigegebene Dokumente/PF_50_Hz/ADAM + TIM" in dem ein Ordner "Sicherungen" enthalten ist.
Also "https://Firma.sharepoint.com/sites/ISPMIFT/Freigegebene Dokumente/PF_50_Hz/ADAM + TIM/Sicherungen"
Nun möchte ich per Makro vor der Aktalisierung eine Sicherung der "alten" aktuellen Datei machen.
ActiveWorkbook.SaveCopyAs Filename:=ZPath & "/Sicherungen/" & (Date) & " " & ZName
ZPath = "https://Firma.sharepoint.com/sites/ISPMIFT/Freigegebene Dokumente/PF_50_Hz/ADAM + TIM"
ZName = "ADAM Langläufer.xlsm"
Das Ergebnis soll sein, das im Ordner die Datei gespeichert wird:
Filename = "https://Firma.sharepoint.com/sites/ISPMIFT/Freigegebene Dokumente/PF_50_Hz/ADAM + TIM/Sicherungen/19.05.2023 ADAM Langläufer.xslm"
ZPath und ZName habe ich mittels:
ZPath = ActiveWorkbook.Path
ZName = ActiveWorkbook.Name 'Erstellt sich aus aktiver Quelldatei
erstellt.
Beim Durchlauf des Makros erhalte ich die Fehlermeldung:
Laufzeitfehler 1004: wir konnten "https://Firma.sharepoint.com/sites/ISPMIFT/Freigegebene Dokumente/PF_50_Hz/ADAM + TIM/Sicherungen/19.05.2023 ADAM Langläufer.xslm" nicht finden. Wurde das Objekt vielleicht verschoben, umbenannt oder gelöscht?
Was etwas verwunderlich ist, da ich die Datei ja nicht öffnen will sondern speichern.
Aber das kann ja eine Funktion beim speichern sein, das Excel nach dem speichern versucht die Datei zu öffnen um zu verifizieren, das die Speicherung erfolgreich war.
Übrigens speichere ich am ende mit
ActiveWorkbook.Save und das funktioniert.
Danke
|