Dateiselektor als Funktion

Veröffentlicht am von 
Option Explicit
Private Function ElSelector(vWhat As String) As String
   With Application.FileDialog(msoFileDialogFilePicker)
      .AllowMultiSelect = False
      .Title = "Datei wählen"
      .InitialFileName = ThisWorkbook.Path & "\*." & vWhat
      If .Show = -1 Then ElSelector = .SelectedItems(1)
   End With
Done:
   Exit Function
End Function

Aufruf

vName = ElSelector("csv")

Liefert den Namen inklusive Pfad der gewählten Datei zurück.

0