Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Dateiname aus dem vollen Namen extrahieren

Gruppe

Name

Problem

Mit der GetOpenFileName-Methode kann ich den Datei- mit dem Pfadnamen abrufen. Wie kann ich aus dieser Zeichenfolge den Dateinamen filtern?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: basMain

Sub FileFilter()
   Dim vFile As Variant
   vFile = Application.GetOpenFilename
   If vFile = False Then Exit Sub
   vFile = Dir(vFile)
   MsgBox vFile
End Sub