如何在vb脚本中使用SendKeys方法选择页面上的所有内容？

Question

我正在尝试运行一个vbscript，它将在chrome中加载一个html页面，然后执行control + a，它将选择页面上的所有内容，最终视图将其复制，然后将其粘贴到excel中。

到目前为止我的脚本：

Set WshShell = WScript.CreateObject("WScript.Shell")

Dim iURL 
Dim objShell

iURL = "C:\Users\Aasfasf\AppData\Local\Temp\TD_80\hpqc\52136023e30\****\121200.html"

set objShell = CreateObject("WScript.Shell")
objShell.run(iURL)

WScript.Sleep 1500

WshShell.SendKeys "^a"

当我运行它加载html页面，但我不认为控件+一个命令正在工作，因为没有选择。

Answer 1

Excel只需加载您的网页，无需您的任何帮助。

Alt + D，D，W

Answer 2

两个建议：

1. 焦点可能不在于chrome中的内容。尝试先发送一个Tab键，先按几次，看是否能解决问题。

2. 更好的方法可能是只读取文件的内容，然后使用正则表达式从文档中删除所有标记。