Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1800to1804
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1800to1804
1800to1804
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dateien in Verzeichnis suchen

Dateien in Verzeichnis suchen
20.12.2020 14:43:21
xtian
Hallo zusammen,
nach einigen Erfolgen mit VBA hänge ich nun leider wieder an einem Problem und finde seit
Freitag leider keine Lösung. Würde mich freuen wenn mir jemand helfen könnte.
Das Makro soll im Verzeichnis C:\Temp\TestOrdner\ (der Ordner TestOrdner hat auch einige
Unterverzeichnisse) nach allen .pdf Dateien suchen und mir diese zum Schluss in einer
MsgBox inkl. Pfad auflisten.
Mit Dir habe ich es geschafft. Aber das funktioniert leider nicht bei Unterordner.
Viele Grüße
Christian

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dateien in Verzeichnis suchen
20.12.2020 14:55:46
xtian
Hallo Oberschlumpf,
ich Google seit Freitag Abend und finde keine passende Lösung.
Gruß
Christian
AW: Dateien in Verzeichnis suchen
20.12.2020 15:03:04
Oberschlumpf
Hi,
hier (der 1. Treffer in der Google-Liste)
https://www.herber.de/mailing/Dateien_in_einem_Verzeichnis_und_Unterverzeichnissen_suchen.htm
steht doch alles, was du brauchst.
Im Bsp-Code in Zelle Range("B1").Value steht der Dateiname und in Zelle Range("B2").Value steht das Verzeichnis.
An den Stellen müsstest du nur den Code anpassen.
Entweder direkt in den Code Dateiname + Verzeichnis, oder im Code die Zellen anpassen, wenn in deiner Datei andere Zellen verwendet werden.
Und wenn du - jetzt - immer noch nicht weiterkommst, dann zeig bitte per Upload eine Bsp-Datei mit Bsp-Daten und dem Code.
Ciao
Thorsten
Anzeige
AW: Dateien in Verzeichnis suchen
20.12.2020 15:06:59
xtian
Hallo Oberschlumpf,
das habe ich auch sofort am Anfang gefunden. Das Problem besteht
wahrscheinlich mit "With Application.FileSearch". Nutze Excel 2016.
Hat vielleicht damit zu tun was ich bis jetzt nachlesen konnte.
Gruß
Christian
AW: Dateien in Verzeichnis suchen
20.12.2020 14:59:20
Hajo_Zi
Hallo Christian,
http://hajo-excel.de/gepackt/vba2007/ordner_auslesen_hyperlink2007.zip
da wird in Tabelle aufgelistet, das kann man dann als Grundlage für MsgBox benutzen.
Falls Link nicht ausgeführt wird:
1. Link kopieren
2. rechte Maustaste neues Fenter.
3. Umschaltstaste drücken und Klick auf den Link
4. STRG+ Link mit Maus aktivieren

Anzeige
AW: Dateien in Verzeichnis suchen
20.12.2020 15:03:15
xtian
Hallo Hajo,
leider sperrt mein PC den Download von deiner zip-Datei. Trotzdem
vielen lieben Dank für deine Hilfe.
Gruß
Christian
AW: Dateien in Verzeichnis suchen
20.12.2020 15:38:47
Günther
Moin,
warum quälst du dich mit VBA herum (wobei ich rein gar nichts gegen VBA habe), wenn es in deiner Version doch über Daten | Abrufen und transformieren recht komfortabel lösbar ist? Wenn du allerdings deine VBA-Kenntnisse verbessern und festigen willst, ist das ein unschlagbares und honoriges Argument.
 
Gruß
Günther  |  mein Excel-Blog
Anzeige
AW: Dateien in Verzeichnis suchen
20.12.2020 15:44:53
Nepumuk
Hallo Christian,
ein Beispiel:
Option Explicit

Public Sub Beispiel()
    
    Const FOLDER_PATH As String = "G:\Eigene Dateien\" 'Anpassen
    
    Dim astrFolders() As String, strFileName As String
    Dim ialngFolders As Long, strText As String
    
    astrFolders = GetFolders(FOLDER_PATH)
    
    For ialngFolders = LBound(astrFolders) To UBound(astrFolders)
        
        strFileName = Dir$(astrFolders(ialngFolders) & "*.pdf")
        
        Do Until strFileName = vbNullString
            
            strText = strText & strFileName & vbLf
            
            strFileName = Dir$
            
        Loop
    Next
    
    MsgBox strText
    
End Sub

Private Function GetFolders(ByVal pvstrPath As String) As String()
    Dim astrFolders() As String
    Dim strFolder As String, strPath As String
    Dim ialngIndex1 As Long, ialngIndex2 As Long
    Redim Preserve astrFolders(ialngIndex1)
    astrFolders(ialngIndex1) = pvstrPath
    ialngIndex1 = 1
    ialngIndex2 = 1
    strPath = pvstrPath
    Do
        strFolder = Dir$(PathName:=strPath & "*", Attributes:=vbDirectory)
        Do Until strFolder = vbNullString
            If strFolder <> "." And strFolder <> ".." Then
                If GetAttr(PathName:=strPath & strFolder) And vbDirectory Then
                    Redim Preserve astrFolders(0 To ialngIndex1)
                    astrFolders(ialngIndex1) = strPath & strFolder & "\"
                    ialngIndex1 = ialngIndex1 + 1
                End If
            End If
            strFolder = Dir$
        Loop
        If ialngIndex1 = ialngIndex2 Then Exit Do
        strPath = astrFolders(ialngIndex2)
        ialngIndex2 = ialngIndex2 + 1
    Loop
    GetFolders = astrFolders
End Function

Gruß
Nepumuk
Anzeige
AW: Dateien in Verzeichnis suchen
20.12.2020 15:58:53
xtian
Nepumuk, vielen Dank.
Funktioniert 1A!
Viele Grüße
Christian

301 Forumthreads zu ähnlichen Themen

Suchen in bestimmten Zellen von mehreren Dateien
mehreren

Hallo Excel und VBA Profis.
Dies ist mein erster Beitrag in diesem Forum - ich bin zu anderen Fragen bereits fündig geworden (erstklassiges Forum!), jedoch bin ich bei meinem aktuellen Problem mit meinem Latein am Ende und hoffe Ihr könnt mir weiterhelfen.
Ich habe ein digitales Archiv...
05.05.2009 10:30:21
Thread-ID: 1072994
9 Beiträge
Anzeige
Zellinhalt in geschlossen Dateien suchen..
Uwe

Guten Tag an Alle,
ist folgendes möglich?
wenn ich z.b. in Zelle A1 als Beispiel "ABC123" eingebe und auf enter drücke, dass dann in
C:Testordner mit jede Menge Unterordner die dann Paul;Hans;Klaus u.s.w. heißen in den geschlossenen Dateien geschaut wird ob das selbe auch in Zelle A...
06.08.2010 12:27:07
Thread-ID: 1170893
16 Beiträge
Verzeichnis + Dateien nach Zellinhalt durchsuchen
Patrick

Hallo,
ich benötige bitte eure Hilfe.
Folgendes Problem treibt mich um:
Ich möchte ein festes Verzeichnis (c:\test - enthält nur xls.-Dateien) durchsuchen.
Und zwar möchte ich das bei allen enthaltenen Dateien überprüft wird, ob auf dem
Worksheet "Daten" in der Zelle G6 "DE"...
10.05.2011 14:57:44
Thread-ID: 1213837
4 Beiträge
Anzeige
Bitte um Hilfe einen Hyperlink zu erstellen
Peter

Hallo,
Ich möchte ein Makro schreiben, dass sobald eine neue Datei erstellt ist, in einem anderen Tabellenblatt einen Hyperlink erstellt.
Das Problem vor dem ich stehe, ist folgendes: Wie schreibe ich einen Hyperlink, desen Namen erst in der Zukunft festgelegt wird, aber der Pfad scho...
20.03.2012 08:11:33
Thread-ID: 1255593
2 Beiträge
In Dateien suchen und ersetzen, einschl. Unterverz
guebla

Hallo Leute!
ich suche eine Routine die mir in den Excel-Dateien Inhalte (Wort) sucht und dieses dann durch _
ein anderen Inhalt (Wort) ersetzt. Beim Stöbern im Forum habe ich folgende VBA-Routine _ gefunden: Sub DateienÄndern() Dim blnGeändert As Boolean Dim lngZähler As Long Dim r...
11.06.2014 15:52:50
Thread-ID: 1365461
3 Beiträge
Dateien in Pfad suchen und nacheinander öffnen
Robin

Hallo Leute,
ich habe ein Programm geschrieben, wo manuell Dateien geöffnet und dann Daten importiert werden.
Nun will ich das Öffnen und Verarbeiten automatisieren.
Im Quellpfad soll nach Dateien mit dem Namensinhalt *Benutzer* gesucht werden.
Dann sollen alle Dateien nacheinan...
28.07.2014 09:36:43
Thread-ID: 1372657
3 Beiträge
Hyperlinks zu abweichenden Ordnernamen
Tim

Auf der Suche nach einer Lösung für mein Problem, bin ich auf dieses Forum gestoßen.
Ich habe gefühlt schon das gesamte Netz durchsucht. Allerdings weiß ich auch nicht wirklich wie ich danach suchen soll.
Und zwar habe ich eine Excel-Liste in der wir unsere Aufträge mit allen Abteilunge...
06.10.2014 11:24:44
Thread-ID: 1385030
7 Beiträge
Hyperlink auf Vorlagen in anderen Ordnern
MB12

Hallo zusammen,
erst mal ein großes Lob an die Kompetenz, die sich in diesem Forum zusammengefunden hat. Egal welches Excel-Problem ich habe: Am Schluss lande ich hier.
Problem Hyperlink:
Alle Ordner befinden sich auf unserem Abteilungs-Laufwerk.
Ordner (insg. 8), z.B.:
A ge...
11.10.2014 10:40:49
Thread-ID: 1386108
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
8
3
15
3
3
1
2
2
6
2
2
9
2
1
2
1
14
17
1
1
3
2
7
21
2