¿Cómo obtener el ID de proceso de la instancia de Excel actual, a través de VBA, sin usar el título?

Question

¿Cómo puedo obtener el ID de proceso de la instancia actual de Excel en la que se ejecuta mi código VBA? No quiero pedirlo por el nombre en el título, lo que causa problemas cuando tengo dos o más instancias de Excel con el mismo título.

Answer 1

Puede utilizar este método para obtener la identificación del proceso actual.

Declare Function GetCurrentProcessId Lib "kernel32"() As Long 

This page tiene una buena visión general de cómo exactamente se puede hacer en varias versiones de Excel.

Answer 2

Como n00b VBA, algunas otras cosas que no sabían

1. La instrucción Declare va en la parte superior. VBA se quejará si se introduce la instrucción declare después de una declaración sub

   Por ejemplo, esto va a funcionar

   Declare Function GetCurrentProcessId Lib "kernel32"() As Long 
   
   Sub Update 
       ... 
       ... 
   End Sub 
   

   Pero esto no funcionará

   Sub Update 
       ... 
       ... 
   End Sub 
   
   Declare Function GetCurrentProcessId Lib "kernel32"() As Long 
   

2. Aquí es cómo mostramos el PID en un cuadro de mensaje en vbscript

   Set app = CreateObject("Excel.Application") 
   MsgBox("Excel PID is " + CStr(app.Run("GetCurrentProcessId"))) 
   

Espero que esto ayude a alguien

Answer 3

Mi solución en Excel 2013: en un módulo nuevo, he añadido el siguiente código:

Private Declare Function GetCurrentProcessId Lib "kernel32"() As Long 

Public Sub Test() 
    Debug.Print GetCurrentProcessId 
End Sub