Hallo!

Ich muss für ein VB6.0 Programm daten aus einer Excelmappe in ein Visual Basic programm einlesen.

Ich lese momentan jeden wert einzeln per schleife ein und weise ihm einen platz in einem array zu.

ich muss 10 spalten mit jeweils über 3000 werten einlesen.

gibt es eine möglichkeit die komplette spalte auf einmal einm array zuzuweisen? ( irgend ein range befehl oder so?)

mit einzelner einlesung dauert die ganze sache mit dem einlesen so ca 5 minuten.

Ein muss ist:
ich kann an der datenquelle nichts ändern, d.h. ich komm nicht um das excelltabellenblatt rum.
Und: ich möchte in VB6.0 programieren und nicht in VBA

dann zeigt mal, was ihr könnt, denn ich kanns nicht.

Danke im voraus

Zeig und doch deine Schleife, vllt lässt sich da was optimieren.
Alternativ die Exceltabelle als CSV speichern und die csv als normale Textdatei öffnen und ins array via split schreiben...

die schleife ist poplig

zeile=1
do until exws2.cells(zeile,1).value = ""
Redim preserve t(zeile)
t(zeile) = exws2.cells(zeile,1).value
zeile = zeile + 1
loop

redim n(zeile)
redim M(zeile)
...

do until exws2.cells(zeile,1).value = ""
n(zeile) = exws2.cells(zeile,2).value
M(zeile) = ex...
...
zeile = zeile + 1
loop

das ganze für gut 10 variablen. und jeweils 3000 Werte
könnten über kurz oder lang auch 20000 werden.

bei 3000 dauert die ganze sache schon über 2 Minuten.

MfG

Hi!

Visual Basic-Quellcode

1. Redim preserve t(zeile)

Das Redim benötigt oft viel Zeit, weil unter umständen ALLE Daten wo anders hin kopiert werden müssen, da nach dem array evntl. schon wieder eine andere Variable steht.

Das Prinzip von dynamic Arrays aus PHP funktioniert so, dass zuerst eine geringe anzahl (in deinem fall z.B. 100) array-elemente "reserviert" (=redim) werden und beim 101. element, dass rein geschrieben werden soll wird die anzahl verdoppelt...

Das sieht dann in etwa so aus:



[EDIT:]Bei PHP wird glaub ich mit 2 angefangen ...

Anstatt jedes mal das Array zu vergrößern kannst du auch erst die Größe ermitteln und dann alles eintragen:


Edit: hab ein paar sachen vergessen, jetzt ist es korrekt

Danke für eure antworten.

Ich hab heut den ganzen Tag rumgetüftelt und holl mir die dateien jetzt über eine connection mit recordset. Wird zwar alles als String eingelesen, aber mit nachträglichem konvertieren bleib ich immernoch unter 5 Sekunden.

Sorry, dass ich net gleich bescheid gesagt hab. läuft auch erst seit ner halben stunde