如果通过selenium进行发布,就很容易。如果不是不可能的话(还没有发现一个VBA方法)要附加到一个现有的浏览器实例,例如从命令行启动的一个不同于当前WebDevices实例的命令。
我要冒险说出来,因为你的命令是通过
Shell
,并且只启动chrome,然后您可以简单地替换为安装
selenium basic
,添加对
selenium type library
然后使用硒打开铬,如下所示:
Option Explicit
Public Sub OpenChromeAndSelect()
'References to Selenium type library
Dim d As WebDriver, el As WebElement
Set d = New ChromeDriver
Const URL = "https://clients.mindbodyonline.com/Report/Sales/Sales/Generate?reportID=undefined"
With d
.Start "Chrome"
.get URL
Set el = .FindElementById("myID")
'Do other stuff
'.Quit
End With
End Sub