Sub ExcelTabellenErstellen()
Dim arrSI() As Variant
Dim CRSPVerbindung As New ADODB.Connection
Dim CRSPtabSI As New ADODB.Recordset
CRSPVerbindung.Provider = "Microsoft.Jet.OLEDB.4.0"
CRSPVerbindung.Open ("E:\CRSP\CRSP-MFDB-200112.MDB")
CRSPtabSI.Open "tabSI", CRSPVerbindung, adOpenDynamic, adLockOptimistic
arrSI = CRSPtabSI.GetRows(CRSPtabSI.RecordCount)
MsgBox ("SI enthält " & CRSPtabSI.RecordCount & " Einträge")
CRSPVerbindung.Close
Set CRSPVerbindung = Nothing
End Sub
Ich will aus der CRSP-Datenbank mit dem oben angegebenen Pfad aus einer in der Datenbank enthaltenen Tabelle mit dem Namen tabSI alle Werte in das array arrSI schreiben.
Wenn ich mir (als Test) dann die Anzahl der Einträge ansehen will, erhalte ich immer -1, d.h. offenbar hat das einlesen nicht geklappt. Kann mir jemand helfen - wo liegt der Fehler?