|
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
1 2 3 4 5 | Workbooks.OpenText Filename:=<strong>strCheckinDatName</strong>, _
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 ;)
|