Datentransver SQLServer->Excel quälend langsam
PeterDoering
Gesendet: 23.01.12 23:29
Betreff: RE: Datentransver SQLServer->Excel quälend langsam



Extreme Veteran

Beiträge: 410
100100100100
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
Top of the page Bottom of the page