VBA - 获取任务栏应用程序

我在网上找到了一个代码:

Public Sub showProcesses()
    Dim W As Object
    Dim ProcessQuery As String
    Dim processes As Object
    Dim process As Object
    Set W = GetObject("winmgmts:")
    ProcessQuery = "SELECT * FROM win32_process"
    Set processes = W.execquery(ProcessQuery)
    For Each process In processes
        MsgBox process.Name
        MsgBox process.Description
    Next
    Set W = Nothing
    Set processes = Nothing
    Set process = Nothing
End Sub

它打印出所有活动进程的名称和描述.

例:

OUTLOOK.EXE

EXCEL.EXE

但是,任务管理器中还有另一个选项卡显示应用程序(在任务栏中找到相同的选项卡).我想创建一个读取其名称的程序.

例:

在我的任务栏Chrome,Outlook和Excel是打开的应用程序,所以我希望我的程序打印出来:

Microsoft Excel - Book1

收件箱 - Somerandomemail@thisisnotreal.yzbbr

VBA - 获取任务栏应用程序(< - Chrome)