prüfen, ob Datei bereits geöffnet ist
03.09.2004 20:20:36
Mike
ich öffne per Makro eine Datei. U.U. ist diese Datei jedoch schon geöffnet...
Nun möchte ich dieses Ereigneis mit einer Fehlermeldung abfangen und das erneute Öffnen besagter Datei verhindern...etwa so:
Sub Öffnen()
Dim Pfad as String, DateiName As String
Pfad = "Irgendwas"
DateiName = "AuchIrgendwas"
If Workbooks(DateiName)...bereits geöffnet Then
MsgBox("Datei bereits geöffnet"): Workbooks(DateiName).Activate
Else
Workbooks.Open Filename:=Pfad & DateiName
End If
End Sub
Falls jemand helfen mag, freue ich mich sehr darüber. Ansonsten:
ein entspanntes Wochenende von
Mike