vba中使用Selenium

志65

能用selenium下载网页图片吗?下面我写了一点代码，可后面不知怎么写了。


Sub test()
Dim dhr As Selenium.ChromeDriver
Dim arr As Range
Dim url As String
Dim r
Set dhr = New Selenium.ChromeDriver
dhr.SetCapability "debuggerAddress", "localhost:9222"
Set arr = Range("a2：a3")
For Each ar In arr
    url = "https://m.media-amazon.com/images/I/" & ar.Value & ".jpg"
    AppActivate "Google Chrome"  '切换到谷歌浏览器，要切换到用CMD窗口打开的网页，若是打开其他页面，会无法获取
    dhr.Get (url)
    Application.Wait Now + TimeValue("00:00:01") '要停1秒才能看到上面代码的操作,另外有时网页会跳转比较快，停顿一下数据才能获取完
   
  rem 接下来的代码要如何写？才能下载这个网页的图片?  
   
Next
End Sub

dbluep

mark一下，以防走失

saghj

加载dll错误。。。。。

sjwxsdj

感谢楼主，学习了。

wnwbaa

这个下载下来提示有木马，怎么弄？

shenglqlcsd

听风晚 发表于 2022-5-27 17:15
我用的就是这个 FindElementByXPth("//*[@id='ProgramCard']/div[2]/div[1]/div[3]/div/kat-expander[1]/di ...

你这里面没有文本，text当然是空白

shenglqlcsd

wuyong0508 发表于 2020-9-14 14:34
求助：
页面有两个下载按钮，用下面这行代码只能点击到第一个下载按钮，点击第二个下载按钮的话代码要怎么 ...

使用FindElementByxpath定位方法

shenglqlcsd

veggieg 发表于 2020-8-4 15:59
可是程序运行一次后浏览器都会没有了哦~! 怎么办才好呢?

我更换了刘博士selenium的3.14版本就好了。使用这个2.0版本配合chrome总是执行完语句就退出。没办法最后加了stop暂停。

shenglqlcsd

dwhong 发表于 2020-2-18 14:23
大师，在搜索结果，怎样点击？点击函数是什么，例如点击第一个结果的标题。谢谢

你要找到这个标题的位置，也就是元素定位，然后执行  元素.click   方法

perfect131

shenglqlcsd 发表于 2024-6-18 16:35
我更换了刘博士selenium的3.14版本就好了。使用这个2.0版本配合chrome总是执行完语句就退出。没办法最后 ...

我用2.0.从没遇到过这个问题
可能你的 chromedriver需要更新了