Excel VBA: SQL per ADODB auf Excel-Mappe im Netz: -2147467259 80004005

Hallo,

während u.a. SQL-Statement in der lokal gespeicherten Arbeitsmappe läuft, verursacht es bei Speicherung der Arbeitsmappe im Netz OneDrive beim Open-Statement den Fehler -2147467259 80004005 "Aktualisieren nicht möglich. Datenbank oder Objekt ist schreibgeschützt." . Ein einfacheres SQL-Statement führt zum gleichen Problem..

Der nachfoldende VBA-Code leert einen bestehenden Arbeitsblattbereich und speichert in diesem Arbeitsblatt neue Zellinhalte.

Die Arbeitsmappe mit dem VBA-Code ist identisch lokale Speicherung bzw. Speicherung im Netz. Kann man das Open parametrisieren, damit der Zugriff auch im Netz klappt?


Sub run_sql

'variable declaration

Dim cn As Object 'Connection

Dim rs As Object 'RecordSet

Dim sql As String

Dim start_row As Integer: start_row = 1

Dim start_col As Integer: start_col = 1

Dim iCols As Integer

'Connect to the Data Source

Set cn = CreateObject"ADODB.Connection"

With cn

.Provider = "Microsoft.ACE.OLEDB.12.0"

.ConnectionString = "Data Source=" & ThisWorkbook.Path & "\" & ThisWorkbook.Name & ";" & "Extended Properties=""Excel 12.0 Xml;HDR=YES"";"

[COLOR=rgba215, 57, 0, 1] .Open[/COLOR]

End With

'write SQL

sql = "Select M.KName, V.Messort, V.Messstelle, M.Typ, M.OrtBezMS, V.Zähler, M.Netzbetreiber, V.Lieferant AS LiefBisher, V.DatBis, V1.Lieferant AS LiefNeu" & _

" from [VertrKonditionen$] AS V, [Messstelle$] AS M, [VertrKonditionen$] AS V1" & _

" where V.DatBis between #12/01/2020# and #31/12/2021#" & _

" and V.Messort = M.Messort and V.Messstelle = M.Messstelle" & _

" and V1.Messort = M.Messort and V1.Messstelle = M.Messstelle and V1.Status = ""Plan"""

'run SQL

Set rs = cn.Executesql

'delete data from previous runs in worksheet "Results"

Worksheets"Results".Cellsstart_row, start_col.CurrentRegion.Clear

'insert header row worksheet "Results" only if HDR=YES

For iCols = 0 To rs.Fields.Count - 1

Worksheets"Results".Cellsstart_row, start_col + iCols.Value = rs.FieldsiCols.Name

Next

'paste result of sql to worksheet "Results"

Worksheets"Results".Cellsstart_row + 1, start_col.CopyFromRecordset rs

'clean up and free memory

rs.Close

Set rs = Nothing

cn.Close

Set cn = Nothing

End Sub