VBA - Excel Datei mit variablen Dateinamen öffnen

[Howdegen]

Hallo,

ich würde gerne eine Exceldatei aus einem Ordner öffnen mit dem Namen: xxx1516_02.xlsx. die ersten x stellen dabei den konstanten Namensanfange der Datei dar. In dem Ordner sind mehrere Dateien von dieser Namensart, jedoch möchte ich nur die eine Datei öffnen mit aktuellem GJ: (1516)  und mit der größten Endnummer.
Hoffentlich möchte mir da jemand helfen

[schauan]

Hallo Howdegen,

Eventuell schaust Du im Ordner mit dem Befehl Dir von der 99 abwärts, ob es eine Datei gibt. Wenn ja, öffnest Du sie. Hier mal ein Ansatz. Allerdings setzte ich voraus, dass es eine Datei gibt. Ansonsten läuft das Öffnen bei 00 auf einen Fehler, weil es ja keine Datei gibt.

Code:

Sub test()
'Variablendeklaration
'String, Integer
Dim strFile$, iCnt%
iCnt = 99
'Datei 99 anzeigen
strFile = Dir("D:\Test\Test_99.xlsx")
'Schleife, solange strfile "" ist und iCnt >= 0
Do While strFile = "" And iCnt > 0
  'Zaehler runtersetzen
  iCnt = iCnt - 1
  'Datei anzeigen
  strFile = Dir("D:\Test\Test_" & Format(iCnt, "0#") & ".xlsx")
'Ende Schleife, solange strfile "" ist und iCnt >= 0
Loop
'Datei oeffnen
'...
End Sub

[Howdegen]

Vielen Dank, das hat geklappt!



Edit: Zitattext entfernt