2017-02-13 12 views
1

本当に助けていただければ幸いです。 コードの一部は、常に実行に実行 - 時エラー 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

あなたは 'While IE.Busy'チ​​ェックを拡張する必要があると思います:http://stackoverflow.com/questions/19334880/ie-busy-not-working-well-vba –

答えて

0

これは要素IDではなく、タグ名です。 Set EuroButton = HTMLDoc.getElementsByTagName("btn_eur")注文する必要がある場合:EuroButton(0).[command here]

関連する問題