使用VBA打开网站并单击视频

使用VBA打开网站并单击视频,vba,excel,video,Vba,Excel,Video,我试图创建一个vba代码,将打开一个网站,并在网站上点击视频。我可以用代码打开网站,但不知道该怎么做才能让代码点击播放视频 以下是我目前掌握的代码: Sub VideoPlayer() Dim IE As Object 'Uses exsisting IE page or opens one if one isn't already open With CreateObject("Shell.Application").Windows If .Count > 0 Th

我试图创建一个vba代码,将打开一个网站,并在网站上点击视频。我可以用代码打开网站,但不知道该怎么做才能让代码点击播放视频

以下是我目前掌握的代码:

Sub VideoPlayer()

  Dim IE As Object

'Uses exsisting IE page or opens one if one isn't already open
  With CreateObject("Shell.Application").Windows

    If .Count > 0 Then
      ' Get IE
      Set IE = .Item(0) ' or .Item(.Count - 1)
    Else
      ' Create IE
      Set IE = CreateObject("InternetExplorer.Application")
      IE.Visible = True
    End If

  'web page to navigate to
    IE.Navigate "LINK NAME"

    Set IE = Nothing

  End With

'Waits for the page to load
Application.Wait Now + TimeValue("00:00:03")

'What i need help with...don't know how to play the video
IE.document.???.Clcik

End Sub

感谢您的帮助

您没有提供太多的信息,但是一旦您收到完整的页面,您将必须通过单个标识特征(如
IE.document.getElementById(“myVideoId”)来标识要单击的元素。单击
或使用IE.document.getElementsByTagname(“div”)在类似元素的集合中循环,查找指示您单击该元素的标识特征

如果您还没有唯一的标识特征,请打开页面并使用右键单击Inspect Element打开elements窗口并检查页面后面的代码


最后,当您使用
设置IE=Nothing
时,您不能再将IE对象用于任何事情。您可能希望在视频单击后将该语句移动到某个位置。

该语句没有HTML或URL,因此不符合以下条件: