Array
23.10.2022 13:17:03
Herbert_Grom
wie sagte schon der große Philosoph Gerhard Polt: "Wenn einer sich förmlich in einen Gedanken hinein verrennt, dann ist er ja wie vernagelt!". Und so geht es mir gerade.
Ich habe einen Code, der mir eine mehrspaltige CSV ausliest und in ein Sheet rein schreibt. So weit so gut. Dauert 25 Sekunden. Nun möchte ich das aber gerne mit einem Array lösen und stehe irgendwie auf dem Schlauch. Habt ihr mir da bitte einen Vorschlag?
Hier ist mein Code:
Sub CSV_importieren()
Dim QuellDatei$, Inhalt$, Daten() As String, Zeile%, Spalte%, letztezeile%, i%, K%
Zeile = 1
Spalte = 1
QuellDatei = "x:\x\x.csv"
Open QuellDatei For Input As #1
'Daten in das Tabellenblatt eintragen
Do While Not EOF(1)
Line Input #1, Inhalt 'Inhalt der QuellDatei zeilenweise einlesen
Daten = Split(Inhalt, ";")
For i = 0 To UBound(Daten)
For K = 0 To UBound(Daten)
Sheets("Import").Cells(Zeile, Spalte) = Daten(i)
Spalte = Spalte + 1
i = i + 1
Next K
Zeile = Zeile + 1
Spalte = 1
Next i
Loop
Close #1
End Sub
Servus