Neueste Version eines Dokuments anhand des Namen erkennen (VBA)

Tommy, Freitag, 18.01.2019, 10:39 (vor 180 Tagen)

Hallo Zusammen,

ich habe das Problem, dass Excel mir mittels VBA ein Word-Dokument öffnen soll, wobei sich der Name meist nur um eine Zahl ändert.
Einen Code habe ich als Grundmuster schon erstellt:

Sub Datei_suchen()

Dim WordApp As Object
Dim Dateiname, Pfad, Teilname
Set WordApp = CreateObject("Word.Application")
Pfad = "asdf"
Dateiname = Dir(Pfad & "aaa_" & "???-" & "bbb.docx")
MsgBox Pfad & Dateiname
With WordApp
.Visible = True
.Documents.Open Filename:=Pfad & Dateiname

End With

End Sub

Die drei ??? ist immer eine Zahl, z.b. 001.
Wenn die Datei überarbeitet wurde, ändert sich die Zahl um +1 (also hier dann 002)
Das Makro soll immer nach der Datei suchen, die die höchste Zahl an dieser Stelle besitzt. (Vorderer Teil und Hinterer Teil des Namens sollen gleich bleiben.

Danke!


gesamter Thread:

 RSS-Feed dieser Diskussion

powered by my little forum