Print side | Luk vindue

VBA hvor mange Excel session er der åbnet

Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Makro og VBA
Forum beskrivelse: Hjælp til Makroer og VBA-programmering
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=4289
Udskrevet den: 22.Nov.2024 kl. 22:12


Emne: VBA hvor mange Excel session er der åbnet
Besked fra: fiajakt
Emne: VBA hvor mange Excel session er der åbnet
Posteringsdato: 04.Jun.2020 kl. 10:25

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


Print side | Luk vindue