例子

zjl2009

我在网上找到一段代码，但不能运行，各位高手帮我修改一下：
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

看不懂，是VB么？
description.Create()可以直接调用？

ermine

第一次碰到这种问题。。。换个变量就行了。
你把所有的winle改为win1，就OK了，不晓得为什么。。感觉奇怪的

ermine

不是在VBS里，是在QTP中

bluesky1986007

是不是“Set winle=description.Create（）”中的winle的首字母没有大写？和你定义中的Winle不一样了

ermine

不是的，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

我按你的代码运行了一下，虽然运行可以，但是不能把原先打开的浏览器关掉，没实现它的功能。

prince198509

这段代码我也运行过，我也觉得他代码错了，怎么刚开始搞这么难的呀！WinIe啥意思