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

見積もり募集の結果

見積もり募集の内容

提示した予算

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円くらいかな　と思っていますが、
希望の額を指定ください。

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

私は　Win10　６４BIT　の　VBA　Access2016　32BIT 版で実行　していますが、エクセル2016で動けばいいです。
32ビットでも64ビットでも動くようにお願いします。
最悪、32ビットのエクセルかアクセスで動けばいいです。

キャンセル理由：ランサーと見積もり・日程などの条件が合致しなかったため

発注内容の実現が難しいため。