异步调用dll

Question

我希望你能遵循这一点。问题到最后。

我有一个 Excel 2003 工作簿，其中包含要在 DOE（实验设计）中使用的值表。此工作表加载（通过 Workbook.Open）另一个工作簿并填充正确的字段，然后在第二个工作簿中运行计算（通过 Application.Run("backend.xla!calc")< /代码>）。

反过来，计算调用外部 .dll（编译为 Fortan）并等待其完成（通过 Declare SubCalculate Lib "fortran.dll" (args ））。每次运行需要 4 分钟。每个 DOE 可能有 7 到 21 次运行。最后，键值将被拉回到第一个工作簿中以显示结果。

请帮我想出一种方法来创建第二个工作簿的多个副本，并让它们同时（不同的 Excel 进程）分别计算（调用相同的 dll，使用不同的参数），以更好地利用 4 核处理器。

或者也许有某种方法可以直接异步调用外部函数。据我了解，Excel 2003 VBA 是单线程的，外部 dll 只能用作单例（我不确定）。

附言。请随意插话，说我几乎坚持顺序风格的计算。没关系，我可以接受。

Answer 1

这虽然又快又脏，但你应该明白了。这个概念是创建全新的 Excel 进程并从每个新进程打开工作簿：

Sub MakeNewProcess()
Dim xl As Application

    Set xl = New Application
    xl.Visible = True
    MsgBox "Check task manager and you'll see (at least) two EXCEL.EXE processes"
End Sub

我添加了消息框，因为在消息框上单击“确定”后，xl 变量超出范围，新进程将自动终止。如果您从此变量（即 xl.Workbooks.Open）运行您的 Workbooks.Open 方法，它应该可以到达您想要的位置。