Office: (Office 2007) Mit vba excel Datei in einem Netzwerk suchen und formatieren

Hallo, guten Tag,

ich bin auf der Such nach einer Problemlösung:
aus einem nicht-microsoft-Programm bekomme ich eine txt-Datei geleifert, die in eine Excel-Datei umgewandelt werden muss, um dann weiter bearbeitet zu werden.
Das klappt mit dem folgenden Code gut:

Sub excel_formatieren_1()
Workbooks.OpenText Filename:= _
"S:\Fibu\CTS\Buchhaltungsstatistik\09.2015\CTS xx.txt", Origin:= _
xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), _
Array(9, 1), Array(10, 1)), TrailingMinusNumbers:=True
Sheets("CTS xx").Select
Sheets("CTS xx").Name = "Sheet1"
End Sub

Die txt-Datei könnte aber auch in dem Ordner "10.2015" (Oktober 2015) stehen. Wie finde ich sie dann, ohne wie bisher den Ordner im Code zu ändern????

Für Hilfe wäre ich sehr dankbar.
LG Angela

 

Hallo Angela,

gute Frage: wie würdest DU die gesuchte Datei denn selber finden?
- ist das Verzeichnis (hier) "09.2015" (immer) das Einzige unter "S:\Fibu\CTS\Buchhaltungsstatistik"?
- ist es immer das Neueste (setzt das immergleiche Format MM.JJJJ voraus)
- willst du vielleicht in zwei Feldern eines Blattes deiner Mappe Monat und Jahr vorgeben (bzw. in einem Feld den String "09.2015")?
- Heißt die Datei denn immer gleich "CTS xx.txt"?
- oder ist sie immer die Einzige *.txt-Datei im Unterverzeichnis?

Wie auch immer kann man den Dateinamen dann zusammenbauen, z. B.:
DatName$ = "S:\Fibu\CTS\Buchhaltungsstatistik\" & "09.2015" & "\CTS xx.txt"
und dann
Workbooks.OpenText Filename:= _
DatName$, Origin:= _
...

und je nach deiner Art des "Findens" die Teilstrings im Code selber suchen oder aus Zellen der Tabelle holen.

Gruß,
Peter