Gruppe
Datei
Problem
Es soll geprüft werden, ob eine Datie mit dem Namen Test.xls geöffnet ist. Wenn ja, ist sie zu aktivieren, wenn nein zu öffnen. Existiert die Datei nicht im Verzeichnis dieser Arbeitsmappe, ist eine entsprechende Meldung auszugeben.
StandardModule: Modul1
Sub DateiOeffnen()
Dim sFile As String, sPath As String
sFile = "Test.xls"
sPath = ThisWorkbook.Path & "\" & sFile
If WkbExists("Test.xls") = False Then
If Dir(sPath) = "" Then
MsgBox "Datei " & sPath & " wurde nicht gefunden!"
Else
Workbooks.Open sPath
End If
Else
Workbooks(sFile).Activate
End If
End Sub
Private Function WkbExists(sFile As String) As Boolean
Dim wkb As Object
On Error Resume Next
Set wkb = Workbooks(sFile)
If Not wkb Is Nothing Then
WkbExists = True
End If
On Error GoTo 0
End Function