VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Dateiauswahl über UserForm

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

    


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