Inhaltsverzeichnis
Suchen
Links
|
|
Abfragen ob Datei bereits geöffnet ist
Versionen: Excel 97
Sicher hat das fast jeder schon mal erlebt: Per Makro soll eine Mappe geöffnet werden. doch diese ist schon geöffnet. Dadurch kommt es zu unerwünschten Fehlermeldungen und das Makro stoppt seinen Ablauf.
Folgendes Makro und die dazugehörige Function vermeiden dies:
Option Explicit
Function WorkbookExists(strFile As String) As Boolean
Dim wkb As Object
On Error Resume Next
Set wkb = Workbooks(strFile)
If Err = 0 And Not wkb Is Nothing Then
WorkbookExists = True
End If
On Error Goto 0
End Function
Sub Abfrage()
Dim strFile As String
strFile = "Tabelle1.xls"
Dim strPath As String
strPath = "C:\Eigene Dateien\"
If WorkbookExists(strFile) Then
Windows(strFile).Activate
Else
Workbooks.Open (strPath & strFile)
End If
End Sub
Das Makro prüft zunächst unter Zuhilfenahme der Function WorkbookExists ob die entsprechende Datei bereits geöffnet ist. Ist dies der Fall, wird die Mappe aktiviert, anderenfalls wird die Mappe geöffnet.
|