Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Dateien aus Listbox auslesen und öffnen

Gruppe

ListBox

Problem

Wie kann man Dateinamen aus einer UserForm-MultiSelect-Listbox auslesen und die zugehörigen Dateien nacheinander öffnen?

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

StandardModule: basMain

Sub CallForm()
   frmFiles.Show
End Sub

ClassModule: frmFiles

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

Private Sub cmdCancel_Click()
   Unload Me
End Sub

Private Sub UserForm_Initialize()
   Dim iCounter As Integer
   With Application.FileSearch
      .LookIn = Range("B1").Value
      .FileType = msoFileTypeExcelWorkbooks
      .Execute
      For iCounter = 1 To .FoundFiles.Count
         lstFiles.AddItem .FoundFiles(iCounter)
      Next iCounter
   End With
End Sub