|
ich speicherte bis anhin Dateien über VBA, sodass es anhand von Informationen aus dem Exeltabellenblatt am richtigen ort abspeicherte. Sprich der Pfad und Dateiname in einer Zelle generiert wurden. Nun das funktioniert soweit auch für Sharepoint (Ort und Dateiname sind als Pfad in der Zelle A18)
Sub Speichern
ActiveWorkbook.Save
ActiveWorkbook.SaveAs Filename:= _
Range("A18").Value _
, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=True
End sub
A18 = https://Firma.sharepoint.com/sites/7_Tech/Shared%20Documents/TecCenter/Mikro/04_Testresultate/AATCC_100/2024/24_XXXX.xlsm
sprich das Dokument wird nun im Sharepoint am richtigen Ort mit dem Dateinamen 24_XXXX.xlsm abgespeichert.
Nun möchte ich bevor es dies speichert, eine Abfrage machen, ob der Pfad welcher in A18 steht, schon existiert. Falls ja, dann Abbruch mit MsgBox "Datei ist schon vorhanden" und wenn die Datei nicht existiert, die Sub Speichern ausführt.
Das Problem ist, unter Sharepoint überschreibt es nun einfach die existierende Datei, was ich ja nicht will. Daher müsste der Code zuerst eine die oben erwähnte Abfrage machen. Ich suche seit Wochen eine Lösung aber ich bin echt nicht der Fachmann und Dr. Google konnte mir auch nicht helfen.
|