Hallo.
Ich nutze Office 365 auf einem Windows 10 System und bin gerade dabei arbeitsbedingt Dateien von der Festplatte in Sharepoint zu verschieben. Dabei entstand ein Problem mit einer der Dateien. Das Makro ist auf Sharepointebene nicht mehr ausführbar. Ich nehme stark an, es liegt daran dass die Data Source nun ein Netzwerkpfad ist, statt wie zuvor, ein Pfad auf einer lokalen Festplatte. Dies wird bestätigt, wenn ich den betroffenen Sharepoint Ordner im Onedrive synchronisiere, damit wird eine lokale Kopie erzeugt, die dann auch wieder problemlos funktioniert. hier ein kleiner Teil des Codes der genutzt wird. in der letzten Zeile entsteht der Fehler.
Set oCN = CreateObject("ADODB.Connection")
Set oRS = CreateObject("ADODB.Recordset")
sPfad = ActiveWorkbook.FullName
sCS = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & sPfad & ";Extended Properties=""Excel 12.0 Macro;HDR=YES"";"
....
oCN.Open sCS
Die Fehlermeldung ist folgende:
"Laufzeitfehler '-2147467259 (80004005)': Aktualisieren nicht möglich ; Datenbank oder Objekt ist schreibgeschützt."
Da ich nun nicht der ursprüngliche Autor des vba Codes bin, habe ich Schwierigkeiten mich damit zurecht zu finden. Habt ihr eine Lösung für ähnliche Probleme gefunden? Vielen Dank im Voraus für eure Hilfe.
|