VBA - Textimport mit Trennzeichen
16.04.2020 09:54:53
Thomas
nachdem nun alle meine bisherigen Versuche gescheitert sind, möchte ich euch um Hilfe bitten. _ Es geht um einen VBA Code. Diesen habe ich hier aus dem Forum:
Sub A()
With Application.FileDialog(msoFileDialogOpen)
If .Show Then Sheets.Add , Sheets(Sheets.Count), , .SelectedItems(1)
End With
End Sub
Sub B()
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = True
.InitialFileName = "C:\Users\Thoma\Desktop\Test\*.txt"
If .Show Then
For Each f In .SelectedItems
Sheets.Add , Sheets(Sheets.Count), , f
Next f
End If
End With
End Sub
Der Code liest alle Textdateien ein, die sich in einem Ordner befinden und legt für jede dieser _ Dateien ein neues Blatt in Excel an. Leider werden in diesem Code keine Trennzeichen beachtet, die beim Import als Spalteneinteilung dienen. Meine Daten benutzen als Trennzeichen ein Komma. Um diese Problem zu lösen, habe ich mit dem Makrorekorder den Datenimport aufgezeichnet. Dieser Code ist dabei raus gekommen:
Sub Makro1()
Workbooks.OpenText Filename:="C:\Users\Thoma\Desktop\Test\amd.us.txt", Origin:=xlMSDOS, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, Comma:=True _
, TrailingMinusNumbers:=True
End Sub
Da ich leider noch ein absoluter Anfänger in VBA bin, habe ich versucht den Code an jeder beliebigen Stelle in den ersten Code zu setzten. Auch Beispiele aus dem Internet haben mir nicht weiter helfen können. Deshalb wollte ich fragen, ob mir nicht bitte jemand zeigen kann, wie das mit den Trennzeichen beim Textimport klappt.
Unter diesem Link habe ich euch eine Beispieldatei hochgeladen: https://www.herber.de/bbs/user/136776.txt
Vielen vielen Dank im voraus für eure Hilfe! Ich wünsche euch noch einen schönen Tag.
Grüße,
Thomas