InternetExplorer vs MSHTML2.XMLHTTP60 в VBA

Question

У меня возникает этот раздражительный синдром IE при попытке управлять формой IE VBA. Я намереваюсь открыть веб-сайт и искать конкретный файл (т. Е. XLS), а затем загрузить его.

Мой код:

Dim IE as InternetExplorer ' I could also use "Object" here 
Dim HTMLDoc as HTMLDocument 
Dim OHTML_Element as IHTMLElement 

Set IE = New InternetExplorer ' I could also use "InternetExplorerMedium" here 
IE.Silent = True 
IE.Navigate (sURL) 
IE.Visible = True 

Set HTMLDoc = IE.document 
mimtype = "Microsoft Office Excel 97-2003 Worksheet" 
For Each oHTML_Element In HTMLDoc.Links 
    If InStr(oHTML_Element.mimeType, mimtype) Then 
     If InStr(oHTML_Element.href, FileType) Then 
      ' Get the SOURCE file and DESTINATION files 
      SRCfile = mainURL & oHTML_Element.pathname 
      FileName = DESTPath & oHTML_Element.nameProp 
      'Download the file 
      ret = URLDownloadToFile(0, SRCfile, FileName, 0, 0) 
      'See if the download happened correctly 
      If ret = 0 Then 
       'all went well 
       GetFile = True 
      Else 
       MsgBox "There was a problem downloading the file.", vbCritical, "DOWNLOADING ERROR!" 
       GetFile = False 
       Exit Function 
      End If 
      Exit For 
     End If 
    End If 
Next oHTML_Element 

Теперь это казалось довольно последовательно работать в течение последних нескольких месяцев. За последние два дня система зависает после IE.navigate(sURL. В режиме отладки я могу четко видеть все поля объекта IE, который был создан, но после выполнения IE.navigate(sURL) все поля объекта исчезают, однако веб-сайт открывается правильно. Однако эта проблема не очень «последовательна», поэтому она может исчезнуть или не стать ее раздражительной! Это «исчезающие» поля опасны, так как в дальнейшем у меня есть условие if, чтобы проверить, пусты ли поля, если True для выхода.

Просто немного фона, я на Win 7, IE 11 (обновлено вчера после этой проблемы на IE 10, ранее он работал с IE 10 в течение нескольких месяцев)

После траления в WWW, по-видимому некоторые ppl испытывают эту проблему. В качестве решения на Stackoverflow было предложено использовать MSHTML.XMLHTTP60. Итак, я попытался,

Dim IE as MSHTML2.XMLHTTP60 
Dim HTMLDoc as MSHTML.HTMLDocument 
Dim HTMLBod as 

Set IE = new MSHTML2.XMLHTTP60 
IE.open "Get", sURL, False 
IE.send 

Set HTMLDoc = new MSHTML.HTMLDocument 
HTMLDoc.body.innerHtml = IE.responseText 

???? How do I proceed further to "search" for a XLS file and gets its "href" link? 

Я пытался смотреть на данные (с помощью Watch Window) внутри HTMLDoc (с использованием MSHTML) и HTMLDoc (используя InternetExplorer) данные не кажутся одинаковыми. Поэтому моя предыдущая процедура «поиск mime-типа & href и загрузка» не будет работать.

Я буду очень признателен, если кто-то может пролить свет на него. Я ищу решение, которое будет либо помочь мне исправить непоследовательное поведение с InternetExplorer или раствором с помощью MSHTML2

Answer 1

Ну ... после борьбы с ним в течение более 48 часов и траления в Интернете и не найдя ничего, что бы решить мою dim IE as InternetExplorer тип объекта, я, наконец, скрестил пальцы, решил проблему сбой IE.Navigate(url).

Эта ошибка, похоже, происходит из-за некоторых «неправильных» настроек в браузере IE, возможно, вы изменили настройку самостоятельно, или некоторые надстройки или некоторые другие действия могли бы изменить эти параметры. Всемогущий «СБРОС» на помощь! В диалоговом окне «Свойства обозревателя IE» есть кнопка «СБРОС», это сбрасывает IE до стандартных настроек, и все проблемы исчезли после того, как я это сделал!