Office: .txt in ListBox einlesen

EminEm · 23. Juni 2018

Schönen guten Morgen liebes Forum,

meine Frage bezieht sich auf den Import einer Textdatein in eine ListBox eines Userforums, was durch ein Button realisiert werden soll. Die .txt ist so aufgebaut, dass die einzelnen Einträge durch einen Tabstopp getrennt sind, welche dann in der ListBox dementsprechend auch in die jeweilige Spalte sollen. Einfaches Bsp. (Aufbau der .txt):

Name Alter Geschlecht Beruf
Uwe 42 männlich Prozessingenieur
Maria 21 weiblich Azubi im HR
.
.
.

Der Import soll, wie schon geschrieben, über einen Button realisiert werden, durch den der Explorer aufgerufen wird und man die Datei selber suchen kann.

Nachfolgend habe ich schon was interessantes gefunden, jedoch ist bei dieser Programmierung der Pfad und die .txt-Datei fest vorgegeben und es wird alles in die erste Spalte der ListBox importiert:

Code:

Private Sub CommandButton7_Click()

Dim Zeile As String

Open "C:test.txt" For Input As #1

While Not EOF(1)
Line Input #1, Zeile
Me.ListBox1.AddItem Zeile
Wend
Close #1

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich hoffe Ihr könnt mir bei diesem Problem helfen!
Vielen Dank schon mal im voraus!

Liebe Grüße

EminEm

:)

RPP63 · 24. Juni 2018

Moin!
Das Einfachste dürfte sein, die .txt mittels Import in eine (ausgeblendete) Tabelle zu importieren.
Eigenschaft .ColumnCount der ListBox1 = 4
Zuweisung dann mittels
Code:

ListBox1.List = Cells(1).CurrentRegion.Offset(1, 0).Value
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß Ralf

EminEm · 24. Juni 2018

Hi Ralf,

danke für deine schnelle Rückmeldung.

Das heisst doch aber, dass ich die .txt in ein Excel Sheet einlesen muss und dann von dem Excel Sheet in die ListBox. Dabei bleibt jedoch meine Fragestellung, wie realisiere ich das mit dem Import in ein Excel Sheet aus dem Explorer?

Der Code von Dir ist doch nur für den Import in die ListBox oder?!

Liebe Grüße und Danke nochmal

EminEm

RPP63 · 24. Juni 2018

Dafür gibt es doch Daten, Aus Text
Wofür willst Du dann mit VBA arbeiten, wenn Excel exakt dies eingebaut hat, was Du mühsam und ohne Grundkenntnisse nachbauen willst?

Zeichne den Import mal mit dem Makrorekorder auf.
Eine Datei wählst Du mittels Application.GetOpenFilename aus.

Nepumuk · 24. Juni 2018

Hallo,

oder so:

Code:

Private Sub CommandButton7_Click()
Dim strTemp As String
Dim avntValue As Variant
Dim ialngIndex As Long

With Application.FileDialog(msoFileDialogFilePicker)
With .Filters
If .Count > 0 Then Call .Delete
Call .Add("Textdatei", "*.txt")
End With
.AllowMultiSelect = False
.InitialFileName = "C:\Textdateien\" 'anpassen
.InitialView = msoFileDialogViewDetails
If .Show = 0 Then Exit Sub
Reset
Open .SelectedItems(1) For Input As #1
End With

With ListBox1
Call .Clear
Do Until EOF(1)
Line Input #1, strTemp
avntValue = Split(strTemp, vbTab)
Call .AddItem
For ialngIndex = LBound(avntValue) To UBound(avntValue)
.List(.ListCount - 1, ialngIndex) = avntValue(ialngIndex)
Next
Loop
End With
Close #1
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

EminEm · 24. Juni 2018

Hi Ralf,

du hast natürlich recht, dass das alles schon in Excel vorhanden ist, dennoch würde ich es gerne veruschen "nachzustellen".

Soweit habe ich das jetzt auch hinbekommen, dank Hilfe von dir und dem Makrorecorder, jedoch eine Sache hat leider noch nicht funktioniert, das mit dem Datei aussuchen und die ausgewählte Datei importieren.

Code:

Private Sub CommandButton7_Click()

Sheets("SpinTab").Select

With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:test.txt" _
, Destination:=Range("$A$1"))
'.CommandType = 0
.Name = "Spintab_test_2"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 1252
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _
1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With

Columns("Z:AY").Select
Selection.ClearContents
Range("A1").Select

ListBox1.List = Cells(1).CurrentRegion.Offset(0, 0).Value

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Somit nimmt er immer die gleiche Datei als Import.

Könntest du mir damit evtl. noch helfen?

Liebe Grüße und danke für deine Mühen

EminEm

Office: .txt in ListBox einlesen

.txt in ListBox einlesen

.txt in ListBox einlesen

.txt in ListBox einlesen

.txt in ListBox einlesen - Similar Threads - ListBox einlesen

Listbox wird nicht breiter, Schriftgrösse ändert sich

Listbox Sortierung

Suchfunktion für Listbox in Textbox

Listbox befüllen

Listbox füllen wenn zelle daneben leer

Mit einer ListBox zeilen und Spalten einlesen

Daten in Listbox einlesen und bei Doppelklick UserForm mit der Datenreihe öffnen