
请问VB高手,用VB开发的VBA工具在本机上能用,但是换了台电脑就不能用,
两台电脑都用Office2007,安装路径也一样。不是宏安全级的问题。错误提示:Run-timeerror:5941集合所要求的成员不存在主要程序如下:Setwrd=Ge...
两台电脑都用Office2007,安装路径也一样。不是宏安全级的问题。
错误提示:Run-time error :5941
集合所要求的成员不存在
主要程序如下:
Set wrd = GetObject(, "Word.Application")
wrd.Visible = True
wrd.Documents.Open File1.Path & "\Query.htm"
nam = "Query"
wrd.Windows(nam).Activate
wrd.Selection.WholeStory
wrd.Selection.Copy
程序代码很多,换台电脑一遇到VBA就出错 展开
错误提示:Run-time error :5941
集合所要求的成员不存在
主要程序如下:
Set wrd = GetObject(, "Word.Application")
wrd.Visible = True
wrd.Documents.Open File1.Path & "\Query.htm"
nam = "Query"
wrd.Windows(nam).Activate
wrd.Selection.WholeStory
wrd.Selection.Copy
程序代码很多,换台电脑一遇到VBA就出错 展开
4个回答
展开全部
出现了这个错误,说明宏是允许运行的。
我想是在你的代码中没有进行错误捕捉。
如果你要求的对象引用等不存在时,是否可正常运行要捕捉错误。
我想是在你的代码中没有进行错误捕捉。
如果你要求的对象引用等不存在时,是否可正常运行要捕捉错误。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
Set Wrd = CreateObject("Word.Application")
Wrd.Visible = True
Wrd.Documents.Open File1.Path & "\Query.htm"
For Each objwindow In Wrd.Windows
If LCase(File1.Path & "\Query.htm") = LCase(objwindow.Document.FullName) Then
objwindow.Activate
Wrd.Selection.WholeStory
Wrd.Selection.Copy
Exit For
End If
Next
Wrd.Visible = True
Wrd.Documents.Open File1.Path & "\Query.htm"
For Each objwindow In Wrd.Windows
If LCase(File1.Path & "\Query.htm") = LCase(objwindow.Document.FullName) Then
objwindow.Activate
Wrd.Selection.WholeStory
Wrd.Selection.Copy
Exit For
End If
Next
追问
谢谢,你的答案就是最佳答案了,请讲一下问什么?
如果没时间解释,没关系!
我18:00时会把你的答案定为最佳答案
追答
wrd.Windows.item.caption 和 nam 引用的窗体名不一致
错误提示已经很明白了 集合所要求的成员不存在
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
会不会跟vb自带的类有关啊,打包的时候没把vb自带的打上吧
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询