单击网页中的播放活动按钮的VBA代码

我正在寻求一些帮助，以了解如何使用Excel VBA在我们的办公室的全球生产力中心中单击“播放活动按钮”。我正在用午餐创建一个出勤记录工具，并打破追踪器。一旦员工单击使用我创建的工具登录，GPH站点将启动并将其登录，与注销同样的事情。但是，我很难用我创建的工具来控制GPH网站的休息和午餐按钮。我找不到要集成到我的vba代码的正确元素。我希望有人能帮助我。请参阅下面的特定按钮和图像的HTML代码。单击网页中的播放活动按钮的VBA代码

<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>

来源

2017-10-06 J Marvin

你的截屏太小，看不到任何细节，但基本上，它的工作原理是这样的。

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 = "[email protected]" 
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

来源

2017-10-08 11:34:02 ryguy72

单击网页中的播放活动按钮的VBA代码

回答

相关问题