ADODB.CONNECTION

[R G K]

Hallo zusammen,

Unter dem neusten Excel 365, Office 16

Funktioniert  die  Abfrage  über  oAdoConnection nicht mehr, im letzten
Jahr ging das noch, die abzufragende Datei ist eine xls

Set oAdoConnection = CreateObject("ADODB.CONNECTION")
sAdoConnectString = "DRIVER={Microsoft Excel Driver (*.xls)};ReadOnly=1;DBQ=" & sPfad
oAdoConnection.Open sAdoConnectString  ' Hier kommt der Fehler!!!!!
Set oAdoRecordset = CreateObject("ADODB.RECORDSET")

im  oAdoConnection steht

Set oAdoConnection = CreateObject("ADODB.CONNECTION")
sAdoConnectString = "Provider=Microsoft.ACE.OLEDB.12.0; Extended Properties='Excel 12.0 Xml;HDR=YES';Data Source=" & sPfad
oAdoConnection.Open sAdoConnectString
Set oAdoRecordset = CreateObject("ADODB.RECORDSET")


Habt Ihr eine Lösung?

Grüße Rolf

[snb]

Bitte, verwende Code Tags.

[R G K]

hab jetzt selbst die Lösung gefunden

Aus https://www.online-excel.de/excel/singsel_vba.php?f=135

AB Excel 2007 schreiben Sie überall im Code (auch in den nachfolgenden Artikeln) anstatt:

sAdoConnectString = "DRIVER={Microsoft Excel Driver (*.xls)};ReadOnly=1;DBQ=" & sPfad
den Ausdruck:
sAdoConnectString = "Provider=Microsoft.ACE.OLEDB.12.0; Extended Properties='Excel 12.0 Xml;HDR=YES';Data Source=" & sPfad



Grüße Rolf

[00202]

Hallo, :19:

wenn du "Connectionstrings" suchst, ist das immer eine gute Anlaufstelle: :21:

Connection...