Option
Explicit
Const
sPath
As
String
= "C:\Users\volti\Desktop\"
Sub
CheckFileStart()
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
, WKb
As
Workbook
On
Error
Resume
Next
For
Each
oFile
In
oPath.Files
If
Err = 0
Then
With
oFile
Debug.Print .Path
If
.Path
Like
"*.xls*"
Then
Set
WKb = Workbooks.Open(Filename:=.Path)
With
.Sheets(1)
Call
Protokollkorrekturen
End
With
Call
WP_LA_speichern
WKb.Close
End
If
End
With
iAnz = iAnz + 1
End
If
Next
For
Each
oDir
In
oPath.Subfolders
CheckFile iAnz, sArr, oDir
Next
End
Sub