«Ошибка автоматизации во время выполнения -2147417848 (80010108)«

Question

Я использую VBA excel для синтаксического анализа длинного списка локальных файлов .htm. Проблема в том, что я получаю ошибку даже до, программа начинает анализировать HTM-файлы.

Ошибка:

VBA код:

<!-- language: lang-html --> 
Enum READYSTATE 
READYSTATE_UNINITIALIZED = 0 
READYSTATE_LOADING = 1 
READYSTATE_LOADED = 2 
READYSTATE_INTERACTIVE = 3 
READYSTATE_COMPLETE = 4 
End Enum 
Sub ImportHTM() 

    'Dim ie As InternetExplorer 
    Dim ie As InternetExplorerMedium 
    Dim html As HTMLDocument 

    Set ie = New InternetExplorerMedium 
    'Set ie = New InternetExplorer 
    ie.Visible = False 
    ie.navigate "d:\Cloud\Dropbox\3.htm" 

    Do While ie.READYSTATE <> READYSTATE_COMPLETE 
     Application.StatusBar = "Loading Profile..." 'PROBLEM SEEMS TO BE HERE SOMEWHERE! 
     DoEvents 
    Loop 
    Set html = ie.document 
    Set ie = Nothing 
    Application.StatusBar = "" 

'code code code --> which at this point isn't executed because the error occures before 

Есть ли у вас какие-либо идеи, что может вызвать проблемы? У вас есть предложения по решению?

Также команда:

ie.Visible = False

, кажется, не оказывают никакого влияния, так как он открывает HTM-файл в новом окне IE.

Answer 1

Переместить обновление строки состояния из цикла.

Application.StatusBar = "Loading Profile..." 
Do While ie.Busy Or ie.READYSTATE <> READYSTATE_COMPLETE 
    DoEvents 
Loop 
Application.StatusBar = vbNullString 

Там нет необходимости переписывать то же самое сообщение в Application.StatusBar property сотни, если не тысячи раз, пока вы ждете на странице загрузки.

Относительно нового окна Internet.Explorer ', не наследующего атрибут .Visible = False, я рекомендую вам переключиться на .Navigate2 и ShellWindows.

Приложение: не уничтожайте объект ie, пока не закончите с html, связанным с ie.document.