VBA中错误：应用程序定义或对象定义错误

[lgyan001]

引用Mircosoft Visual Basic for Application Extensibility 5.3
在EXCEL的VBA中增加一个过程

Public Sub Test()
Dim vbP As VBProject
'在运行下行代码时出现错误：应用程序定义或对象定义错误
Set vbP = ThisWorkbook.VBProject

End Sub

各位大侠可知道是什么原因？

[lgyan001]

Refresh

[迈克揉索芙特]

Dim vbProj As Object
Set vbProj = ThisWorkbook.VBProject

[northwolves]

EXCEL 2003 下调试通过:
Sub Test()
Dim vbP As New VBProject
Set vbP = ThisWorkbook.VBProject
Dim x() As String, i As Integer
ReDim x(1 To vbP.References.Count)
For i = 1 To vbP.References.Count
x(i) = vbP.References(i).Description
Next
MsgBox Join(x, vbCrLf)
End Sub

[lgyan001]

感谢两位的回答，可惜跟没说一个样

[jobs002]

Set vbP = new ThisWorkbook.VBProject

[northwolves]

你们的EXCEL什么版本?我这里运行没问题

[northwolves]

如果防火墙打开了,关闭试试

[jobs002]

呵呵，不好意思.............

[lgyan001]

哎，感谢各位的回答

可是各位回答的是来解决问题的吗？

Set vbP = new ThisWorkbook.VBProject???

这也能想出来？

[迈克揉索芙特]

为了弥补我的过失，我调试了半天时间。结果还是没成功。
但我报的错误跟你的不一样，提示：方法xxx作用于xxx失败。

Dim vbP As VBIDE.VBProject
Set vbP = VBAProject.ThisWorkbook.VBProject

[jobs002]

没注意看，但楼主的信誉分似乎太少了....................,没意思........

[DawnPine]

标准答案来了:

菜单-工具-宏-安全性
勾选 信任对于“Visual Basic项目”的访问
确定

打完收工

[jobs002]

我的帖子不可能没有价值，如果现在我连拍三下胸脯，说一句我做的对，我可以做到，我问心无愧，你可以做到吗？？？再次强调:非常鄙视信誉分底的.....................

[lgyan001]

谢谢DawnPine(拂晓的松)的回答，解决了我的问题

to:jobs002(出来混的，迟早都是要还的........)
我的信誉分是因为我有几个贴子没结的原因，如果我贴子中的问题解决了，我自然会结，如果没有解决，我也不会为结贴而去结贴！！！