Neueste Version eines Dokuments anhand des Namen erkennen (VBA)
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!
Neueste Version eines Dokuments anhand des Namen erkennen
Martin Asal 
, Freitag, 18.01.2019, 12:16 (vor 331 Tagen) @ Tommy
Das Makro soll immer nach der Datei suchen, die die höchste Zahl an dieser Stelle besitzt.
Schau dir einfach mal das Beispiel zu Dateien im Tutorial an, mit der Erklärung dort: Speichere die Rückgabewerte von Dir in einem Array, sortiere das Array anschließend und nimm den höchsten Wert.
Martin