Zugriff auf Excel-Dateien mittels Datenbanktreiber
Ulvi
Ich möchte mittels ADO-Datenbanktreiber auf eine Excel-Datei/Excel-Tabelle zugreifen.
Die Datenbank (Excel-Datei), sowie das Recordset (Tabelle) möchte ich per Code öffnen.
Mit der folgenden Sub, versuche ich mein Ziel zu erreichen. Leider steigt Excel an der stelle "AdoConn.Open "Provider=......... "
mit der Fehlermeldung "Installierbares ISAM nicht gefunden." aus.
Wenn Sie eine Idee haben melden Sie sich bitte.
' Datenbank-Connection + Recordset Objekt
Public AdoConn As ADODB.Connection
Public AdoRs As ADODB.Recordset
Sub AdoDatenbankzugriff_Excel()
Dim sExcelFile As String
Dim sTabelle As String
' vollständiger Pfad zur Excel-Datei
sExcelFile = "I:\Exceltab\Adressen.xls"
' Tabellen-Name
sTabelle = "Tabelle1"
On Error GoTo ErrorH
' Datenbank öffnen (Excel-Datei)
Set AdoConn = New ADODB.Connection
AdoConn.CursorLocation = adUseClient
' Excel-Versionen
' Excel 97: "Excel 8.0;"
' Excel 2000: "Excel 9.0;"
' Excel XP: "Excel 10.0;"
' Excel 2003: "Excel 11.0;"
AdoConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Extended Properties=Excel 9.0;" & _
"Data Source=" & sExcelFile & ";"
' Recordset erstellen und öffnen
Set AdoRs = New ADODB.Recordset
AdoRs.Open "SELECT * FROM [" & sTabelle & "$]", Conn, _
adOpenKeyset, adLockOptimistic
With Rs
End With
ErrorH:
If Err <> 0 Then
MsgBox Err.Description
End If
End Sub
Anzeige