VBAによるIE自動操作

Question

Sub ie_test()  

 

    Dim objIE As Object 

    Set objIE = CreateObject("InternetExplorer.Application")

    objIE.Visible = True     

   


    objIE.Navigate "https://www.yahoo.co.jp/"

 
    While objIE.ReadyState <> 4 Or objIE.Busy = True '.ReadyState <> 

        DoEvents  

    Wend

  
    objIE.Document.getElementByid("tabTopics3").Click

   

End Sub

VBAの初心者です。
Yahooのホームページにある「エンタメ」の要素を取得してクリックしたいのですが、上手くいきません。
記載したコードでは、どこがダメなのでしょうか。Yahooのサイトが表示されるだけで、エラーメッセージすら出てきません。

Answer 1

technocoreさんがコメントされた　全てのAタグ要素を取り出す方法　を実装しました。
[Microsoft HTML Object Library] の参照設定が必要となります。

'[Microsoft HTML Object Library] の参照設定が必要
Dim aElem As MSHTML.HTMLAnchorElement

'Aタグを順番に調べる
For Each aElem In objIE.Document.getElementsByTagName("A")
    If aElem.hasAttribute("href") Then
        Debug.Print aElem.Attributes("href").Value
        If InStr(1, aElem.innerHTML, "エンタメ") > 0 Then
            '「エンタメ」ページへ遷移
             objIE.Navigate aElem.Attributes("href").Value
             Exit For
        End If
    End If
Next aElem

Comments

[33sansan]

ありがとうございます。
無事にエンタメを選ぶことができました。

Answer 2

YahooのHTMLをみると、「tabTopics3」はliタグを指すIDです。
liタグはClickできません。
「エンタメ」のAタグを特定してClickを実行してください。

<li id="tabTopics3" class="_3bryYR6xkbIHcdZdbybgnd ENXbYBReWSw0fU0fDUlIP" role="tab" aria-selected="false"><a class="_1fWTm2E47ymhMM3suCaCGi rapidnofollow" data-ylk="rsec:tpen;slk:tab;pos:0;type:switch" href="https://news.yahoo.co.jp/categories/entertainment" data-rapid_p="3">エンタメ</a></li>

Comments

[33sansan]

お返事ありがとうございます。

objIE.Document.getelementsbytagname("a")(0).Click

上記のようなコードは知っているのですが、たくさんあるAタグの中からエンタメのAタグを取得するにはどのようなコードにすれば良いかご教示いただけないでしょうか。

[technocore]

getElementsByTagName("A")で全てのAタグ要素を取り出せます。

for eachで一つずつ取り出してその中から、innerTextが「エンタメ」のAタグを特定すれば良いです。

特定できなかった時の処理もあればベストです。