ist es grundsätzlich möglich, statt der von Excel zur Verfügung gestellten Dialogbox (=Datei öffnen), Dateien auch in einer Userform anzeigen zu lassen und hieraus auch aufzurufen?
Für Eure Hilfe besten Dank.
Gruß
Stefan
Private Sub UserForm_Initialize()
Dim iCounter As Integer
With Application.FileSearch
.LookIn = CurDir
.SearchSubFolders = False
.Execute msoSortByFileName
For iCounter = 1 To .FoundFiles.Count
lstFiles.AddItem .FoundFiles(iCounter)
Next iCounter
End With
End Sub
Private Sub cmdOpen_Click()
Dim iCounter As Integer
For iCounter = 0 To lstFiles.ListCount - 1
If lstFiles.Selected(iCounter) Then
Workbooks.Open lstFiles.List(iCounter)
End If
Next iCounter
End Sub
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