如何用selenium拷贝网页

4125027

根据大神的帖子，我可以通过selenium打开chrome浏览器了。我现在想把chrome打开的网页的文本全部拷贝到excel表格，请教大侠该如何编写VBA代码？
以前用IE时，代码如下：
With ie
            .document.body.Focus
            .document.execCommand "SelectAll"
            .document.execCommand "copy"
            Sheets("Orig").Activate
            Sheets("Orig").Cells().Delete
            Sheets("Orig").Range("A1").Select
            ActiveSheet.Paste

            .quit
end with

再次感谢大神的帖子https://club.excelhome.net/thread-1556730-1-1.html

游乐缘

代码供参考

游乐缘

使用XMLHTTP方法更加快捷，效果是一样的

perfect131

ctrl+A、ctrl+C

4125027

游乐缘 发表于 2022-3-2 11:02
使用XMLHTTP方法更加快捷，效果是一样的

谢谢老师的热心帮忙。但是我现在运行时会出现错误。请问如何解决？我在网上找不到解决方法。

未指定错误

游乐缘

4125027 发表于 2022-3-3 10:14
谢谢老师的热心帮忙。但是我现在运行时会出现错误。请问如何解决？我在网上找不到解决方法。

请问代码报错是哪一行？

4125027

游乐缘 发表于 2022-3-3 10:16
请问代码报错是哪一行？

错误发生在
.send
这一行。
我电脑系统是64 位操作系统, 基于 x64 的处理器，Windows 11 家庭中文版，浏览器是chrome或者edge都有。

4125027

游乐缘 发表于 2022-3-3 10:16
请问代码报错是哪一行？

错误发生在
   .send
这一行。
我的电脑是64 位操作系统, 基于 x64 的处理器，Windows 11 家庭中文版，安装了Chrome浏览器和Edge。

4125027

perfect131 发表于 2022-3-2 11:06
ctrl+A、ctrl+C

如果是只有几个网页，这是最简单、最有效的方法。
但是我现在有几千网页需要重复操作。这样就太累了。

4125027

游乐缘 发表于 2022-3-2 10:29
代码供参考

用二楼的代码，在Set cd = New Selenium.ChromeDriver执行时我电脑显示自动化错误。

自动化错误

但是我电脑用帖子https://club.excelhome.net/thread-1556730-1-1.html的语句，是可以打开chrome的。
望大侠指导。
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

我的电脑是64 位操作系统, 基于 x64 的处理器，Windows 11 家庭中文版，安装了Chrome浏览器和Edge。