Thomas Risi Softwareentwicklung
Addins - Datenbanklösungen - Komponenten - RTDServer - WebServices
InstanceCheck
Diese Funktion überprüft, ob bereits eine Instanz von Excel/Outlook/Word
geöffnet ist, und gibt einen boolschen Wert zurück.
Option Explicit
Private Function InstanceCheck(Server As String) As Boolean
Dim myInstance As Object
InstanceCheck = False
On Error Resume Next
Select Case UCase(Server)
Case "EXCEL"
Set myInstance = GetObject(, "excel.application")
Case "OUTLOOK"
Set myInstance = GetObject(, "outlook.application")
Case "WORD"
Set myInstance = GetObject(, "word.application")
End Select
If Not myInstance Is Nothing Then InstanceCheck = True
On Error GoTo 0
Set myInstance = Nothing
End Function
Private Sub Command1_Click()
MsgBox InstanceCheck("outlook")
End Sub
© 2001 -
by Thomas Risi