Gruppe
Dialog
Bereich
UserForm
Thema
Dateiauswahl über 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