質問: vbaでieのメニューバーを使用・操作したい。 vbaでieのメニューバーを使用・操作したい。 お世話になります。 現在vbaでieを起動・操作しようとしています。 そこで下記を教えて頂きたいのです。 ieのメニューバーにある (1)編集→全て選択 (2)編集→コピー を実行したいのですが、 vbaからどのように入力すれば、(1)、(2)ができるのでしょうか? 以上お手数ですがよろしくお願いします。
回答: execwb コマンドを使えばよいです。 以下は、予め開いたサイトに対して、命令するものです。 不要な所は省いても結構です。 private declare sub sleep lib "kernel32.dll" (byval dwmilliseconds as long) sub getieobject() dim objie as object dim objshell as object dim objwin as object const olecmdexecopt_dodefault as long = 0 const olecmdid_copy as long = 12 'コピー const olecmdid_selectall as long = 17 'すべて選択 const olecmdid_clearselection as long = 18 '選択をクリア on error goto endprocess set objshell = createobject("shell.application") for each objwin in objshell.windows if typename(objwin) = "iwebbrowser2" then sleep 1000 '減らしても可 set objie = objwin end if next if objie is nothing then msgbox "ieが開いていません。", vbexclamation: exit sub end if with objie .execwb olecmdid_selectall, olecmdexecopt_dodefault .execwb olecmdid_copy, olecmdexecopt_dodefault .execwb olecmdid_clearselection, olecmdexecopt_dodefault end with endprocess: on error resume next if err.number > 0 then msgbox err.description end if set objie = nothing end sub