|
Hallo Mr. King
Danke für den Tipp.
Ehrlich gesagt versuche ich immernoch eine Möglichkeit zu finden, wie ich die Datei im geöffneten Zustand im Sharepoint kopieren kann und in ein anderes "Sicherungen" Verzeichnis mit angehängten Datum speichern kann.
Jetzt hat mir jemand gesagt per FileCopy würde es gehen.
Daher mein Code:
QPath = ActiveWorkbook.Path 'Aktueller Pfad der aktiven Quelldatei
QName = ActiveWorkbook.Name 'Erstellt sich aus aktiver Quelldatei
QSheet = ActiveSheet.Name 'Erstellt sich aus aktiven Quellsheet
' Arbeitsblatt speichern
Workbooks(QName).Activate
ActiveWorkbook.Save
Stop
'Kopie speichern
ZPath = QPath & "/Sicherungen/"
ZName = (Date) & " " & QName
ZSheet = QSheet
Dim Quelldatei As String
Dim Zieldatei As String
Quelldatei = QPath & "/" & QName
Zieldatei = ZPath & ZName
FileCopy Quelldatei, Zieldatei
Jetzt bleibe ich bei der FileCopy Zeile mit einem Laufzeitfehler 52: "Dateiname oder -nummer fals" hängen.
Wenn ich aber überhaupt nicht weiterkomme, werde ich deinen Ansatz versuchen.
Im Moment sehe ich das nichtkopieren als den Hauptfehler an.
Danke.
|