Excel VBA Auslesen eines kompletten Recordsets (CopyFromRecordset)
Mittwoch, 11. November 2009was es nicht alles für schöne Funktionen in Excel gibt und ich kannte sie nicht :(
Ich habe immer mühsam meine Recordset mit einer Schleife ausgelesen was natürlich immer ewig gedauert hat.
Kommt natürlich auf die Menge der Datensätze an.
Aber es gib in Excel die Funktion CopyFromRecordset die ein Recordset mit einmal in Excel schreibt.
1 2 3 4 5 | For iCols = 0 To .Fields.Count - 1 Cells(1, iCols + 1).Value = .Fields(iCols).Name Next Range(Cells(1, 1), Cells(1, .Fields.Count)).Font.Bold = True Range("A2").CopyFromRecordset rst |
Und dann dauert es nur noch ein paar Sekunden und schupps sind die Daten da :)