vbaで非同期関数呼び出しを行う方法

Question

pywin32を使用してPythonでカスタムオブジェクトを作成しました。そのオブジェクトを呼び出す間に何度かかかります。 以下は、マクロが動作している間にアプリケーションがフリーズしないように、アプリケーションのstatに関して非同期にすることです。

Sub demo() 
    demofunction 
End Sub 

Function demofunction() 
    Dim demoobj As Object 
    Do While demoobj Is Nothing 
     DoEvents 
     Set demoobj = CreateObject("Python.DemoObj") 
    Loop 
    Debug.Print demoobj.Hello 
End Function 

明らかに、コードは非同期実行に関しては機能しません。これはどんな方法でも可能ですか？

上記のコードは、しばらくの間アプリケーションをフリーズしながら正常に動作します。

Answer 1

Vbaはシングルスレッドですが、立ち上がりの星型WebサーバーNode.jsが1つのスレッドから機能していて、マルチスレッドの印象を与えた後に、いくつかのトリックを実行してマルチスレッドにすることができます。

1）したがって、いくつかのPythonコンポーネントをWebサーバーの背後に置き、MSXML2.XMLHTTP60を非同期で使用することができます。 Private WithEvents oXHR As MSXML2.XMLHTTP60が便利です。 （WithEventsを使用するクラスのメンバーとして宣言する必要があることに注意してください）

2）あなたは別のスレッドを提供するプロセスにシェルし、Pythonコンポーネントをそのように呼び出すことができます。プロセスが完了したかどうか定期的に確認するAPI呼び出し。