VBAコードをクリックしてWebページの[アクティビティ]ボタンをクリック

Question

Excel VBAを使用して、私たちのオフィスのグローバル生産性ハブで "再生アクティビティボタン"をクリックする方法に関するヘルプを探しています。私は、ランチとブレークトラッカーを備えたツールで出席ログを作成しています。従業員が作成したツールで[ログイン]をクリックすると、GPHサイトが起動し、ログアウトして同じことをログに記録します。しかし、私が作成したツールを使用してGPHサイトのブレーク＆ランチボタンを制御するのは難しいです。私は自分のVBAコードに統合するための正しい要素を見つけることができません。誰かが私にこれを手伝ってくれることを願っているその特定のボタンのHTMLコードと画像を下に見てください。

<tr class="top-five"> 
 
    <td title="Play Activity" class="glyphicon glyphicon-play-circle play-activity" data-toggle="tooltip" data-team-id="e9575e8b-4682-734c-b28d-b1ee5532a8ce" data-activity-id="e0728017-a4fa-ef4b-91a6-262e5418a134" data-team-name="Technology Team"> </td> 
 
<td> 
 
    <span title="Break Activities" class="act-ellipsis" data-toggle="tooltip"> 
 
<span class="ellip ellip-line"> Break Activities </span> 
 

 
</span> 
 
Break 
 
</td> 
 

 
<td title="Favorite" class="glyphicon glyphicon-star" data-toggle="tooltip" data-activity-id="e0728017-a4fa-ef4b-91a6-262e5418a134"></td> 
 

 
</tr>

Answer 1

あなたのスクリーンショットは、任意の詳細を表示するにはあまりにも小さいですが、基本的に、それはこのように動作します。

Dim HTMLDoc As HTMLDocument 
Dim oBrowser As InternetExplorer 
Sub Login_2_Website() 

Dim oHTML_Element As IHTMLElement 
Dim sURL As String 

On Error GoTo Err_Clear 
sURL = "https://www.google.com/accounts/Login" 
Set oBrowser = New InternetExplorer 
oBrowser.Silent = True 
oBrowser.timeout = 60 
oBrowser.navigate sURL 
oBrowser.Visible = True 

Do 
' Wait till the Browser is loaded 
Loop Until oBrowser.readyState = READYSTATE_COMPLETE 

Set HTMLDoc = oBrowser.Document 

HTMLDoc.all.Email.Value = "sample@vbadud.com" 
HTMLDoc.all.passwd.Value = "*****" 

For Each oHTML_Element In HTMLDoc.getElementsByTagName("input") 
If oHTML_Element.Type = "submit" Then oHTML_Element.Click: Exit For 
Next 

' oBrowser.Refresh ' Refresh If Needed 
Err_Clear: 
If Err <> 0 Then 
Debug.Assert Err = 0 
Err.Clear 
Resume Next 
End If 
End Sub 

あなたがへの参照を設定していることを確認してください...

Microsoft HTML Object Library 
Microsoft Internet Controls