Wie erhalten Sie die Prozess-ID der aktuellen Excel-Instanz über VBA, ohne die Beschriftung zu verwenden?

Question

Wie kann ich die Prozess-ID der aktuellen Excel-Instanz abrufen, in der mein VBA-Code ausgeführt wird? Ich möchte nicht nach dem Namen in der Beschriftung fragen, der Probleme verursacht, wenn ich zwei oder mehr Excel-Instanzen mit der gleichen Beschriftung habe.

Answer 1

Sie können diese Methode verwenden, um die aktuelle Prozess-ID abzurufen.

Declare Function GetCurrentProcessId Lib "kernel32"() As Long 

This page hat einen guten Überblick über genau, wie Sie es in verschiedenen Versionen von Excel zu tun.

Answer 2

Als vba n00b, einige andere Dinge, die ich wusste nicht,

1. Die Anweisung Declare an der Spitze geht. VBA wird sich beschweren, wenn die declare-Anweisung nach einer Unter Erklärung eingefügt wird

   Zum Beispiel diese

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

   arbeiten Aber dies wird nicht funktionieren

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

2. Hier ist, wie wir die PID Anzeige in einer MessageBox im Vbscript

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

Hoffnung hilft dieses jemand

Answer 3

Meine Lösung in Excel 2013: in einem neuen Modul, ich den folgenden Code hinzugefügt:

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

Public Sub Test() 
    Debug.Print GetCurrentProcessId 
End Sub