Excelで現在表示のEdgeまたはChromeのURLアドレス取得のマクロ(VBA)を教えてください。
インターネット上に掲載の情報(タイトル/URLアドレス)をExcelに登録して管理したいのですが、コピペより簡単に操作できるように「ボタン」を付けて誰でも使えるものにしたいと思って言います。
javascriptのlocation.hrefでURLアドレスを取得できるみたいですが、素人でVBAとjavascript連携が解りません。
どなたか教えてください。
インタネット上に掲載されているSeleniumBasicSelenium.WebDriverマクロやUI Automationマクロを転記して起動したのですがうまく収集できませんでした。
Sub GetChromeURL()
AppActivate "Chrome" ' Chromeウインドウをアクティブにする
Application.Wait (Now + TimeValue("0:00:01")) ' 待機
SendKeys "%d", True ' Alt+Dを押してアドレスバーを選択する
Application.Wait (Now + TimeValue("0:00:01")) ' 待機
SendKeys "^c", True ' Ctrl+Cを押してクリップボードにURLを取得する
ActiveSheet.Paste Destination:=Range("A1") ' クリップボードのURLをExcelに張り付ける
End Sub
@WatanabeShinji
Questioner
ご提案のコードを埋め込みうまくい動きました。ありがとうございました。
