Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Dateiordner als Userform

Dateiordner als Userform
23.05.2006 20:42:27
Stefan
Hallo,
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
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dateiordner als Userform
23.05.2006 20:51:21
Xelleron(Dennis)
Hallo Stefan,
es gibt die Möglichkeit *.xls Dateien aus einem bestimmten Ordner in einer ListBox auflisten zu lassen, aus der man sie öffnen könnte.
In B1 den Pfad angeben und es werden alle Excel-Dateien angezeigt.

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

Gruss Dennis
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige