VBAでIE操作。クリック(選択)できません。

Question

　Dim em As MSHTML.HTMLAnchorElement

  For Each em In objie.Document.getElementsByTagName("a")

  If em.hasAttribute("href") Then

  Debug.Print em.Attributes("href").Value

  If InStr(1, em, innerHTML, "vendor manaegement") > 0 Then

  objie.Navigate em.Attributes("href").Value

  Exit For

  End If

  End If

  Next

下記のようなHTMLで、Vendor managementをクリックしたいのですが、どのようなコードを実装すれば良いでしょうか。上記のようなコードを作ってみたのですが、何も起こりませんでした。
ご教示いただけますと幸いです。

<LI CLASS="kid"><IMG WIDTH="10" SRC="/images/bullet.gif"><A TARGET="nav" onMouseOver="window.status='XXXXXXX';return true;" HREF="toc.asp?PP=freelancedbtoc.xml&amp;tocPath=XXXXXX" TITLE="Vendor Management">Vendor Management</A></LI> <UL CLASS="hdn"> </UL>

Comments

[tosi]

https://teratail.com/questions/260328
こちら参考になりませんか。
IMGタグを取得してinputTag.Clickでクリックしているサンプルです。

[33sansan]

返信が遅れてしまい、申し訳ございません。
過去の質問を提供してくださり、ありがとうございます。
参考にさせていただきます。

Answer 1

Debug.Print em.Attributes("href").Value
の結果は何が返ってきていますか?

Attributes("href").Valueで得られるのは単にhrefアトリビュートの値なので、
そのままの値でNavigateしても移動しないかもしれません。

私は、以前フルパスURLに作りなおして対応したことがあります。
具体的には、

objie.navigate(objie.document.Location.protocol & "//" & objie.document.Location.host & em.Attributes("href"))

Comments

[33sansan]

返信が遅れてしまい申し訳ございません。
頂いた回答を参考にさせていただきます。
ありがとうございました。

Answer 2

過去の回答を参考にしてください。

VBAを使用したIE操作
https://teratail.com/questions/277380

Comments

[33sansan]

申し訳ございません。同じ質問でしたが、以前の回答のコードでも何は起きず、エラーメッセージも起きませんでした。
通常、そこをクリックすると、その下にさらに選択する項目が表示されるようなページなのですが、何か特殊なコードを使用するのでしょうか？