Navigation

Hvordan kan man tælle hvor mange Excel session der er åben i Joblisten.

Jeg har forsøgt med denne kode, men den giver kun svar på om excel kører eller ej.

Nederst i mail  er der et skærmbillede som viser EXCEL(5) og det er netop det resultat jeg ønsker  

Private Function IsProcessRunning(ByVal ProcName As String) As Boolean

    Dim objWMIService, objProcess, colProcess
    Dim strComputer, strList

    strComputer = "."

    Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" _
    & strComputer & "\root\cimv2")

    Set colProcess = objWMIService.ExecQuery _
    ("Select * from Win32_Process")

    For Each objProcess In colProcess
        If CBool(InStr(1, objProcess.Name, ProcName, vbTextCompare)) Then
            Stop
            'IsProcessRunning = True
            'Exit Function
        End If
    Next

End Function

Sub test()

    MsgBox IsProcessRunning("EXCEL")

End Sub

Navigation

VBA hvor mange Excel session er der åbnet