Option Explicit

Private Sub TextEinlesenADOhneSchema()
'Peter Haserodt 2007
'Für Standard getrennte (;) textfiles (Auf deutschen Systemen)
'Für andere Trenner braucht man eine Schema.ini
Dim oAdoConnection As Object, oAdoRecordset As Object
Dim sOrdnerPfadOhneSlash As String, sDateiName As String
Dim sHatSpalteKoepfe As String
Dim sQueryString As String
Dim iMaxRows As Long
iMaxRows = 3 ' Anzahl der Zeilen pro Blatt
sQueryString = "Select * From " ' Abschließendes Blank beachten
' Um nur bestimmte Spalten einzulesen abhängig vom Typ, wenn keine
'Spalteköpfe vorhanden sind benutzt man F und die Nummer, ansonsten den Spaltennamen
'Beispiel ohne Spaltennamen für 1. und 3.Spalte
'sQueryString = "Select F1,F3 From "
sHatSpalteKoepfe = "No" ' Selbsterklärend, Yes für wenn welche drin sind
sOrdnerPfadOhneSlash = ThisWorkbook.Path
sDateiName = "test.txt"
Set oAdoConnection = CreateObject("ADODB.CONNECTION")
oAdoConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
 "Data Source=" & sOrdnerPfadOhneSlash & ";" & _
 "Extended Properties=""text;HDR=" & sHatSpalteKoepfe & ";FMT=Delimited"""
Set oAdoRecordset = CreateObject("ADODB.RECORDSET")
oAdoRecordset.Open sQueryString & sDateiName, oAdoConnection, 3, 1, 1
While Not oAdoRecordset.EOF
 Sheets.Add
 ActiveSheet.Range("A2").CopyFromRecordset oAdoRecordset, iMaxRows
Wend
oAdoRecordset.Close
oAdoConnection.Close
End Sub