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

Посмотрите, работает ли какой-либо из вышеперечисленных методов для вас.