¿Cómo enumerar todas las aplicaciones abiertas (en ejecución actualmente) en Excel?

En realidad, puedes enumerar todas las aplicaciones abiertas que solo se muestran al presionar las teclas Alt + Tab en tu computadora en Excel utilizando código VBA. El método en este artículo puede ayudarte.

Enumerar todas las aplicaciones abiertas (en ejecución actualmente) con código VBA

Enumerar todas las aplicaciones abiertas (en ejecución actualmente) con código VBA

Por favor, sigue los siguientes pasos para enumerar todas las aplicaciones abiertas en Excel.

1. En un libro de Excel, por favor, presiona simultáneamente las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. En la ventana de Microsoft Visual Basic para Aplicaciones, presiona Insertar > Módulo. Luego copia y pega el código VBA en la ventana de Código. Ver captura de pantalla:

Código VBA: Enumerar todas las aplicaciones abiertas en 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

3. Presiona la tecla F5 para ejecutar el código. En el cuadro de diálogo emergente de Kutools para Excel, selecciona una celda donde deseas enumerar todas las aplicaciones en ejecución y luego haz clic en el botón Aceptar. Ver captura de pantalla:

Ahora todas las aplicaciones abiertas se enumeran inmediatamente en la columna seleccionada como se muestra en la siguiente captura de pantalla.

Descubre la Magia de Excel con Kutools AI

• Ejecución Inteligente: Realiza operaciones en celdas, analiza datos y crea gráficos, todo impulsado por comandos simples.
• Fórmulas Personalizadas: Genera fórmulas adaptadas para optimizar tus flujos de trabajo.
• Codificación VBA: Escribe e implementa código VBA sin esfuerzo.
• Interpretación de Fórmulas: Comprende fórmulas complejas con facilidad.
• Traducción de Texto: Supera las barreras del idioma dentro de tus hojas de cálculo.

Potencia tus capacidades de Excel con herramientas impulsadas por IA. ¡Descarga Ahora y experimenta una eficiencia como nunca antes!

Artículos relacionados:

• ¿Cómo enumerar todas las instancias coincidentes de un valor en Excel?
• ¿Cómo enumerar todos los días como fecha en un mes específico en Excel?