自动向可用引用添加引用

首先,您需要允许对VBA项目进行编程访问。在Excel功能区上:开发人员->宏安全性并勾选“信任访问VBA项目对象模型”。然后您可以尝试以下操作:

ThisWorkbook.VBProject.References.AddFromFile "C:\Program Files\Simpack-2018x\run\bin\win64\_simpack-com-slv.exe"

大概是这样吧。

运行此命令以获取引用的GUID:

'******** Commented out but finds dependent GUID references in the project
'Dim obj As Object
'For Each obj In ThisWorkbook.VBProject.References
    'Debug.Print "Name: ", obj.Name
    'Debug.Print "FullPath: ", obj.FullPath
    'Debug.Print "Version: ", obj.Major & "." & obj.Minor
    'Debug.Print "GUID: ", obj.GUID

'Next obj
'*******************************

然后在代码模块中执行类似的操作,然后再添加引用。

'VBA
strGUID = "{000204EF-0000-0000-C000-000000000046}"

'ALERT: Don't slay me for On Error Resume Next
'I was doing this fairly quickly this morning
On Error Resume Next
ThisWorkbook.VBProject.References.AddFromGuid _
GUID:=strGUID, Major:=1, Minor:=0

我不会去交换VBA信托,那可能被认为是不好的行为。

干杯Wookie