Mit Excel VBA auf OneDrive speichern
08.11.2023 15:34:47
Thomas
Lokal hab ich die Datei immer so gespeichert
ActiveWorkbook.SaveCopyAs (ThisWorkbook.Path & "\Sicherung\DatenSicherung_" & Application.UserName & "_" & Format(Now, "YYYYMMDD_hhnnss") & "." & Ext)
Da ThisWorkbook.path aber auf dem OneDrive leider nicht klappt habe ich es nun so versucht
Dim Ext As String
Dim FSO As Object
Dim Pfad As String
Set FSO = CreateObject("Scripting.FileSystemObject")
Ext = FSO.Getextensionname(ThisWorkbook.Name)
Pfad = FSO.GetAbsolutePathName(ThisWorkbook.Path)
ActiveWorkbook.SaveCopyAs (Pfad & "\Sicherung\DatenSicherung_" & Application.UserName & "_" & Format(Now, "YYYYMMDD_hhnnss") & "." & Ext)
Aber auch das klappt leider nicht, ich bekomme die Fehlermeldung
Laufzeitfehler 1004 Anwendungs oder objektorientierter Fehler
Was mache ich falsch?
Danke
MFG
Thomas