Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Dateiauswahl über UserForm

Gruppe

UserForm

Problem

In einer UserForm soll eine Datei zum Öffnen ausgewählt werden.

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

ClassModule: frmFiles

Private Sub cmdOpen_Click()
   If Dir(txtFile.Text) = "" Then
      Beep
      MsgBox "Datei wurde nicht gefunden!"
   Else
      Workbooks.Open txtFile.Text
   End If
   Unload Me
End Sub

Private Sub cmdSelect_Click()
   Dim vFile As Variant
   vFile = Application.GetOpenFilename("Excel-Dateien (*.xls), *.xls")
   If vFile = False Then Exit Sub
   txtFile.Text = vFile
End Sub
StandardModule: Modul1

Sub CallForm()
   frmFiles.Show
End Sub