Hallo Zusammen,

ich versuche mich derzeit ein wenig in Makros. Ich versuche derzeit ein Makro zu programmieren das mir eine Textdatei öffnet sie ausliest und mit einer Excel-Tabelle vergleicht und ggf. ändert.

Ich habe bereits meinen Pfad definiert und öffnet mir den Ordner in der diese txt.-Datei drin ist und die txt.-Datei, aber nur wenn ich den genauen Namen der txt.-Datei  angebe. Da ich aber verschiedene Ordner und Unterverzeichnisse habe und unterschiedliche txt.-Dateien habe, bräuchte ich einen Code der allgemein gilt. Da in meinem Ordner auh immer nur eine txt.-Datei enthalten ist, ist meine Frage ob es eine Möglichkeit gibt mein Makro so zu programmieren, dass er nur erkennt, dass es sich um eine txt.-Datei handelt und nicht über den Namen gehen muss???

Hier nur ein kleiner Ausschnitt

Workbooks.OpenText Filename:=strCheckinDatName, _
                StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
                ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, _
                Comma:=False, Space:=False, Other:=True, OtherChar:="|", _
                FieldInfo:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True

Wie definiere ich strCheckinDatName so, dass mein Makro wie oben genannt erkennt das es sich um eine txt.-Datei handelt (am besten noch als Const.)

Oder gibt es noch andere Möglichkeiten (bessere?!) ;)

Vielen Dank für die Hilfe schonmal

Ich hoffe es ist halbwegs verstädlich ;)