Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Dateinamen aus Verzeichnis auslesen

Forumthread: Dateinamen aus Verzeichnis auslesen

Dateinamen aus Verzeichnis auslesen
03.07.2002 15:27:29
Simon
hallo forum,

ich habe ein problem und komme nicht weiter. wäre froh, wenn mir jemand einen tip geben könnte.

im archiv (https://www.herber.de/forum/archiv/60to64/t63091.htm) habe ich folgende antwort auf die frage gefunden, wie man dateinamen aus einem speziellen verzeichnis mit vba auslesen kann. das makro macht auch fast was ich möchte, nur wird die 1. Datei im verzeichnis nicht angegeben. d.h. das makro gibt alle dateiname in die listbox minus die erste.

Private Sub CommandButton1_Click()

Dim Datei As String
Dim x As Long
Dim DateiListe()
Datei = Dir("C:\windows\*.*")

Do While Datei <> ""
x = x + 1
ReDim Preserve DateiListe(1 To x)
Datei = Dir
DateiListe(x) = Datei
Loop

ListBox1.List = DateiListe
End Sub


liegt es an der anzahl durchläufe der schleife?

vielen dank für die hilfe schon im voraus

simon

Anzeige

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

Betreff
Datum
Anwender
Anzeige
Re: Dateinamen aus Verzeichnis auslesen
03.07.2002 15:32:58
Daniel P
Hallo Simon,

du must die Zeilen

Datei = Dir
und
DateiListe(x) = Datei

vertauschen. Schon der erste Aufruf von Dir gibt einen Treffer zurück.

Daniel

Re: Dateinamen aus Verzeichnis auslesen
03.07.2002 15:36:59
Simon
das ging aber schnell, vielen dank

gruss simon

Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Infobox / Tutorial

Dateinamen aus einem Verzeichnis in Excel auslesen


Schritt-für-Schritt-Anleitung

Um Dateinamen aus einem Ordner in Excel auszulesen, kannst du VBA (Visual Basic for Applications) verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Klicke auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.

  3. Füge den folgenden Code in das Modul ein:

    Private Sub CommandButton1_Click()
       Dim Datei As String
       Dim x As Long
       Dim DateiListe() As String
    
       Datei = Dir("C:\dein\pfad\*.txt") ' Ändere den Pfad und die Dateiendung nach Bedarf
    
       Do While Datei <> ""
           x = x + 1
           ReDim Preserve DateiListe(1 To x)
           DateiListe(x) = Datei
           Datei = Dir
       Loop
    
       ListBox1.List = DateiListe
    End Sub
  4. Stelle sicher, dass du die Datei- und Ordnerpfade anpasst.

  5. Füge eine ListBox zu deinem UserForm hinzu und benenne sie ListBox1.

  6. Schließe den VBA-Editor und kehre zu Excel zurück.

  7. Drücke F5, um das Makro auszuführen und die Dateinamen anzuzeigen.


Häufige Fehler und Lösungen

  • Fehler: Die erste Datei wird nicht angezeigt.

    • Lösung: Ändere die Reihenfolge der Zeilen Datei = Dir und DateiListe(x) = Datei im Code. Das sorgt dafür, dass der erste Dateiname korrekt erfasst wird.
  • Fehler: Keine Dateien gefunden.

    • Lösung: Überprüfe den angegebenen Pfad und die Dateiendung im Code. Stelle sicher, dass der Ordner existiert und die Dateien vorhanden sind.

Alternative Methoden

Falls du keine VBA nutzen möchtest, gibt es auch andere Methoden, um Dateinamen aus einem Ordner auszulesen:

  1. Power Query: Mit Power Query kannst du Daten importieren und transformieren, einschließlich Dateinamen aus einem Ordner.
  2. Excel-Formel: Mit der Formel =HYPERLINK("C:\dein\pfad\"&A1) kannst du Dateinamen einlesen, die in Zellen stehen, und diese als Links darstellen.

Praktische Beispiele

  • Beispiel 1: Alle .jpg-Dateien aus einem Fotofolder auslesen:

    Datei = Dir("C:\dein\pfad\*.jpg")
  • Beispiel 2: Alle Dateinamen in eine Excel-Tabelle schreiben:

    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Tabelle1")
    ws.Cells(x, 1).Value = DateiListe(x)

Tipps für Profis

  • Verzeichnis auslesen: Verwende die Funktion VBA.Dir, um das Verzeichnis effizient auszulesen.
  • Ordnerstruktur auslesen: Wenn du eine komplexe Ordnerstruktur hast, kannst du rekursive Funktionen nutzen, um alle Dateinamen in Unterordnern auszulesen.
  • Fehlerbehandlung: Implementiere Fehlerbehandlung im VBA-Code, um unerwartete Probleme zu vermeiden.

FAQ: Häufige Fragen

1. Wie kann ich Dateinamen ohne VBA auslesen?
Du kannst Power Query verwenden, um Dateinamen aus einem Ordner zu importieren und in Excel darzustellen.

2. Welche Excel-Version benötige ich für dieses VBA-Skript?
Das Skript funktioniert in den meisten modernen Excel-Versionen, einschließlich Excel 2010 und später. Achte darauf, dass Makros aktiviert sind.

3. Kann ich auch Dateinamen aus mehreren Ordnern auslesen?
Ja, du kannst das Skript erweitern, um mehrere Ordner zu durchlaufen, indem du die Pfade in einer Schleife iterierst.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige