|
Hallo,
ich Beschäftige mich seit ca. 1 Monat mit der VBA Programmierung. Bin da also ein Anfänger.
Ich habe mir ein Code zusammengestellt um mit dem Aufruf "ChDrive" die Oberfläche zu öffnen, um die Textdateien Auszuwählen in der die Suche statt finden soll.
Leider habe ich da ein Problem. Mit diesem Code durchsucht die Excel das Verzeichniss kommplett, anstatt die Ausgewählten Dateien.
Kann mir dies einer umstellen und wenn möglich eine erklärung dazu geben ?
Sub Suche_in_TXT()
Dim sWord As String, sPath As String, sSearchPath As String, FileName As String, InputData
Dim AnzFound As Integer
AnzFound = 0
sWord = "Failed" 'Suchwort
sSearchPath = "C:\Users\XXX\Desktop\Analyse Excel\Protokolle\*.txt"
ChDrive "C:"
ChDir "C:\Users\XXX\Desktop\Analyse Excel\Protokolle"
'sPath = "C:\Users\XXX\Desktop\Analyse Excel\Protokolle\"
fileToOpen = Application.GetOpenFilename("Text-Dateien,*.txt," & _
"Alle Texdateien,*.txt", 2, "Textdatei auswählen", , True)
FileName = Dir(sSearchPath)
If FileName <> "" Then
Do While FileName <> ""
Open sPath & FileName For Input As #1
Do While Not EOF(1)
Line Input #1, InputData
If InStr(1, InputData, sWord) > 0 Then 'Zeile mit Suchwort gefunden
AnzFound = AnzFound + 1
Sheets("Analyse_Alle").Cells(AnzFound, 1) = FileName
Sheets("Analyse_Alle").Cells(AnzFound, 2) = InputData
End If
Loop
Close #1
FileName = Dir
Loop
End If
End Sub |