Jak uzyskać identyfikator procesu bieżącej instancji programu Excel, za pomocą języka VBA, bez używania podpisu?

Question

Jak uzyskać identyfikator procesu bieżącej instancji programu Excel, w której działa mój kod VBA? Nie chcę pytać o to po nazwie w nagłówku, co powoduje problemy, gdy mam dwie lub więcej wystąpień programu Excel z tym samym podpisem.

Answer 1

Możesz użyć tej metody, aby uzyskać bieżący identyfikator procesu.

Declare Function GetCurrentProcessId Lib "kernel32"() As Long 

This page ma dobry przegląd dokładnie, jak można to zrobić w różnych wersjach programu Excel.

Answer 2

Jako n00b vba, kilka innych rzeczy nie wiedziałem

1. Stwierdzenie Declare idzie w górę. VBA będzie narzekać, jeśli instrukcja deklaruje dodaje się po deklaracji sub

   Na przykład, to będzie działać

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

   Ale to nie będzie działać

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

2. Oto jak wyświetlić PID w skrzynce z wiadomościami w vbscript

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

Nadzieja to pomaga komuś

Answer 3

Moje rozwiązanie w programie Excel 2013: w nowym module I dodaje następujący kod:

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

Public Sub Test() 
    Debug.Print GetCurrentProcessId 
End Sub