Array befüllen
23.09.2008 15:12:00
Petra
mein Problem:
hier ein kleiner Codeschnipsel:
Dim Accounts As Object
Set Accounts = MyFunc.tables.Item("ET_OUT")
ET_Out ist eine 2-dimensionale Tabelle (ca 5.000 Zeilen, 25 Spalten) und wird mittels Funktionsbaustein aus SAP gewonnen.
Jetzt möchte ich diese Tabelle ins Excel übertragen, mit
For i = 1 To Accounts.rowcount
Cells(i + 1, 1) = "'" & Accounts(i, 1")
Cells(i + 1, 2) = "'" & Accounts(i, 2")
next
gehts viel zu langsam. Ich wollte eigentlich das Ganze zuerst in ein Array einlesen und dann das kpl. Array in die Excel-Tabelle schreiben, aber
Range(Cells(1, 1), Cells(UBound(Accounts, 1) + 1, _
UBound(Accounts, 2) + 1)) = Accounts
funktioniert nicht.
wie kann ich das am schnellstens lösen?
Wer hat den richtigen Tipp?
Liebe Grüße Petra
Anzeige