如何列出Excel中所有打开的（当前正在运行的）应用程序？

Private Declare PtrSafe Function apiGetClassName Lib "user32" Alias _ "GetClassNameA" (ByVal Hwnd As Long, _ ByVal lpClassname As String, _ ByVal nMaxCount As Long) As Long Private Declare PtrSafe Function apiGetDesktopWindow Lib "user32" Alias _ "GetDesktopWindow" () As Long Private Declare PtrSafe Function apiGetWindow Lib "user32" Alias _ "GetWindow" (ByVal Hwnd As Long, _ ByVal wCmd As Long) As Long Private Declare PtrSafe Function apiGetWindowLong Lib "user32" Alias _ "GetWindowLongA" (ByVal Hwnd As Long, ByVal _ nIndex As Long) As Long Private Declare PtrSafe Function apiGetWindowText Lib "user32" Alias _ "GetWindowTextA" (ByVal Hwnd As Long, ByVal _ lpString As String, ByVal aint As Long) As Long Private Const mcGWCHILD = 5 Private Const mcGWHWNDNEXT = 2 Private Const mcGWLSTYLE = (-16) Private Const mcWSVISIBLE = &H10000000 Private Const mconMAXLEN = 255 Sub ListName() Dim xRg As Range Dim xStr As String Dim xStrLen As Long Dim xHandle As Long Dim xHandleStr As String Dim xHandleLen As Long, xHandleStyle As Long On Error Resume Next Set xRg = Application.InputBox("Please select a range（single cell）：", "KuTools For Excel", ActiveWindow.RangeSelection.Address, , , , , 8) If xRg Is Nothing Then Exit Sub xRg(1).Activate xHandle = apiGetWindow(apiGetDesktopWindow(), mcGWCHILD) Do While xHandle <> 0 xStr = String$(mconMAXLEN - 1, 0) xStrLen = apiGetWindowText(xHandle, xStr, mconMAXLEN) If xStrLen > 0 Then xStr = Left$(xStr, xStrLen) xHandleStyle = apiGetWindowLong(xHandle, mcGWLSTYLE) If xHandleStyle And mcWSVISIBLE Then ActiveCell.Value = xStr ActiveCell.Offset(1, 0).Activate End If End If xHandle = apiGetWindow(xHandle, mcGWHWNDNEXT) Loop End Sub

最佳办公生产力工具

在Word，Excel，PowerPoint中启用选项卡式编辑和阅读，发布者，Access，Visio和Project。 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。 每天将您的工作效率提高50％，并减少数百次鼠标单击！