Sub TextdateiEinlesen()
' Quelle Sigmund Halpern
Dim strDatei As String
Dim strTextzeile As String
strDatei = ActiveCell.Value
Open strDatei For Input As #1
' Zeile für Zeile in die Variable strTextzeile einlesen
Do While Not EOF(1)
Line Input #1, strTextzeile
ActiveCell.Value = strTextzeile
ActiveCell.Offset(1, 0).Range("A1").Select
Loop
Close #1
End
Sub
Gruß
Option Explicit
Sub Multi_Text_Import()
Dim n As Integer
Dim strTemp As String
Dim lRow As Long
lRow = 1 'Startzeile in der Tabelle
With Application.FileSearch
.LookIn = "D:\Temp" 'Pfad zu deinen Textdateien
.FileType = msoFileTypeAllFiles
.Filename = "*.txt"
.SearchSubFolders = False
'(True) wenn auch Unterordner durchsucht werden sollen
.Execute
For n = 1 To .FoundFiles.Count
'Import Textfile
Open .FoundFiles(n) For Input As #1
Do While Not EOF(1)
Input #1, strTemp
Cells(lRow, 1) = strTemp
lRow = lRow + 1
Loop
Close #1
Next
End With
Columns("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1))
Columns.AutoFit
End Sub