如何列出Excel中所有打開的（當前正在運行的）應用程序？

實際上，您可以列出所有打開的應用程序，這些應用程序僅在運行VBA代碼的Excel中按計算機中的Alt + Tab鍵時才顯示。 文章中的方法可以為您提供幫助。

用VBA代碼列出所有打開的（當前正在運行的）應用程序

用VBA代碼列出所有打開的（當前正在運行的）應用程序

請執行以下操作以列出Excel中所有打開的應用程序。

1.在Excel工作簿中，請按 其他 + F11 同時打開 Microsoft Visual Basic應用程序 窗口。

2.在 Microsoft Visual Basic應用程序 窗口，按我插入 > 模塊。 然后將VBA代碼復制并粘貼到“代碼”窗口中。 看截圖：

VBA代碼：列出Excel中所有打開的應用程序

Private Declare PtrSafe Function apiGetClassName Lib "user32" Alias _"GetClassNameA" (ByVal Hwnd As Long, _ByVal lpClassname As String, _ByVal nMaxCount As Long) As LongPrivate Declare PtrSafe Function apiGetDesktopWindow Lib "user32" Alias _"GetDesktopWindow" () As LongPrivate Declare PtrSafe Function apiGetWindow Lib "user32" Alias _"GetWindow" (ByVal Hwnd As Long, _ByVal wCmd As Long) As LongPrivate Declare PtrSafe Function apiGetWindowLong Lib "user32" Alias _"GetWindowLongA" (ByVal Hwnd As Long, ByVal _nIndex As Long) As LongPrivate Declare PtrSafe Function apiGetWindowText Lib "user32" Alias _"GetWindowTextA" (ByVal Hwnd As Long, ByVal _lpString As String, ByVal aint As Long) As LongPrivate Const mcGWCHILD = 5Private Const mcGWHWNDNEXT = 2Private Const mcGWLSTYLE = (-16)Private Const mcWSVISIBLE = &H10000000Private Const mconMAXLEN = 255Sub ListName()Dim xRg As RangeDim xStr As StringDim xStrLen As LongDim xHandle As LongDim xHandleStr As StringDim xHandleLen As Long, xHandleStyle As LongOn Error Resume NextSet xRg = Application.InputBox("Please select a range（single cell）：", "KuTools For Excel", ActiveWindow.RangeSelection.Address, , , , , 8)If xRg Is Nothing Then Exit SubxRg(1).ActivatexHandle = apiGetWindow(apiGetDesktopWindow(), mcGWCHILD)Do While xHandle <> 0xStr = String$(mconMAXLEN - 1, 0)xStrLen = apiGetWindowText(xHandle, xStr, mconMAXLEN)If xStrLen > 0 ThenxStr = Left$(xStr, xStrLen)xHandleStyle = apiGetWindowLong(xHandle, mcGWLSTYLE)If xHandleStyle And mcWSVISIBLE ThenActiveCell.Value = xStrActiveCell.Offset(1, 0).ActivateEnd IfEnd IfxHandle = apiGetWindow(xHandle, mcGWHWNDNEXT)LoopEnd SubCopy

3。 按 F5 鍵來運行代碼。 在彈出 Kutools for Excel 對話框，請選擇要列出所有正在運行的應用程序的單元格，然后單擊 OK 按鈕。 看截圖：

現在，所有打開的應用程序都會立即在所選列中列出，如下圖所示。

相關文章：如何在Excel中列出值的所有匹配實例？如何在Excel中將所有天都列為指定月份中的日期？

最佳辦公生產力工具

將小時轉化為分鐘 Kutools for Excel!

準備好增強您的 Excel 任務了嗎？ 利用的力量 Kutools for Excel - 您終極的節省時間的工具。 簡化復雜的任務并像專業人士一樣瀏覽數據。 以閃電般的速度體驗 Excel！

為什么需要 Kutools for Excel