Office: VBA TxtDateien in einem Ordner öffnen und zusammen kopieren

Hallo,
ich habe ein Verzeichnis in dem verschiedene txt Dateien enthalten sind.
Ich möchte diese Dateien nacheinander in excel importieren und den Inhalt in einer Excel Tabelle einfügen. Ich möchte also den Inhalt der txt Dateien ins Excle Format bekommen und untereinander kopieren.

Leider ist ein fehler im Makro...

Code:

Sub Listen_zusammenfassen()

Dim VerzVar As String
Dim Pfadname As String
Dim ZielMappe As Workbook
Dim QuellMappe As Workbook

Pfadname = "Y:\test\"
VerzVar = Dir(Pfadname & "*.txt")

Set ZielMappe = ThisWorkbook

Do While VerzVar <> ""

    UserFile = Pfad & VerzVar
    Set QuellMappe = Workbooks.Open(Filename:=UserFile)
    QuellMappe.Sheets(1).Copy Before:=ThisWorkbook.Sheets(1)
    VerzVar = Dir()
    QuellMappe.Colse savechanges:=False

Loop

End Sub

Es hat glaub irgendwas damit zutun das er die txt Datei nicht öffnen kann oder so...
Danke

 

Hallo Marius82,

ich habe zwar kein Excel2000 sondern das 2007er, aber ich hoffe dass Dir dieser Code hilft:

Code:

Option Explicit

Sub Listen_zusammenfassen()

Dim VerzVar As String
Dim Pfadname As String
Dim QuellMappe As Workbook

Pfadname = "Y:\test\"
VerzVar = Dir(Pfadname)

Do While VerzVar <> ""
    ' Abfrage ob aktuell geschleifte Datei eine Text-Datei ist
    If Right(VerzVar, 4) = ".txt" Then
        Set QuellMappe = Workbooks.Open(Filename:=VerzVar)
        QuellMappe.Sheets(1).Copy Before:=ThisWorkbook.Sheets(1)
        QuellMappe.Close savechanges:=False
    End If
    VerzVar = Dir
Loop

End Sub

Bei mir klappts.

Ich hoffe geholfen zu haben.