既然上一篇将visum的COM开了个头,那么接下去总结一些用VBA编写的一些调用语句。
1 首先设置visum的对象
Set Visum = CreateObject("Visum.visum." & VisumVers)
这里的VisumVers为电脑安装的visum版本,可以是11也可以是12也可以是13等等。具体可以通过regedit来查看注册表中到底是那个版本。当然因为visum还有可能是12.5或者12.0版本,此时用12只能指定你最后安装的那个12区段的版本。所以可以明确指定是120还是125,以此类推。
还有可能遇到的问题是,除了版本之分,还有32位和64位之分,如果你同时安装了一个version的两个visum,那么还需要指定,只需要改成“Visum.visum.32-”就可以了。
2 加载visum文件
Visum.LoadVersion (Exe_version)
Visum.Filters.InitAll
其中,Exe_version是.ver文件的地址,而下一句指的是将文件中的所有filter初始化
3. 获取一些网络对象的属性值
Actlinks = Visum.Net.Links.GetAllActive
For