2017-02-13 6 views
1

Действительно оцените, может ли кто-нибудь помочь. Часть кода всегда выполняется в Run - время Ошибка enter image description here HTML, часть в картине enter image description herevba getElementById причина Ошибка во время выполнения '424'

Спасибо за внимание.

Sub HTML_Table_To_Excel() 
    Dim objIE As Object 
    Set objIE = CreateObject("InternetExplorer.application") 
    With objIE 
     .Visible = True 
     .navigate ("http://www.global-rates.com/interest-rates/libor/libor.aspx") 
    End With 
    While objIE.Busy 
    Wend 

    Dim HTMLDoc As Object 
    Set HTMLDoc = objIE.document 

    Dim EuroButton As Object 
    Set EuroButton = HTMLDoc.getElementById("btn_eur") 

    objIE.Quit 
    Set objIE = Nothing 
...... 
End Sub 
+0

В какой строке это происходит? Если вы положите перерыв на эту строку и подождите несколько секунд, прежде чем продолжить выполнение, все равно это не сработает? –

+0

@TimWilliams Set EuroButton = ..... Эта строка не срабатывает. И спасибо, Тим, если я поставил там точку останова и подожду какое-то время, подпрограмма не подведет. –

+0

Я думаю, вам нужно расширить свою проверку «Хотя IE.Busy»: см. Http://stackoverflow.com/questions/19334880/ie-busy-not-working-well-vba –

ответ

0

Это не идентификатор элемента - это имя тега; Set EuroButton = HTMLDoc.getElementsByTagName("btn_eur"), а затем, когда вам необходимо его заказать: EuroButton(0).[command here]

Смежные вопросы