Hallo, ich will aus einer (externen) Excel-Mappe die 30.000 Zeilen mit Daten hat alle Werte in ein dynamisches Array lesen. Dauert ca. 1 Minute. Mit de Array will ich dann weiter arbeiten (auswerten, auflisten im Dialogfeld, ....)
Wie kann ich das einlesen beschleunigen?
Mein Code:
Dim xlApp4 As Excel.Application
Set xlApp4 = New Excel.Application
xlApp4.Visible = false
Dim xlWkb4 As Excel.Workbook
Set xlWkb4 = xlApp4.Workbooks.Open(mdl_main.strPfadUndNameProjektDAtenDateiXL, False, True)
Dim xlWs As Excel.Worksheet
Set xlWs = xlWkb4.Worksheets(mdl_main.strxlTab_ProjektListe)
ReDim arrProjektdaten(1)
Dim Zeilenzähler As Long, bolEndeErreicht As Boolean
Do Until bolEndeErreicht = True
Zeilenzähler = Zeilenzähler + 1 'exit DO when in SpalteB Leerzeile erreicht wird
If xlWs.Cells(Zeilenzähler, 2).Value = "" Then
bolEndeErreicht = True
Exit Do
End If
'Array dynamisch vergrößern:
If Zeilenzähler > 1 Then ReDim Preserve arrProjektdaten(1 To Zeilenzähler)
arrProjektdaten(Zeilenzähler).lngDatensatzZeile = Zeilenzähler
arrProjektdaten(Zeilenzähler).strProjektNummer = xlWs.Cells(Zeilenzähler, 2).Value
arrProjektdaten(Zeilenzähler).strAuftragsnummer = xlWs.Cells(Zeilenzähler, 4).Value
arrProjektdaten(Zeilenzähler).strTechnBearbeiter = xlWs.Cells(Zeilenzähler, 6).Value
arrProjektdaten(Zeilenzähler).strKommission = xlWs.Cells(Zeilenzähler, 9).Value
arrProjektdaten(Zeilenzähler).datSchlussrechnung = xlWs.Cells(Zeilenzähler, 14).Value
Loop