VBA Excelラベルをクリック

Question

Excel VBAを初めて使用しています。私は現在、Webページ上のラベルをクリックしたいIE AutomationをExcelしています。

HTMLソースコードは次のとおりです。

<td class = t19TabItem><a href="javascript:apex.submit('D_Price');">Compliance</a></td> 

ラベルのコンプライアンスをクリックするすべてのヘルプ。

以下のコードを使用し、内部HTMLを使用してラベルの準拠を検出しましたが、コンプライアンスタブをクリックしません。オブジェクトはこのプロパティではないので、エラーをスローします。

set link=IE.document.getElementsByTagName("a") 
if link.InnerHTML="compliance" and link.href="javascript:apex.submit('D_Price')" then 
    click link 
end if 

コンプライアンスラベルをクリックするには？

Answer 1

のMicrosoft HTMLオブジェクトライブラリ

Microsoftインターネットコントロール**

Sub test() 
Dim oHTML_Element As IHTMLElement 
Dim oBrowser As InternetExplorer 
Dim ie As Variant 
Set ie = CreateObject("InternetExplorer.Application") 
ie.Visible = True 
ie.navigate "your web link" 'Your weblink goes here 
While ie.readyState <> READYSTATE_COMPLETE And ie.readyState <> READYSTATE_LOADED 
    DoEvents 
Wend 
Application.Wait (Now() + TimeValue("00:00:03")) 
For Each oHTML_Element In ie.document.getElementsByTagName("a") 
    If oHTML_Element.innerHTML = "compliance" Then 
     oHTML_Element.Click 
    End If 
Next 
End Sub