Moin moin,

schaut euch das mal an:



Dim conn As ADODB.Connection

Dim ConnectionString As String

Dim rec As ADODB.Recordset

Dim Sql As String



ConnectionString = Verbindung zu einer SQL Datenbank



Set conn = New ADODB.Connection

conn.ConnectionString = ConnectionString

conn.Open

Sql = "Select * from ..... "



Set rec = New ADODB.Recordset

rec.Open Sql, conn



i = 2

Do While Not rec.EOF



Worksheets("Sheet1").Cells(i, 1) = rec!ersteSpalte

rec.MoveNext



i = i + 1

Loop





Die Sql Abfrage gibt mir quasi ca. 30 Zeilen zurueck und vielleicht 20 Spalten

So wie ich den Code habe kann ich die erste Spalte an Excel uebergeben.

Hab schon viel probiert irgendwas laufen zu lassen, aber mehr als eine Spalte bekomme ich aus dem Recordset nicht raus.

Wie kann ich die ganze Tabelle ausgeben?



Gruss

Carsten

geschrieben von carstenroll , 26.06.2006, 21:24 Uhr , 65 mal gelesen