VBAのマクロ作成 ブラウザ Microsoft Edge のオブジェクトを URL で あいまい検索で取得の仕事

見積もり募集の結果

募集期間

4日間

提案数

1件

閲覧数

93回

見積もりを提案しているランサー(一部)

見積もり募集の内容

提示した予算
1 円 ~ 5,000 円
依頼概要
作業内容は、以下になります。

VBA (Access2016 版で実行)で、ブラウザ Microsoft Edge のオブジェクトを URLを指定(あいまい検索)して で取得 できる コードをつくってください。

イメージとしては、

IE では こんな感じの関数で取得できるのを Microsoft Edge版 にしてほしいです。

Function XXXX(URL As String) As Object

Dim objIE As Object
Dim objSh As Object
Dim objWindow As Object
Dim sWindowName As String

Set objSh = CreateObject("Shell.Application")
For Each objWindow In objSh.Windows
On Error Resume Next
sWindowName = ""
sWindowName = objWindow.FullName
On Error GoTo 0


If LCase(Right(sWindowName, 12)) = "iexplore.exe" Then


If objWindow.LocationURL like "*" & URL & "*" Then
Set objIE = objWindow
Exit For
End If
End If
Next


If objIE Is Nothing Then
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True
objIE.Navigate2 URL




End If

exit Function

インターネットで検索したら、URLを指定して、Edgeで 開いて、
検索語句をテキストに入れて、ボタンを押して、検索結果が表示されるというのがあり、そこまでできているのですが、
どうしても、別ウインドウで開くEdgeのオブジェクトを取得したいので、今回、依頼させていただきました。

もし不可能ならば、URLを指定したら、該当するEdgeのウインドウハンドルを返してくれる関数でも構いません。

私的には、予算は3000円くらいかな と思っていますが、
希望の額を指定ください。

よろしくお願いいたします。