Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

XL-Dateien in UserForm listen

Gruppe

ListBox

Problem

Wie kann ich durch Betätigung einer Schaltfläche in einer UserForm die XL-Dateinamen des aktuellen Verzeichnisses in einem sich ebenfalls in der UserForm befindlichen Listenfeld listen?

Lösung
Geben Sie den nachfolgenden Code in das Klassenmodul der UserForm ein.

StandardModule: basMain

Sub Start()
   frmFileList.Show
End Sub

ClassModule: frmFileList

Private Sub cmdList_Click()
   Dim intCounter As Integer
   With Application.FileSearch
      .LookIn = CurDir
      .FileName = "*.xls"
      .Execute
      For intCounter = 1 To .FoundFiles.Count
         lstFiles.AddItem .FoundFiles(intCounter)
      Next
   End With
End Sub

Private Sub cmdOK_Click()
    Unload Me
End Sub