标题: 例子 [打印本页] 作者: zjl2009 时间: 2009-9-26 10:55 标题: 例子 我在网上找到一段代码，但不能运行，各位高手帮我修改一下：
Sub CloseWeb()
' 此处可以用到描述性编程，把先期打开的IE窗口全关闭
Dim WinIe,Ie,i,m
Set winle=description.Create()
WinIe("regexpwndtitle").value="Microsoft Internet Explorer" '所有页面的regexpwndtitle属性值都是" Microsoft Internet Explorer"，也可以用其他属性
Set Ie=desktop.ChildObjects(WinIe)
m=Ie.count
For i=1 to m
Ie(i-1).close ' 0为最后打开的一个,可关闭打开的几个
Next
End Sub
Call CloseWeb()
提示错误：类型不匹配：'Winle'作者: JDT 时间: 2009-9-26 11:06
看不懂，是VB么？
description.Create()可以直接调用？作者: ermine 时间: 2009-9-26 11:15
第一次碰到这种问题。。。换个变量就行了。
你把所有的winle改为win1，就OK了，不晓得为什么。。感觉奇怪的作者: ermine 时间: 2009-9-26 11:16
不是在VBS里，是在QTP中作者: bluesky1986007 时间: 2009-9-26 12:14
是不是“Set winle=description.Create（）”中的winle的首字母没有大写？和你定义中的Winle不一样了作者: ermine 时间: 2009-9-26 13:15
不是的，VBS不区分大小写的。
Sub CloseWeb()
' 此处可以用到描述性编程，把先期打开的IE窗口全关闭
Dim Win1,Ie,i,m
Set win1=description.Create()
Win1("regexpwndtitle").value="Microsoft Internet Explorer" '所有页面的regexpwndtitle属性值都是" Microsoft Internet Explorer"，也可以用其他属性
Set Ie=desktop.ChildObjects(Win1)
m=Ie.count
For i=1 to m
Ie(i-1).close ' 0为最后打开的一个,可关闭打开的几个
Next
End Sub
Call CloseWeb()
就把winle换成win1，是可以的作者: zjl2009 时间: 2009-9-28 14:49
我按你的代码运行了一下，虽然运行可以，但是不能把原先打开的浏览器关掉，没实现它的功能。作者: prince198509 时间: 2009-11-30 16:45 标题: 回复 1# 的帖子 这段代码我也运行过，我也觉得他代码错了，怎么刚开始搞这么难的呀！WinIe啥意思