While mit Fehlerabfrage
10.10.2008 16:57:00
Peter
forsche nun wieder stundenlang ohne echtes Ergebnis.
Ich möchte eigentlich nur einen Fehler abfangen, falls ein bestimmtes Tabellenblatt nicht vorhanden ist.
Vorweg: Alle Variablen sind richtig definiert.
Folgenden Code verwende ich:
While Datei <> "" 'Datei-Schleife...
Set wkbWork = appExcel.Workbooks.Open(Pfad & "\" & Datei)
Set shtWork = wkbWork.Worksheets("LQ_YP482780-5")
...
wend~f~
Nun der Versuch mit Fehlerabfrage:
~f~While Datei <> "" 'Datei-Schleife...
Set wkbWork = appExcel.Workbooks.Open(Pfad & "\" & Datei)
For Each Sheet In wkbWork
If Sheet.Name = "LQ_YP482780-5" Then
Exit For
Else
wkbWork.Close SaveChanges:=False
Set wkbWork = Nothing
Datei = Dir ' Nächste Datei
End If
Set shtWork = wkbWork.Worksheets("LQ_YP482780-5")
...
Wend
Nun habe ich aber das Problem, dass in dem zweiten Beispiel grundsätzlich die Fehlermeldung wend ohne while kommt!
Woran liegt das?
Hoffentlich kann mir jemand helfen.
Gruß
Peter