Dateiname und Dateiendung anzeigen

Forumthread: Dateiname und Dateiendung anzeigen

28.10.2005 11:56:32

flyingsunbird

Hallo zusammen
Ich möchte aus einem Datei-Pfad-Namen (G_PfadEinzeldatei.Value)
den Namen der Datei (ohne Endung) in ein Feld und die Endung
in ein anderes Feld schreiben.
Dim fs As New FileSystemObject
Set f = fs.GetFile(G_PfadEinzeldatei.Value)
f.name gibt mir allerdings Name und Endung zusammen aus.
Über welche Eigenschaft bekomme ich diese Angaben???
Gruss Katharina

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Dateiname und Dateiendung anzeigen

28.10.2005 12:05:15

Matthias G
AW: Dateiname und Dateiendung anzeigen

28.10.2005 12:18:17

flyingsunbir

AW: Dateiname und Dateiendung anzeigen

28.10.2005 12:05:15

Matthias G

Hallo Katharina,


MsgBox Left(f.name, InStrRev(f.name, ".") - 1)

Gruß Matthias

AW: Dateiname und Dateiendung anzeigen

28.10.2005 12:18:17

flyingsunbir

Danke

Infobox / Tutorial

Dateiname und Dateiendung in Excel anzeigen

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Um den Dateinamen und die Dateiendung in Excel anzuzeigen, kannst du VBA (Visual Basic for Applications) verwenden. Hier ist eine Schritt-für-Schritt-Anleitung:

Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
Füge ein neues Modul hinzu: Rechtsklick auf "VBAProject (dein Arbeitsblattname)" > Einfügen > Modul.

Kopiere den folgenden Code in das Modul:

Sub DateinameUndEndungAnzeigen()
   Dim fs As Object
   Dim f As Object
   Dim DateiPfad As String

   ' Beispiel-Pfad: Ändere dies zu deinem tatsächlichen Dateipfad
   DateiPfad = "C:\Dein\Pfad\zur\Datei.txt"

   Set fs = CreateObject("Scripting.FileSystemObject")
   Set f = fs.GetFile(DateiPfad)

   ' Dateiname ohne Endung
   MsgBox "Dateiname: " & Left(f.Name, InStrRev(f.Name, ".") - 1)

   ' Dateiendung
   MsgBox "Dateiendung: " & Mid(f.Name, InStrRev(f.Name, ".") + 1)
End Sub

Ändere den DateiPfad zu dem Pfad deiner Datei.
Schließe den VBA-Editor und führe das Makro über ALT + F8 aus.

Häufige Fehler und Lösungen

Fehler: "Objekt nicht gefunden"
- Lösung: Überprüfe, ob der Dateipfad korrekt ist und die Datei existiert.
Fehler: "Typ nicht definiert"
- Lösung: Stelle sicher, dass du die richtige Bibliothek für den FileSystemObject aktiviert hast. Gehe zu Extras > Verweise im VBA-Editor und aktiviere "Microsoft Scripting Runtime".

Alternative Methoden

Wenn du keine VBA verwenden möchtest, kannst du auch die Funktionen von Excel nutzen:

Funktion zur Dateiendung anzeigen:
Verwende die Formel =RECHTS(A1, LÄNGE(A1) - SUCHEN(".", A1)), wobei A1 die Zelle ist, die den Dateinamen enthält.
Funktion zur Dateinamenerweiterung:
Um den Dateinamen ohne die Endung anzuzeigen, kannst du =LINKS(A1; SUCHEN("."; A1) - 1) verwenden.

Praktische Beispiele

Angenommen, du hast den Dateipfad C:\Dokumente\Bericht.docx in Zelle A1. Du kannst folgende Formeln verwenden:

Dateiname ohne Endung:
=LINKS(A1; SUCHEN("."; A1) - 1) gibt Bericht zurück.
Dateiendung:
=RECHTS(A1; LÄNGE(A1) - SUCHEN("."; A1)) gibt docx zurück.

Tipps für Profis

Wenn du oft mit Dateiendungen arbeitest, erstelle eine benutzerdefinierte Funktion in VBA, um die Dateiendung anzuzeigen.
Nutze die Scripting.FileSystemObject-Klasse, um komplexere Dateimanipulationen durchzuführen.
Dokumentiere deinen Code gut, damit du später leicht darauf zurückgreifen kannst.

FAQ: Häufige Fragen

1. Wie kann ich alle Dateiendungen in einem Ordner auflisten?
Verwende eine Schleife in VBA, um durch alle Dateien in einem bestimmten Ordner zu iterieren und die Endungen zu extrahieren.

2. Kann ich die Dateiendung auch ohne VBA anzeigen?
Ja, du kannst Excel-Formeln verwenden, um die Dateiendungen anzuzeigen, wie in den alternativen Methoden beschrieben.

Beliebteste Forumthreads (12 Monate)

Dateiname und Dateiendung anzeigen

Forumthread: Dateiname und Dateiendung anzeigen

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Infobox / Tutorial

Dateiname und Dateiendung in Excel anzeigen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread