ich versuche den Inhalt einer Textdatei (test.txt) in einen TAB zu schreiben. Da ich mich mit Arrays nicht wirklich gut auskenne habe ich ein wenig die Hilfe von ChatGPT genutzt aber das Ergebnis passt leider nicht wirklich. Der Inhalt wird zwar in den TAB geschrieben aber nicht so wie er soll. Ich vermute, dass es mit dem separieren bzw. dem dimensionieren der Daten zusammenhängt.
Vielleicht kann mir hier jemand helfen und den nachfolgenden Code so ändern das es passt. Eine Beispieldatei habe ich mit hochgeladen damit die Quelldaten ersichtlich sind. Die Beispieldatei ist natürlich nur ein kleiner Ausschnitt der Originalen Datei. In der eigentlichen Datei sind mehrere tausend Einträge. Der Aufbau ist aber bei allen Einträgen identisch
https://www.herber.de/bbs/user/166312.txt
Public Sub txtImport()
Dim AliasPfad As String
Dim wsAlias As Worksheet
Dim fileContent As String
Dim dataArray() As String
Dim rowCounter As Long
Set wsAlias = ActiveWorkbook.Sheets.Add
wsAlias.Name = "Alias"
AliasPfad = "\test.txt"
If Dir(AliasPfad) > "" Then
Open AliasPfad For Input As #1
fileContent = Input$(LOF(1), 1)
Close #1
dataArray = Split(fileContent, " ")
rowCounter = wsAlias.Cells(wsAlias.Rows.Count, 1).End(xlUp).Row + 1
wsAlias.Cells(rowCounter, 1).Resize(UBound(dataArray) + 1).Value = Application.Transpose(dataArray)
End If
End Sub
MfG
Mike