Herbers Excel-Forum - das Archiv

Textdatei in mehrspaltige Listbox

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Textdatei in mehrspaltige Listbox
von: Manfred

Geschrieben am: 25.02.2005 12:41:55
Wie kann ich aus einer Textdatei, die wie folgt aufgebaut ist
5100/5000/2000,2000,100
5200/4000/2010,2020,275
.....
die Werte in eine mehrspaltige Listbox einlesen, so daß
in der ersten Spalte 5100/5000/2000
in der zweiten Spalte 2000
in der dritten Spalte 100
steht?
Hat jemand einen Rat.
Bild

Betrifft: AW: Textdatei in mehrspaltige Listbox
von: Bernd G.
Geschrieben am: 25.02.2005 14:13:07
Hallo Manfred,
vielleicht hilft die DATEN / TEXT IN SPALTEN da weiter.
Du kannst hier das Komma als Trenner eingeben.
Gruß
Bernd
Bild

Betrifft: Mein Lösungansatz
von: Manfred

Geschrieben am: 25.02.2005 15:47:04
bei dem folgenden Code wird nur die letzte Zeile aus der Textdatei eingelesen.
Was muß ich ändern damit alle Zeilen eingelesen werden?
Private Sub CommandButton2_Click()
Dim zeile As String
Dim Text1 As String
Dim Text2 As String
Dim Text3 As String
Dim arr(0 To 0, 0 To 2) As String
Open "D:\Altakten\Etiketten1.txt" For Input As #1
Do While Not EOF(1)
Input #1, Text1, Text2, Text3
arr(0, 0) = Text1
arr(0, 1) = Text2
arr(0, 2) = Text3
ListBox1.List() = arr
Loop
Close #1
End Sub

 Bild
Excel-Beispiele zum Thema "Textdatei in mehrspaltige Listbox"
400 leere Textdateien anlegen Daten aus Textdatei gezielt in Zellen übernehmen
Textdatei als externe Datei per VBA einbinden Textdatei mit vorgegebenen Feldlängen anlegen
Textdateien verbinden Variablen in einer temporären Textdatei zwischenspeichern
In importierter Textdatei englische Werte in deutsche wandeln Textdatei in Tabellenblatt importieren
Export in Textdatei mit festen Feldlängen Zellinhalte in Verbindung mit Variablen in Textdatei schreiben