Thema: Dateiauswahl über UserForm

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

Beiträge aus dem Excel-Forum zu den Themen Dialog und UserForm