Sub
MehrereOeffnen2()
Dim
strVerzeichnis
As
String
Dim
strDatei
As
String
Dim
strTyp
As
String
Dim
strDateiname
As
String
strTyp =
"*.csv"
Application.ScreenUpdating =
False
strVerzeichnis =
"C:\Users.........on Tests\Test"
strDateiname = Dir(strVerzeichnis & strTyp)
Do
While
strDateiname <>
""
Workbooks.Open Filename:=strVerzeichnis & strDateiname
Application.Run
"clean_File"
ActiveWorkbook.SaveCopyAs Application.Substitute(strDateiname,
".csv"
,
""
) &
".xls"
ActiveWorkbook.Close
strDateiname = Dir
Loop
Application.ScreenUpdating =
True
End
Sub