Clever-Excel-Forum

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

Bitte, verwende Code Tags.

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

Hallo, :19:

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

Connection...