Office: Unzulässige Verwendung von NEW

Hallo!

Ich möchte Daten aus einer Access XP-DB (verteilt in mehrere Tabellen) kopieren in ein Tabellenblatt von Excel XP. Der Datenimport soll in Excel gestartet mit einer Schaltfläche werden

Da ich von Access-Programmierung meine, was zu verstehen, von Excel-Progrmmierung hingegen nichts, wollte ich als Einstieg ein Beispiel von Kofler (Excel-VBA programmieren, 6. Aufl. S. 612) verwenden, um dieses zu erweitern. Ich bekomme aber die Fehlermeldung "Unzulässige Verwendung des Schlüsselwortes NEW". Das verstehe ich nicht.

Ich habe unter EXTRAS/Verweise aktiviert:
- Excel 10.0 Objekt-Library
- Office 10.0 Objekt-Library
- DAO 3.6 Objekt-Library
- AktiveX Data Objekts 2.1 Library

Das Beispiel von Kofler:

Dim conn As New Connection
Dim rec As New Recordset
Dim ws As Worksheet
Dim sql$, i&
Set ws = ThisWorkbook.Worksheets("Test_Import")
conn.Open "Provider=microsoft.jet.oledb.4.0;" + _
"Data Source=" + ThisWorkbook.Path + "\nwind.mdb;"
sql = "SELECT LastName, FirstName " & _
"FROM employees ORDER BY LastName, FirstName"
rec.Open sql, conn
While Not rec.EOF
i = i + 1
ws.[a1].Cells(i) = rec!LastName + ", " + rec!FirstName
rec.MoveNext
Wend
rec.Close: conn.Close


Kann mir jemand weiter helfen?

Dankeschön!

:)

 

Hallo Notger,

IMHO muss es heißen:

Code:

Gruß Ingolf

 

Hallo Ingolf!

Tausend Dank!!!!!!!! Das ist die Lösung!

(Warum das nicht so bei Kofler steht, verstehe ich nicht.)

Viele Grüße
Notger

 

Kofler setzt offenbar voraus, das die Verweise so gesetzt sind, das ADO eine höhere Priorität als DAO hat.

Davon abgesehen halte ich es jedoch für einen vorteil, es immer explizit anzugeben.

Volker