Ist es möglich, in einem Ordner bestimmte Files (*.xls) sortiert nach Filename, Mutationsdatum, etc. aufwärts oder abwärts sortiert anzuzeigen, auszuwählen und zu öffnen.
vielen Dank
mfg
Pepi
Application.Dialogs(xlDialogOpen).Show
Sub FileOpen()
Dim vFile As Variant, sPath As String
sPath = ThisWorkbook.Path
ChDrive Left(sPath, 2)
ChDir sPath
vFile = Application.GetOpenFilename("Exceldateien (*.xls),*.xls") ' Test*.xls geht nicht!!
If vFile = False Then Exit Sub
MsgBox Dir(vFile) 'vfile ist Filename mit Pfad
Exit Sub
Workbooks.Open vFile
End Sub
Nehme gerne weitere Tipps entgegen.Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen