Thema: Ermitteln von Datei- und Pfadnamen

Home

Gruppe

Datei

Problem

Wie kann ich aus einem mit dem Befehl "GetOpenFilename" ermittelten vollen Dateinamen den eigentlichen Dateinamen und den Pfad ermitteln?

Lösung

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

StandardModule: basMain

Sub FileNamePath()
    Dim vAdr As Variant
    vAdr = Application.GetOpenFilename
    If vAdr = False Then Exit Sub
    MsgBox vAdr & Chr(13) & Dir(vAdr) & _
       Chr(13) & Left(vAdr, Len(vAdr) - Len(Dir(vAdr)))
End Sub

Beiträge aus dem Excel-Forum zu den Themen Datei und Name

Zeilen "Objekt,Name,Name,..." in Paare wandeln	Excel/PDF Datei unter bestimmten Pfad abspeichern
Vba: refersToR1C1 Namen erzeugen	aus excel Worddatei nach Wert durchsuchen
Spaltenname einer intelligenten Tabelle ändern?	Split-Funktion beim Einlesen TXT-Datei
Namensliste 2 mit Formeln ableiten	Datei löschen mit unterschiedlichen Zahlen im Name
Datei löschen mit unterschiedlichen Zhalen im Name	geöffnete Worddatei und Word aus Excel beenden
Anzeigename aus Outlook-Verteilerliste auslesen	Excel-Datei nicht im Projekt-Explorer
Suche nach jüngster Datei	Zellen auslesen,wenn im Blattnamen 2019
Mehrere Zellen in mehreren Dateien ersetzen	Datei öffnen mit variablen im Namen
Vergleichen zweier Dateien und aktualisieren	Checkboxen Namen beliebig in eine Zelle schreiben
Namens-Manager	Datei langsam durch Formel
Dateien aus Unterordner öffnen	Daten import aus txt--Datei
Dateipfad öffnen mit VBA	Formel in definierten Namen unabhängig von Tabelle
Namen der Tabellen kopieren	Datei-Verknüpfungen
Masterdatei erschaffen?	Mehrere Datenblätter als PDF-Datei ausgeben
Makro bei Erstellen einer Datei aus einer Vorlage	Zusammenführung aus mehreren Dateien
Wert einer Zelle in Blatt mit diesem Zellennamen	Rechteck per Button in andere Datei einfügen.
Alle Dateien in einem Unterordner öffnen	VBA: MsgBox: yes/no. Bei yes andere Datei öffnen
Formen in UserForm Namen zuweisen per Makro	Mehrere txt Dateien einlesen in ein Programm
VBA Datei als .txt speichern	Excel Datei in CSV Datei wandeln mit Extras
aktierten Text in geöffnete Worddatei	Spalte in andere Dateien kopieren + zurückkopieren
Aus einer CSV-Datei ein bestimmtes Layout erzeugen	Daten ausgew. WS in 2. Datei zusammenführen
Per VBA aktuelle Datei in Autostart-Ordner	csv Dateien importieren
Makrodatei als Software hochwertiger gestalten	manuelles Speichern bei schreibgeschützter Datei
Daten aus geschlossener Datei in Zieldatei kopiere	Namen - Bezüge auf versch. Blätter
Dateinamen per VBA vorgeben (Datum: Vormonat)