Hallo,
ich würde die Textdatei auch also solche öffnen, also nicht in die selbe Datei laden, sondern über "Öffnen als Textdatei", so wie man auch CSV-Dateien öffnent.
Dabei kann man dann nämlich angeben wie er was interpretiert.
Ich kenn jetzt deine Text-Dateien nicht aber bei mir, mit Werten untereinander, hat es so dann funktioniert.
Sub Michael8000()
Dim meinWB As Workbook
Dim meinSh As Worksheet
Dim TextWB As Workbook
With Application
'.DisplayAlerts = False
.ScreenUpdating = False
End With
sPath = "C:\Temp\"
sFile = Dir(sPath & "*.txt")
Set meinWB = ActiveWorkbook
Set meinSh = meinWB.Sheets("Daten")
Do While Len(sFile)
Workbooks.OpenText sPath & sFile, , , xlDelimited, , , True, , , , , , Array(1, 1)
Set TextWB = ActiveWorkbook
ls = meinSh.Cells(1, meinSh.Columns.Count).End(xlToLeft).Column + 1
TextWB.Sheets(1).Columns(1).Copy meinSh.Cells(1, ls)
TextWB.Close
sFile = Dir
Loop
With Application
'.DisplayAlerts = True
.ScreenUpdating = True
End With
End Sub
|