excel的vba问题

Question

在excel的VBA脚本中运行如下代码：
Dim visioapplication As VISIO.Application
Dim visiodocument1 As VISIO.Document
Set visioapplication = CreateObject("VISIO.application")    '打开VISIO应用程序
Set visiodocument1 = visioapplication.Documents.Open("E:\111.vsd")  '打开特定文件
产生如下编译错误：不支持的对象库功能
这个是什么原因，该如何解决？

Answer 1

呵呵，很简单啦，你没有在execl中引用 visio对象库呀。

Answer 2

打过勾了，会不会是VISIO版本为2003的缘故？

Answer 3

引用visio对象库就可以了.你再试一下,应该没问题的.

Answer 4

同意 flyingZFX
你要先引用VISIO对象库。