无法调用IE浏览器，求助！

airwenlee

我的系统是win10x64位，ie11，测试了office2010和2016都无法调用IE浏览器。
之前默认浏览器是傲游浏览器，已经重新设置了IE浏览器为默认浏览器
可是下面代码还是默认调用了傲游浏览器，最后excel提示“该部件的许可证信息没有找到”


Sub 测试调用IE浏览器()
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate "https://www.baidu.com"
End Sub



测试调用IE浏览器.rar (10.01 KB, 下载次数: 4)

2019-3-9 17:39 上传

点击文件名下载附件

719404338

具体解决方法：
这里需要一个工具：vbcli.exe先了解一下这个小工具以下是摘自microsoft的帮助文件。
什么是 VB6Cli.exe？
VB6Cli.exe 是一种实用工具，它用于修复随 Microsoft Visual Basic 6.0 一起发行的 ActiveX 控件中的设计阶段许可证问题。此工具不会修复第三方控件以及 Microsoft Visual Basic 6.0 通常情况下不予安装的控件，也不允许使用 Visual Basic 6.0 专业版中的远程数据对象 (RDO) 对象。如果尝试使用 Visual Basic 6.0 专业版中的 RDO，则还可能遇到下面的症状 II 和症状 IV。启用 RDO 的唯一方法是安装 Visual Basic 6.0 企业版。

lkqsmxw

KKK<<<<<<<<<<<>>>>>>>>>>>>KKK

airwenlee

719404338 发表于 2019-3-9 19:04
具体解决方法：
这里需要一个工具：vbcli.exe先了解一下这个小工具以下是摘自microsoft的帮助文件。
什么 ...

试了下载了，但是也没有用

airwenlee

lkqsmxw 发表于 2019-3-9 19:29
KKK>KKK

你这个可以调用ie浏览器，但我是希望用Set IE = CreateObject("InternetExplorer.Application")

vbexcelhome

不光是傲游浏览器，360浏览器等等都会出现这种情况。
你可以不用CreateObject("InternetExplorer.Application")的方法，试试用外壳获得IE对象

1、手动启动IE浏览器，方法：点 开始——附件——32位IE浏览器，如果使用代码启动IE，请使用SHELL加上IE的路径。
2、写入以下代码
Set objShell = CreateObject("Shell.Application") '建立外壳对象
Set objShellWindows = objShell.windows '所有窗口对象
For Each objwindow In objShellWindows '查找IE对象
    If InStr(1, objwindow.FullName, "IEXPLORE.EXE", vbTextCompare) <> 0 Then'如果是浏览器
        objwindow.navigate "www.baidu.com"
        Exit For
    End If
Next

airwenlee

vbexcelhome 发表于 2019-3-9 22:13
不光是傲游浏览器，360浏览器等等都会出现这种情况。
你可以不用CreateObject("InternetExplorer.Applicat ...

重新安装系统就正常了