我在 excel VBA 中使用 selenium,我可以使用此行执行右键单击元素的操作
bot.Actions.ClickContext(.FindElementById("Button3")).Perform
现在如何从上下文菜单中选择命令
Save As
。我可以使用 Application.SendKeys 方法,但它不可靠。
试试这段代码,它可以在不使用
Save As ...
的情况下完成
SEND_KEYS
菜单项的功能
Option Explicit
' Save As ...
Sub sbSaveAs()
Dim driver As ChromeDriver
Set driver = New ChromeDriver
Dim sURL As String
Dim we As WebElement
sURL = "https://user10186832.wordpress.com/2023/03/08/simple-blog/"
Dim sFilename As String
Call driver.Start("edge")
driver.get (sURL)
driver.Window.Maximize
sbDelay (100000)
Set we = driver.FindElementByXPath("/html")
sFilename = "C:\Users\david\Downloads\out-" & Format(Now(), "yyyymmddHHMMSS") & ".txt"
Open sFilename For Output As #1
Print #1, we.FindElementByXPath("/html").Attribute("outerHTML")
Close #1
driver.Quit
End Sub
Sub sbDelay(delay As Long): Dim i As Long: For i = 1 To delay: DoEvents: Next i: End Sub 'old skool delay