Thomas Risi Softwareentwicklung

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 ' Ein Aufruf könnte etwa so aussehen ... Private Sub Command1_Click() MsgBox InstanceCheck("outlook") End Sub

Bewerten Sie bitte dieses Programm.
1 2 3 4 5
Weniger nützlich Sehr nützlich
Bitte teilen Sie uns mit, warum Sie das Programm so bewertet haben. (optional)