Dateien nach Namen filtern und auswerten

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub AlleDateien() Dim strDatei As String Dim Monat As String Dim strSuchPfad As String 'Suchmonat kurz Monat = MonthName(12, True) 'Pfad der durchsucht werden soll strSuchPfad = "D:\VBA\" strDatei = Dir(strSuchPfad & "*" & Monat & "*") While strDatei > "" 'Ausgabe Dateiname Debug.Print strDatei 'nächste Datei im Ordner suchen strDatei = Dir Wend End Sub

Hi Tino
Ich hatte meinen PC schon zur Ruhe geschickt als Du mir eine neue Nachricht geschickt hast.
Ich habe die Datei '54976' übernommen und mir den Code angeschaut.
Dabei habe ich festgestellt, dass Du auf meine Info (siehe unten) bezüglich der
Schleife gar nicht eingegangen bist.


A B E R - die eingebaute Schleife, die z.B. die Dateien aus dem Juli suchen soll wird einfach ü _
bersprungen.
Mal abgesehen von diesem 'Wurm' hatte ich auf dem Arbeitsblatt 'Tabelle1' in der Zelle 'D2'  _
eine ComboBox mit dem Namen 'CboDatei' installiert und gedacht, dass man dort - ähnlich _
wie Du es bei Deinem ersten Vorschlag vorgesehen hattest - die über die Schleife gefundenen _
Dateien deponiert und für die weitere Verarbeitung abruft.
Ich habe schon mal versucht das Problem selbst zu lösen - aber ich kriege das einfach nicht hin. _
Dafür müsste die jetzt im Code stehende 'Empfang-Adresse' für die gefundenen Dateien doch auch geändert werden - oder?

Die Schleife überspringt im Code immer noch die Erstellung der 'strDatei' - Bezeichnung.
Ich habe die Details während dem 'Schritt-für-Schritt'-Ablauf überprüft und dabei
festgestellt, dass der Monat und das Jahr immer korrekt geändert werden.
Der Suchpfad wird auch korrekt angezeigt. Nur der Name des Users bleibt ihm unbekannt
und somit fabriziert er auch keine 'strDatei'.
In der ComboBox 'CboDatei' bewegt sich auch nichts. Da müssten sich doch so wie in
Deiner ersten Version die gefundenen Dateien z.B. des Monats Juli ansammeln.
Kannst Du da noch einmal reinschauen?
Noch eine Frage: Kann ich den Code den Du in die 'Tabelle1' geschrieben hast auch
in ein Modul nehmen? Wenn die Prg.Texte in einem Modul stehen kann man die doch
besser bzw.. einfacher kontrollieren.
Gruß
Ernst

Hi Tino
Ich habe mir die ganze Geschichte nochmal angesehen und denke, dass Du evtl. einige Dinge
nicht so richtig beurteilen kannst, weil die Adresse zum Server so furchtbar lang ist. Ich habe
deshalb das Ganze mal verkleinert - ist ja letztlich egal ob man 20-30 Dateien bearbeiten muss
oder nur 7.
Die Beurteilung des Codes bleibt dabei gleich. Ich habe hier eine 'ZIP'-Datei fabriziert und das
Laufwerk 'N' genommen. Die Laufwerkbezeichnung könntest Du nach Deinen Möglichkeiten ja
ändern. Dies ist nur in zwei Fällen notwendig.
Zum Ablauf noch ein paar Hinweise. Ich habe - weil das mit der Schleife einfach nicht klappen wollte -
auf dem Blatt 'Tabelle2' jene Teile vom Code - den Du mir unter der Nr. 54851 geschickt hattest -
platziert und mit etwas manueller Unterstützung läuft das auch.
Der Code auf dem Blatt 'Tabelle1' läuft nach der Übernahme über die Userform nur bis zur Schleife.
Ziel ist - die Daten der einzelnen User monatlich in eine Gesamtliste zu bringen und als Monatsbericht
des zufälligen Monats abzuspeichern. Dann wird sie nach versch. Kriterien wieder auseinander
genommen, beurteilt usw usw - aber so Etwas kennst Du bestimmt auch. Ist aber für die vorliegenden
VBA-Probleme unerheblich. Ich muss nur die Zusammenfassung schaffen.
Ich habe schon zwei Dateien auf das Monatsblatt kopiert - manuell natürlich - um Dir zu zeigen wie das
gemeint ist.
Ich hoffe, dass ich Dir durch meine Änderung die Probleme, die ich da jeden Monat verfluche, etwas
besser zeigen konnte.
Danke für Deine Geduld und frdl. Grüße
Ernst
https://www.herber.de/bbs/user/55003.zip

Beliebteste Forumthreads (12 Monate)

Dateien nach Namen filtern und auswerten

24
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Dateien nach Namen filtern und auswerten

24 Beiträge zum Forumthread Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

24
Beiträge zum Forumthread

Beiträge zu diesem Forumthread