如何用selenium拷贝网页

游乐缘

4125027 发表于 2022-3-3 11:21
错误发生在
   .send
这一行。

具体是什么网站？如果是查询网站，需要用POST而非GET
例子中使用的是本帖网址

游乐缘

4125027 发表于 2022-3-3 14:30
如果是只有几个网页，这是最简单、最有效的方法。
但是我现在有几千网页需要重复操作。这样就太累了。

建议使用IE法

4125027

游乐缘 发表于 2022-3-3 15:26
建议使用IE法

IE现在没有办法安装。只有Edge和chrome。
能否帮忙改一下？谢谢。

perfect131

4125027 发表于 2022-3-3 14:30
如果是只有几个网页，这是最简单、最有效的方法。
但是我现在有几千网页需要重复操作。这样就太累了。

selenium CTRL+A,CTRL+C 应该也不慢，嫌慢试试 post,get 协议获取
selenium源码获取，参看
Dim cd As New ChromeDriver
cd.Start
cd.Get surl
ss = cd.PageSource

183776928qqcom

https://club.excelhome.net/forum.php?mod=viewthread&tid=1610663&extra=&mobile=2

游乐缘

perfect131 发表于 2022-3-3 17:27
selenium CTRL+A,CTRL+C 应该也不慢，嫌慢试试 post,get 协议获取
selenium源码获取，参看
Dim cd A ...

PageSource这个不错，感谢分享

游乐缘

4125027 发表于 2022-3-3 14:45
用二楼的代码，在Set cd = New Selenium.ChromeDriver执行时我电脑显示自动化错误。
但是我电脑用帖子ht ...

已经引用Selenium Type Library对吧？

4125027

游乐缘 发表于 2022-3-4 10:49
已经引用Selenium Type Library对吧？

这个Selenium Type Libray肯定是引用了的。
代码和错误如下
Option Explicit
Public cd As Selenium.ChromeDriver

Sub SeleniumPro()
    Dim url As String, strbody As String

    url = "https://club.excelhome.net/thread-1618052-1-1.html"
    Set cd = New Selenium.ChromeDriver

    With cd
      .Start
      .Get url
      Do
        .Wait 1000
      Loop Until .FindElementBytag("body").isDisplayed

      strbody = .FindElementBytag("body").Text
      Range("a1") = strbody
      .Quit

      End With
End Sub

游乐缘

4125027 发表于 2022-3-4 13:02
这个Selenium Type Libray肯定是引用了的。
代码和错误如下
Option Explicit

我在本地测试你的代码，可以正常运行的。
是不是ChromeDriver的版本不匹配呢？有时候chrome自动升级，然后原来的老driver就不行了。。这种情况可以手动设置chrome不自动更新

4125027

游乐缘 发表于 2022-3-4 14:14
我在本地测试你的代码，可以正常运行的。
是不是ChromeDriver的版本不匹配呢？有时候chrome自动升级，然 ...

谢谢回复。
的确是chrome升级了。
但是我没有办法禁止chrome的自动升级。
我系统是64 位操作系统, 基于 x64 的处理器，Windows 11 家庭中文版。
能帮忙解决吗？最新更新：我终于找到了googleupdate.exe并删除了。但愿不会再次自动更新吧。