Supportnet / Forum / Tabellenkalkulation
Daten vom Access ins Excel auslesen?!?
Frage
Versuche gerade mit diesem Code...
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
DBName = "KLBE3.mdb"
cn.Provider = "Microsoft.Jet.OLEDB.4.0;"
cn.CursorLocation = adUseClient
link = "C:\Documents and Settings\l46"
cn.Open link + DBName
Set rs = New ADODB.Recordset
[b]rs.Open "SELECT * FROM TabArtikelLitzen", cn, adOpenStatic, adLockOptimistic[/b]
i = 1
Do Until rs.EOF
ActiveSheet.Cells(i, 1) = rs!FFarbID
rs.MoveNext
i = i + 1
Loop
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
...eine ganze Spalte aus einer Access-Datei in eine Excel-Datei zu kopieren (per VB). Wenn ich das Programm laufen lasse, erscheint auf der fett-gedruckten Programmzeile dieser Fehler...
[b]
Laufzeitfehler '-2147217911 (80040e09)':
Datensätze können nicht gefunden werden. Keine Leseberechtigung auf 'TabArtikelLitzen'.[/b]
...Beschreibung der Variablen:
KLBE3.mdb = Name der Access-Datei
C:\Documents and Settings\l46 = Pfad, in dem sich die Access-Datei befindet.
FFarbID = Spaltenname
TabArtikelLitzen = Tabellenname
Ich hoffe, dass ich mich einigermassen verständlich ausgedrückt habe. Wenn ja:
Erkennt jemand den Fehler im Code, oder weis eine andere Lösung? Bitte melden Sie sich direkt per E-Mail.
Freunliche Grüsse
Kevin Kuske
Antwort 1 von Coolpix
hallo Kevin,
hast du mal versucht den SQL-String über 'ne String-Variable zu schleusen
etwa so:
soweit ich es kenne muß ein SQL-String mit einem ';' enden ...
ich habe aber auch mit DAO-Recordsets schon ähnliche Probleme gehabt und mit der Variablen hat's dann gefunzt...
Das Setzen des Cursortypes ist bei der Kombination Excel und Access nicht notwendig.
Kann u.U. sogar stören..
Greetings ;-)
hast du mal versucht den SQL-String über 'ne String-Variable zu schleusen
etwa so:
strSQL = "SELECT * FROM [TabArtikelLitzen]; "
rst.Open strSQL, cnn, adOpenDynamic, adLockOptimistic
soweit ich es kenne muß ein SQL-String mit einem ';' enden ...
ich habe aber auch mit DAO-Recordsets schon ähnliche Probleme gehabt und mit der Variablen hat's dann gefunzt...
Das Setzen des Cursortypes ist bei der Kombination Excel und Access nicht notwendig.
Kann u.U. sogar stören..
Greetings ;-)
Antwort 2 von FrankieH
Also - mE fehlt zumindest noch der Backslash.
Außer Du baust auch noch den MDB-Dateinamen zusammen zu:
l46KLBE3.mdb
DBName = "KLBE3.mdb"
link = "C:\Documents and Settings\l46"
--------------v hier habe ich & "\" & einegf.
cn.Open link + DBName
Die Fehlermeldung irritiert mich allerdings, weil es so aussieht, als ob Du User-Rechte vergeben hast. Dann müsstest Du Dich noch anmelden um die Leseberechtigung zu erwerben.
Außer Du baust auch noch den MDB-Dateinamen zusammen zu:
l46KLBE3.mdb
DBName = "KLBE3.mdb"
link = "C:\Documents and Settings\l46"
--------------v hier habe ich & "\" & einegf.
cn.Open link + DBName
Die Fehlermeldung irritiert mich allerdings, weil es so aussieht, als ob Du User-Rechte vergeben hast. Dann müsstest Du Dich noch anmelden um die Leseberechtigung zu erwerben.