Question

我正在尝试创建一个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

感谢您的帮助

Answer 1

你没有提供太多东西，但是一旦你完全收到了这个页面，你就必须通过一个识别特征（如IE.document.getElementById("myVideoId").Click）来识别要点击的元素，或者循环浏览一系列相似的元素与IE.document.getElementsByTagname("div")寻找识别特征，告诉您单击该特征。

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

最后，当您使用Set IE = Nothing时，您无法再使用IE对象。您可能希望在视频点击后将该语句移动到的位置。

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

1 个答案: