Office: (Office 365) Tabellenblatt in neue Mappe kopieren

Ja, ich habs mal lokal getestet, da funktioniert es 1a - auch mehrfach.

Mit meiner ursprünglichen Abfrage wollte ich abfragen, ob die Exportdatei besteht - bei nein, "SaveAs....." und be ja, einfach "Save......" - habs aber mangels Fähigkeiten nicht hinbekommen

 

Hi,

.Save speichert die Datei einfach unter dem jetzigen Pfad und Namen. Da du die Datei mittels Worksheet.Copy neu erzeugt hast, ist beides noch undefiniert und .Save würde die Datei in deinem Default-Verzeichnis (üblicherweise "C:\Users\DeinName\Documents" bzw. "C:\Benutzer\DeinName\Dokumente") als "Mappe2.xlsx" oder "Mapppe3.xlsx" oder ... speichern.. Das hat nichts damit zu tun, ob die Datei in vorgesehenen Verzeichnis bereits existiert oder nicht.

Wie gesagt habe ich noch keinen einfachen Weg gefunden den korrekten lokalen Speicherplatz über ThisWorkbook.Path zu bestimmen. Prinzipiell ist es kein Problem, zu erfahren, wo OneDrive liegt. Den obersten Teil des Pfads bekommt man mit Environ("OneDrive") geliefert. Bei mir wäre das "C:\Users\xxx\OneDrive - meine Firma GmbH & Co. KG". Bei einer Datei auf dem Desktop liefert ThisWorkbook.Path den String "https://firma-my.sharepoint.com/personal/vorname_nachname_firma_com/Documents/Desktop" während eine Datei in Dokumente "https://firma-my.sharepoint.com/personal/vorname_nachname_firma_com/Documents/Dokumente" ergibt. Der korrekte lokale Pfad wäre also "C:\Users\xxx\OneDrive - meine Firma GmbH & Co. KG\Desktop" bzw. "C:\Users\xxx\OneDrive - meine Firma GmbH & Co. KG\Dokumente". Wenn man eine Datei in diesem lokalen Pfad speichert wird sie automatisch in OneDrive synchronisiert und alles ist gut.

Mit obiger Erkenntnis kann ich für unsere Firma den richtigen Ort für eine lokale Speicherung für jeden unserer Mitarbeiter raus finden:

Code:

Dim Pfad As String
Const x As String = "/Documents/"  'Ende von https://OneDrive-Pfad
Pfad = ThisWorkbook.Path
Pfad = Replace(Replace(Pfad, Left(Pfad, InStr(Pfad, x) + Len(x) - 2), Environ("OneDrive")), "/", "\")

Aber wehe einer unserer Admins kommt auf die Idee hier irgendwas ändern zu wollen. Dann passt das hinten und vorne nicht mehr. Und bei dir wird es sowieso nicht passen.

 

Ich habe in Deinen Code ganz am Anfang folgendes eingefügt:
Dim fso As Object
Dim localpath As String
Set fso = CreateObject("Scripting.FileSystemObject")
localPath = fso.GetParentFolderName(ThisWorkbook.FullName)
Debug.Print localPath

Und dann Schritt für Schritt per MsgBox die Werte anzeigen lassen.
Sobald die Datei einmal besteht, führt er den Code ab wbk.SaveAs.....nicht mehr richtig aus und bringt diesen Laufzeitfehler.

Kann man das Script so schreiben, daß anfangs geschaut wird, ob eine Datei wie xyz_Auskundung.xlsx besteht und diese erst löscht, bevor der Export ausgeführt wird?

 

Hi,

das wird dich nicht weiter führen. Sobald ThisWorkbook.FullPath einen https:-String liefert, wird SaveAs scheitern. Ich habe dir beide mir bekannten Möglichkeiten aufgezeigt, nämlich entweder in einem Temp-Pfad speichern (dann haben halt die anderen keinen Zugriff), oder irgendwie den lokalen Pfad zu OneDrive ausfindig machen. für beide Dinge habe ich dir auch einen Beispiel-Code gezeigt.

 

In diesem Beitrag in einem anderen Forum sind ein paar interessante Links zum Thema Sharepoint und VBA:
VBA - Per VBA neuer Ordner in Sharepoint erstellen - MS-Office-Forum