Hallo Sandra,
Workbooks.Open() alleinstehend in Kombination mit On Error Resume Next zu verwenden ist weniger gut als direkt in eine Objektvariable zu "setten". Wenn Du jetzt noch zuvor geprüft hast, ob Dein zu öffnendes Workbook tatsächlich existiert, dann ist das doch ne runde saubere Sache.
Nachvollziehbares Beispiel:
Dim QWB As Excel.Workbook
If CreateObject(Class:="Scripting.FileSystemObject").FileExists("Pfad_inkl_Dateiname") Then
'*** Wenn Datei vorhanden, dann SET-Objektvariable
Set QWB = Workbooks.Open("Pfad_inkl_Dateiname")
Else
'*** Wenn Datei nicht vorhanden, reagiere wie folgt...
End If
|