Datei in Ordner suchen und Pfad ausgeben
23.12.2015 15:16:21
Robin
ich habe folgendes Problem:
Ich habe eine Userform auf der eine Textbox1 ist die von einer anderen Userform einen Wert Vorname &" "& Nachname übergeben bekommt. Durch ein Change - Ereignis der Textbox1 möchte ich nun das durch VBA ein festgelegtes Verzeichnis, nach einer .xlsm Datei durchsucht wird die im Dateinamen Vorname &" "& Nachname enthält wie in Textbox1 und wenn die Suche übereinstimmt, soll der Pfad und der Dateiname als AddItem in der Listbox2 hinzugefügt werden.
Ich habe das ganze mal probiert aber mit dem Versuch die .xlsm Dateien zu öffnen und den Wert in Tabelle Packliste; jede .xlsm enthält die Tabelle Packliste in dem festen Verzeichnis, mit dem Wert meiner Textbox1 zu vergleichen jedoch ohne Erfolg.
Aber mir wäre es sowieso lieber wenn der Dateiname mit der Textbox1 verglichen würde.
Hier mein alter nicht funktionierender Code:
Option Explicit
Dim Obj As Object
Dim AnzDateien As Object
Dim Durchläufe As Object
Dim Dateityp As Object
Const Verzeichnis = "Mein_fesgelegtes_Verzeichnis(Beispiel)"
Private Sub txt_patname_Change()
Me.ListBox2.Clear
Prüfung_start
End Sub
Private Sub Prüfung_start()
Set Obj = CreateObject("Scripting.FileSystemObject")
Set AnzDateien = Obj.getfolder(Verzeichnis)
Prüfung
End Sub
Private Sub Prüfung()
Application.ScreenUpdating = False
Dim a As Integer
For Each Dateityp In AnzDateien.Files
If Right(Dateityp.Name, 5) = ".xlsm" Then
Workbooks.Open (Dateityp.Path)
For a = 1 To 6
If ActiveWorkbook.Sheets("Packliste").Cells(a, 1) = Me.txt_patname.Text Then
Me.ListBox2.AddItem Dateityp.Path
Exit For
End If
Next
ActiveWorkbook.Close True
End If
Next
For Each Durchläufe In AnzDateien.subfolders
Set AnzDateien = Durchläufe
Prüfung
Next
End Sub
Bin für jede Hilfe dankbar!
MfG