VBA Internet Explorer 加载和实现就绪状态特定网站的问题

Question

亲爱的朋友们 Vba 大师们，我的问题与我的页面不可能达到状态“就绪状态”有关。对于其他人来说，它适用于前任。 google.com 但我不知道为什么我的页面没有。奇怪的是，即使在状态 .Visible = false 和对象值为空的情况下，此页面也总是加载以查看。我想创建宏来登录此页面并控制一些活动 - 在此页面上您可以创建一些 excel 文件进行分析。我会很亲切的。 Mac.

Sub OpenKWM()
Dim URL As String
Dim IE As Object
Set IE = CreateObject("internetExplorer.application")
URL = "kwm.kromi.de"
   With IE
   .Navigate URL
  .Visible = True
  End With


 Do: Loop Until IE.readyState = READYSTATE_COMPLETE


End Sub

Answer 1

Strange things is that this page always load to view even in state .Visible = false , and object value od empty.

如果你查看relevant doc，你会发现这其实是一个合理的结果。创建的Internet Explorer window 是否可见取决于您是否调用了Navigate 方法或GoSearch 方法。当您调用这些方法时，window 将变为可见。

编辑：经过测试，发现问题的原因可能是IE设置中的Enable Protected Mode。您可以尝试禁用它：open IE -> Tools -> Internet Options -> security tab -> 取消选中选项 Enable Protected Mode。像这样：

VBA Internet Explorer 加载和实现就绪状态特定网站的问题

VBA Intenet Explorer issue with loading and achiving readystate specific webbsite

internet-explorer

vba

readystate