Extreme Veteran
Beiträge: 582
 
| Hallo,
eklinkow - 23.01.12 00:18
' Variante 1 - seeeehr Langsam
i = 1
Do While rst.EOF = False
For lngColumn = 0 To rst.Fields.Count - 1
xlWS.Cells(i, lngColumn + 1).Value = rst.Fields(lngColumn).Value
Next lngColumn
rst.MoveNext
i = i + 1
Debug.Print i
Loop
Jo, ist zu erwarten, bei zeilen-/spaltenweiser Verarbeitung.
' Variante 2 noch langsamer
' i = 1
' For i = 1 To iRows
' xlWS.Cells(i, "A").CopyFromRecordset rst
' Debug.Print i
' Next
Naja, CopyFromRecordset kopiert das *komplette* Recordset, da brauchts keine Schleife mehr. Aendere das mal auf:
xlWS.Cells(1, "A").CopyFromRecordset rst
und schmeiss den Rest der Schleife raus.
-----
Gruss - Peter |
