如题，我想做一个实现多modflow交互的软件，但是老是实现不了，根据官网提供的代码去打开多个modflow时，一直都是只能打开一个。试了各种方法，实在不行，想请教各位。官网提供的代码入下：
'%RunPerInstance
'@ DESCRIPTION
'@ Macro recorded by Synergy on 07-五月-2018 at 10:35:24
SetLocale("en-us")
Dim SynergyGetter, Synergy
On Error Resume Next
Set SynergyGetter = GetObject(CreateObject("WScript.Shell").ExpandEnvironmentStrings("%SAInstance%"))
On Error GoTo 0
If (Not IsEmpty(SynergyGetter)) Then
Set Synergy = SynergyGetter.GetSASynergy
Else
Set Synergy = CreateObject("synergy.Synergy")
End If
不知道为什么不行，求大神赐教。’如果可以解决，可以给个小小的红包当做奖励

有人吗

我知道