如何使用Selenium结合VBA实现全选文本并保存到本地文件

以下是可直接运行的完整代码，包含你要求的模拟Ctrl+A全选实现，以及更稳定的无需按键的替代方案，按需选用即可：

Public Sub scrapeCIL()
    Dim bot As New WebDriver, keys As Selenium.keys
    Dim savePath As String, fileNum As Integer
    Dim pageContent As String
    
    ' 初始化浏览器并打开目标页面
    bot.Start "chrome", "https://www.binance.com/en/trade/BTC_USDT"
    bot.Get "/"
    ' 等待页面加载完成，可根据网络情况调整等待毫秒数
    bot.Wait 3000
    
    ' --------------------------
    ' 方式1：模拟Ctrl+A全选实现
    ' --------------------------
    ' 点击页面body确保焦点在页面内容区域
    bot.FindElementByTag("body").Click
    ' 发送Ctrl+A全选组合键
    bot.SendKeys keys.Control & "a"
    ' 发送Ctrl+C复制选中内容到剪贴板
    bot.SendKeys keys.Control & "c"
    ' 从剪贴板获取文本内容
    pageContent = CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}").GetText
    
    ' --------------------------
    ' 方式2：更稳定的直接获取页面文本（推荐使用，注释掉方式1再取消下方注释即可启用）
    ' 无需模拟按键，不受页面焦点偏移影响，兼容性更高
    ' --------------------------
    ' pageContent = bot.FindElementByTag("body").Text
    
    ' --------------------------
    ' 保存内容到本地txt文件
    ' --------------------------
    ' 自定义保存路径，替换为你本地的实际路径即可
    savePath = "C:\Users\你的用户名\Desktop\页面提取文本.txt"
    fileNum = FreeFile()
    Open savePath For Output As #fileNum
    Print #fileNum, pageContent
    Close #fileNum
    
    MsgBox "内容已保存到：" & savePath, vbInformation
    
    bot.Quit
    Set bot = Nothing
End Sub

注意事项 #

• 方式1如果出现全选失效，可调整点击的元素，比如定位到页面内的具体内容区块点击，确保焦点正确
• 保存路径需要替换为你本地的实际路径，确保路径有写入权限
• 若页面加载速度慢，可适当延长bot.Wait的时长，或者添加显式等待逻辑，等待目标元素加载完成后再提取内容

内容的提问来源于stack exchange，提问作者user15546539