IE.ExecWB 17,0不会全选

Question

在我的VBA脚本中，我有以下两行用于选择整个网页并复制其内容。

IE.ExecWB 17, 0 '// SelectAll
IE.ExecWB 12, 2 '// Copy selection

它在某些网页上有效，但在另一些网页上无效。事实证明，某些网页上已经突出显示了一个单词。在这种情况下，“ IE.ExecWB 17，0”不会全部选中。它什么也不做，下一行代码仅复制该单词，而不复制整个页面。

如果我进行干预，然后单击页面上的任意位置以取消选择该单词，则代码可以正常工作。

总有办法以编程方式取消选择单词吗？

Answer 1

是的，在早期绑定中查看ExecWB的常量：

IE.ExecWB OLECMDID_CLEARSELECTION, OLECMDEXECOPT_DODEFAULT

翻译为：

IE.ExecWB 18, 0

后期绑定

要解决您的次要问题，您可以执行以下操作：

With IE.document.getElementsByTagName("Body")(0)
    .Click
    .Focus
    .setActive
end with

查看上述任何方法是否对您有用。