Mit VBA Verzeichnis durchsuchen und Datei öffnen
13.09.2014 18:58:18
Nihat
Ich bin am verzweifeln, denn ich finde einfach keine für mich einfach anzupassende VBA Lösung. Mein Problem:
Ich habe auf der Arbeit einen Ordner (mit Unterordnern), der unzählige PDF Dokumente enthält. Alle 2 Wochen kommt ein neuer Ordner mit weiteren PDFs hinzu. Diese PDF Dateien haben einen ca. 30 stelligen alpha nummerischen Namen, der im Mittelteil eine Kundennummer enthält. Diese Kundennummer kann durchaus bei mehreren Dateien vorkommen. Meine Kollegen und ich müssen täglich anhand der Kundennummer die zur Kundenakte gehörenden Unterlagen suchen und bearbeiten. Die Suche nervt und raubt uns den letzten Nerv, da wir manchmal die Unterlagen nicht finden (obwohl sie vorliegen) und ärger bekommen.
Eine VBA Lösung muss her.
Ich habe mir mit Google einige Codes zusammengesucht und bin auf eine relativ schlichte Lösung gestoßen, die ich anpassen konnte und super funktioniert.
ABER es durchsucht keine Unterordner.
HILFE..
Hier der Code:
Sub a_Dateisuche()
Dim suche As String
Dim Dateiname
strpfad = "C:\Users\mina\Testordner\" ' das ist mein Testordner auf dem _
_
heimischen Rechner
suche = InputBox("Bitte den Suchbegriff eingeben")
If suche = "" Then
MsgBox "Kein Dateiname eingegeben"
Else
Dateiname = Dir((strpfad & "*" & suche & "*")) 'Der Dateiname ist lang und enthält in der _
Mitte die Kundennummer. Daher durchsuche ich nur den Mittelteil
If Dateiname "" Then
'Workbooks.Open Filename:=pfad & Dateiname
ActiveWorkbook.FollowHyperlink strpfad & Dateiname
Else
MsgBox ("Sowas.... Nummer wurde ( noch ) nicht vergeben !!")
End If
End If
End Sub
Kann mir jemand helfen das Makro so zu gestalten, dass die Unterordner auch durchsucht werden?
Anzeige