怎样得到OLEObject的数据

怎样得到OLEObject的数据

excel中的一段代码
Sub tt()
Dim nx As OLEObject
For Each nx In ActiveSheet.OLEObjects

tx = nx.SourceName
tx = Mid$(tx, InStr(tx, "|") + 1)
tx = Mid$(tx, 1, Len(tx) - 2)
FileCopy tx, "d:\a.txt"
Next
End Sub

对开发没什么影响，ole/com object viewer只是用来看系统内com组件注册情况的工具，基本上里面的内容都是与注册表里对应的。真正需要使用什么组件的话，找到对应组件的头文件或类型库，应该和这个工具里的效果一样的。工具里面type libraries那个分支可以查到系统里已经注册的类型库，像微软的office注册的组件基本都在里面。