Ordner öffnen, der bestimmt Zeichenfolge enthält

Hallo liebes Herber-Forum.
Ich habe wieder mal ein Problem, bei dem mir schon der Ansatz einer Idee zur Umsetzung fehlt.
Folgende Aufgabenstellung:
Aus unserem Abrechnungssystem ziehen wir verschieden Daten heraus, die wir überprüfen und in einer großen Excel-Datei abbilden. Ein Großteil der Prüfungen wird automatisch umgesetzt, ein Teil muss manuell nachgeprüft werden.
Für die manuelle Prüfung wird eine separate Fehlerliste erzeugt und an den jeweiligen Sachbearbeiter zur Bearbeitung versendet. Der Bearbeit macht in der jeweiligen Liste eine Bearbeitungsvermerk.
Nach der Bearbeitung werden aktualisierte Daten aus dem System gezogen und die Prüfung erfolgt erneut.
Das Problem dabei ist, dass in vielen Konstellationen zwar ein Fehler bearbeitet wurde, es aber eventuell noch weitere Fehler gibt, die dazu führen, dass die Fehlerliste nicht leer ist.
Es soll also vermieden werden, dass bereits geprüfte Fehler noch einmal bearbeitet werden. Daher ist es nötig, die Bearbeitungsvermerke einzuspielen. Und genau hier liegt das Problem. Folgende einfach Ordnerstruktur zur Verdeutlichung:
Ordner 1. Prüflauf
- Stammdatei (zum erzeugen der Prüfliste)
- Fehlerliste 1
- Fehlerliste 2
- Fehlerliste n
Ordner 2. Prüflauf
- Stammdatei (zum erzeugen der Prüfliste)
Ich befinde mich als nun im Ordner 2. Prüflauf in der Stammdatei und möchte aus den jeweiligen Fehlerlisten die Bearbeitungsvermerke importieren.
Mein Problem ist aber jetzt: wie steuere ich den richtigen Ordner an?
Bisher ermittle ich von der aktuellen Datei ausgehend den Indexr des Ordner (also hier die 2). Ich muss also als nächstes den Ordner mit dem Index 2-1 (also 1. Prüflauf) ansteuern und dann die entsprechende Prüfliste öffnen.
Konkret will ich also eine Ordnerstruktur nach einem bestimmten Zeichen durchsuchen, den Ordnernamen auslesen, der dieses Zeichen enthält ermitteln und den kompletten Namen des gefunden Ordners in eine Variable übernehmen. Die weitere Verarbeitung sollte ich dann selbst hin bekommen.
Hat jemand ein Idee, wie ich das anstellen kann?
Mfg Matze

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Tino. Danke für Deine Antwort. Du hast es fast richtig erfasst.


wie sieht deine Ordner Struktur aus?
Wie sind die Ordner benannt, wo steht der Index am Anfang, am Ende oder sonst irgendwo?

Die Ordnerstruktur sieht wie folgt aus:
C:\temp\Arbeitsordner\1. Ordner
C:\temp\Arbeitsordner\2. Ordner
C:\temp\Arbeitsordner\3. Ordner
.
.
.
C:\temp\Arbeitsordner\Ordner n
Der zu suchende Index Steht dabei immer als 1. Zeichen im Ordner-Namen des letzten Unterordners.


Und jetzt soll der Ordner Ordner 2-1 gefunden werden weil dieser den größten Index hat?
Gruß Tino

Ich kopiere die Ausgangsdatei in den jeweilig letzten Ordner, es soll immer die Prüfliste aus dem Index - 1ten Ordner geöffnet werden. Also wenn ich im 10. Ordner stehe die Datei aus dem 9. usw. Die Anzahl der Ordner hängt von der Häufigkeit der Prüfläufe ab und kann daher variieren. Es können also mal 10 und mal nur 3 sein.
Ich hoffe, dass hilft dir weiter.
Mfg Matze

Sub Beispiel() Dim strArbeitsOrdner$, sMaxSubFolder$ 'Pfad Arbeitsordner Ordner anpassen strArbeitsOrdner = "C:\temp\Arbeitsordner1" 'Suche Unterordner mit max Index sMaxSubFolder = FindSubFolderMaxIndex(strArbeitsOrdner) If sMaxSubFolder = "" Then 'nichts gefunden MsgBox "nix gefunden!" Exit Sub End If 'Ausgabe oder weitere Verwendung MsgBox sMaxSubFolder End Sub Function FindSubFolderMaxIndex(ByVal strPath$) As String Dim FSO As Object, FO As Object, FOSUB As Object Dim sName$ Dim tmpIndex&, lngIndex& Dim RegEx As Object strPath = strPath & IIf(Right$(strPath, 1) <> "\", "\", "") Set FSO = CreateObject("Scripting.FileSystemObject") If Not FSO.folderexists(strPath) Then Exit Function Set FO = FSO.GetFolder(strPath) Set RegEx = CreateObject("Vbscript.Regexp") With RegEx .MultiLine = False .Pattern = "^\d+" .Global = False End With For Each FOSUB In FO.subfolders If RegEx.test(FOSUB.Name) Then tmpIndex = CLng(RegEx.Execute(FOSUB.Name)(0)) If sName = "" Then sName = FOSUB.Name lngIndex = tmpIndex Else If tmpIndex > lngIndex Then sName = FOSUB.Name lngIndex = tmpIndex End If End If End If Next If sName <> "" Then FindSubFolderMaxIndex = strPath & sName & "\" End If Set RegEx = Nothing Set FSO = Nothing End Function

Function FindSubFolderMaxIndex(ByVal strPath$) As String Dim FSO As Object, FO As Object, FOSUB As Object Dim sName$, sVorlName$ Dim tmpIndex&, lngIndex& Dim RegEx As Object strPath = strPath & IIf(Right$(strPath, 1) "\", "\", "") Set FSO = CreateObject("Scripting.FileSystemObject") If Not FSO.folderexists(strPath) Then Exit Function Set FO = FSO.GetFolder(strPath) Set RegEx = CreateObject("Vbscript.Regexp") With RegEx .MultiLine = False .Pattern = "^\d+" .Global = False End With For Each FOSUB In FO.subfolders If RegEx.test(FOSUB.Name) Then tmpIndex = CLng(RegEx.Execute(FOSUB.Name)(0)) If sName = "" Then sName = FOSUB.Name lngIndex = tmpIndex Else If tmpIndex > lngIndex Then sVorlName = sName sName = FOSUB.Name lngIndex = tmpIndex End If End If End If Next If sName "" Then FindSubFolderMaxIndex = strPath & sVorlName & "\" End If Set RegEx = Nothing Set FSO = Nothing End Function

Beliebteste Forumthreads (12 Monate)

Ordner öffnen, der bestimmt Zeichenfolge enthält

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread