Recordset in Excel
26.06.2015 15:56:22
Ohlrich
ich habe folgendes Problem.
Ich bekomme einen Automatisierungsfehler 80040e14 bei folgender Zeile und verstehe nicht weshalb.
Dim cn As ADODB.Connection
Dim rst As New ADODB.Recordset
Dim cmd As New ADODB.Command
Set cn = New ADODB.Connection
With cn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=E:\Dokumente\Excel\Artikelliste\Artikelliste_2015.xls;" & _
_
"Extended Properties=Excel 8.0;"
.Open
End With
Set rst = New ADODB.Recordset
Dim strSQL As String
strSQL = "SELECT * FROM [Artikelliste$]"
'rst.Open "Artikelliste", cn, adOpenDynamic
With rst
.Source = strSQL
.ActiveConnection = cn
.Open 'hier tritt der Fehler auf
End With
Mein Ziel ist es eine Verbindung zu einer anderen Excel-Datei aufzubauen. Danach ein Recordset aufgrund von durch SQL gefilterten Daten aus dem externen Tabellenblatt zu erstellen und danach stelle ich ein paar schöne Dinge mit dem Recordset an. Meine Google-Suche hat bisher ergeben, dass der Fehler wohl aufgrund des SQL-String käme. Habe diverse Möglichkeiten ausprobiert, inklusive anderem Vorgehen bei dem erstellen des Recordsets. Bisher alles ohne Erfolg.
Bin für jeden Hinweis dankbar.