Überprüfen ob Excel geöffnet ist

• Überprüfen ob Excel geöffnet ist von Tim vom 10.12.2003 10:45:44
  • AW: Überprüfen ob Excel geöffnet ist - so: - von Galenzo am 10.12.2003 11:41:43

Betrifft: Überprüfen ob Excel geöffnet ist
von: Tim
Geschrieben am: 10.12.2003 10:45:44
Hallo,

ich möchte aus VB heraus überprüfen ob ein bestimmte Excel Mappe (z.B.: E:\....) geöffnet ist. Falls dies der Fall ist, soll verhindert werden, dass eine neue Mappe geöffnet wird. Ich dachte an eine Funktion, die das Geöffnet sein von Excel überprüft. Wie könnte diese aussehen?

Gruß Tim

Betrifft: AW: Überprüfen ob Excel geöffnet ist - so:
von: Galenzo
Geschrieben am: 10.12.2003 11:41:43
Hallo,
dazu könntest du diese Funktion benützen:

Function MappeOffen(sDatei As String) As Boolean
    Dim oMappe As Object
    On Error Resume Next
    Set oMappe = Workbooks(sDatei)
    If Not oMappe Is Nothing And Err = 0 Then
        MappeOffen = True
    End If
    On Error GoTo 0
End Function

Übergabeparamter ist der Dateiname,
Rückgabewert Boolean: True, wenn Mappe geöffnet ist.

Viel Erfolg