Hallo alle zusammen,
ich habe einen Code in der 2000er Version von Excel geschrieben, muss diesen aber jetzt mit Excel 2007 verwenden. Der Code enthält allerdings die Anweisung Application.FileSearch, welche in 2007 nicht mehr verwendet werden kann.
Ich möchte einen Ordner nach einer bestimmten Datei durchsuchen und wenn diese vorhanden ist, soll sie geöffnet werden.Hab schon einige Foren nach Lösungen durchsucht, aber sio richtig klappt das auch nich. Kann mir vielleicht jemand einen Tipp geben?
Hier erstmal die alte Version meines Codes, welcher im älteren Excel auch wunderbar funktioniert hat:
For ZF = 100 To 1500 Step 100
k = ZF / 10
VSgesamt = 0
Risk = 0
For Part = 0 To 100
With Application.FileSearch
.LookIn = "C:\Users\RD-081-SW\dser\Testdateien\14.03.2007\"
.Filename = ZF & "_" & k & "_Teil" & Part & ".xls"
If .Execute Then
Workbooks.Open Filename:= _
"C:\Users\RD-081-SW\dser\Testdateien\14.03.2007\" _
& ZF & "_" & k & "_Teil" & Part & ".xls"
Nun hab ich das wie folgt geändert:
For ZF = 100 To 1500 Step 100
k = ZF / 10
VSgesamt = 0
Risk = 0
For Part = 0 To 100
'With Application.FileSearch
' .LookIn = "C:\Users\RD-081-SW\dser\Testdateien\14.03.2007\"
' .Filename = ZF & "_" & k & "_Teil" & Part & ".xls"
' If .Execute Then
Set fs = CreateObject("Scripting.filesystemobject")
Set Pfad = fs.getfolder("C:\Users\RD-081-SW\dser\Testdateien\14.03.2007\")
If fs.FileExists(ZF & "_" & k & "_Teil" & Part & ".xls") Then
Workbooks.Open Filename:= _
"C:\Users\RD-081-SW\dser\Testdateien\14.03.2007\" _
& ZF & "_" & k & "_Teil" & Part & ".xls"
Obwohl die Dateien in dem angegebenen Ordner unter dem Namen vorhanden sind, werden sie nicht geöfftet, sondern das Programm geht aus der If-Schleife raus.
Würde mich sehr über Hilfe freuen.
Vielen Dank schonmal im Voraus.
LG Sylvia Weiher