| home |  
  

   © 2005 by Friedel Schmidt •  E-Mail  •                      Top  

   | impressum | feedback | home |  


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 StringAs 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.