获取特定对象vba的库名称



我到处都找过了,可以找到一种方法:

我创建了一个具有后期绑定的对象,如下所示:

set objNtWork = CreateObject("WScript.Network")

现在我想在我的项目中添加一个引用到库中。

如何查找该对象的库名称?

Sub Alluding()
Dim o As Object
Set o = CreateObject("wscript.network")
Debug.Print TypeName(o)
End Sub

返回

IWshNetwork2

因此使用如下,添加参考Windows脚本主机对象模型:

Dim x As New WshNetwork
x.AddPrinterConnection "printername", "remotename"

因此将显示以下内容:

Sub Alluding()
Dim o As Object
Set o = CreateObject("wscript.network")
Debug.Print TypeName(o)

Dim w As New WshNetwork
Debug.Print TypeName(w)
End Sub

IWshNetwork2IWshNetwork2

相同:(

您可以使用windows注册表:

搜索";WScript.Network";在注册表编辑器中:

注册表编辑器视图1

然后在父密钥中,您将找到友好名称(Windows脚本主机网络对象(:注册表编辑器视图2

您还可以在InProcServer32密钥中找到ocx文件的位置。例如,您可以将其与Excel中的浏览选项一起使用,该选项还会为您提供引用的名称。

最新更新