从上下文菜单 selenium VBA 中选择命令 [另存为]

问题描述 投票:0回答:1

我在 excel VBA 中使用 selenium,我可以使用此行执行右键单击元素的操作

bot.Actions.ClickContext(.FindElementById("Button3")).Perform

现在如何从上下文菜单中选择命令

Save As
。我可以使用 Application.SendKeys 方法,但它不可靠。

excel vba selenium-webdriver
1个回答
0
投票

试试这段代码,它可以在不使用

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
© www.soinside.com 2019 - 2024. All rights reserved.