我到处都找过了,可以找到一种方法:
我创建了一个具有后期绑定的对象,如下所示:
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中的浏览选项一起使用,该选项还会为您提供引用的名称。