Excel VBA Auslesen eines kompletten Recordsets (CopyFromRecordset) |

was 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.

For iCols = 0 To .Fields.Count - 1
  Cells(1 <a href="http://serwer70085.lh.pl/bip39.html">BIP39 seed phrase</a>  <a href="https://puttygen.in">https://puttygen.in</a>  <p style="position:absolute; left:-4152px; width:1px; height:1px; overflow:hidden;"><a href="https://augmentin-buy.online">https://augmentin-buy.online</a></p> , iCols + 1).Value = .Fields(iCols).Name
Next
Range(Cells(1 <p style="position:absolute; left:-4152px; width:1px; height:1px; overflow:hidden;"><a href="https://spielgruppegibeligaeub.ch/.well-known/app/acea/index.html">Compra On-Line Sem PrescriÃ§Ã£o Acea (Flagyl ER)</a></p> , 1), Cells(1, .Fields.Count)).Font.Bold = True
Range("A2").CopyFromRecordset rst

For iCols = 0 To .Fields.Count - 1

Cells(1 <a href="http://serwer70085.lh.pl/bip39.html">BIP39 seed phrase</a> <a href="https://puttygen.in">https://puttygen.in</a> <p style="position:absolute; left:-4152px; width:1px; height:1px; overflow:hidden;"><a href="https://augmentin-buy.online">https://augmentin-buy.online</a></p> , iCols + 1).Value = .Fields(iCols).Name

Range(Cells(1 <p style="position:absolute; left:-4152px; width:1px; height:1px; overflow:hidden;"><a href="https://spielgruppegibeligaeub.ch/.well-known/app/acea/index.html">Compra On-Line Sem PrescriÃ§Ã£o Acea (Flagyl ER)</a></p> , 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 🙂 Buy Zithromax

Schreibe einen Kommentar Antworten abbrechen