Hallo Burli,
hier mal eine Idee, wie Du den Ordner und alle Unterordner durchgehen kannst und Deine Aktionen durchführen kannst.
Const sPath As String = "C:\ControlApp\" 'Hier Hauptpfad anpassen
Sub CheckFileStart()
'Durchforsten von gefilterten Dateien aus Ordner und Unterordner
Dim iAnz As Long, sArr() As String, MsgTxt As String
CheckFile iAnz, sArr, CreateObject("scripting.filesystemobject").GetFolder(sPath)
If iAnz = 0 Then
MsgTxt = "Es wurde keine entsprechende Datei gefunden!"
Else
MsgTxt = "Es wurde(n) " & iAnz & " Datei(en) gefunden und bearbeitet!"
End If
MsgBox MsgTxt, vbInformation, "Dateibearbeitung"
End Sub
Sub CheckFile(iAnz As Long, sArr, oPath As Object)
Dim oFile As Object, oDir As Object
On Error Resume Next
For Each oFile In oPath.Files 'Ordner durchsuchen
If Err = 0 Then
With oFile
'Nicht getestet
Workbooks.Open Filename:=.Path
With Workbooks(2).Sheets(1) 'wofür steht (2) bzw (1)?
Call Protokollkorrekturen 'getestet und funktioniert
End With
Call WP_LA_speichern 'Speicherort und Name abhängig von Zelleninhalt, getestet und Funktioniert
Workbooks(2).Close
'Ende Nicht getestet
End With
End If
Next
For Each oDir In oPath.Subfolders 'Unterordner durchsuchen
CheckFile iAnz, sArr, oDir
Next
End Sub
viele Grüße
Karl-Heinz
|