VBAでMicrosoft Edgeから開く方法

質問

ExcelVBAマクロについて確認させてください。
これは「Internet Explorer（IE）」になっているので「Microsoft Edge」また「Google Chrome」ソフトに変更する場合はどのように変更すればよいかご教授くださいm(_ _)m

下記のプログラムの具体的な仕様
１）現在開いているInternet ExplorerのWebサイトアドレスをA1セルから順に出力する。
２）A1セルに主力したWebサイトアドレスを一つずつ開いて、閉じる。

Sub test()

'現在開いているURLの取得

Dim sh As Object
Dim win As Object
Dim buf As String
Dim i As Integer
Dim n As Integer
Dim strUrl As String

Set sh = CreateObject("Shell.Application")

For Each win In sh.Windows 'ウインドウの数だけ回す

If win.Name = "Internet Explorer" Then
buf = buf & " " & win.LocationURL
End If

Next

'空白毎に区切ってセルに代入
Worksheets(1).Range("A1").Resize(UBound(Split(Trim(buf), " ")) + 1).Value = WorksheetFunction.Transpose(Split(Trim(buf), " "))

i = Worksheets(1).Cells(1, 1).End(xlDown).Row '現在開いているURLの数を取得

For n = 1 To i

strUrl = Worksheets(1).Cells(n, 10) '文書策定画面を文字列strUrlに代入

'IEオブジェクトを作成
Dim ie As InternetExplorer
Set ie = New InternetExplorerMedium

'IEを表示（見えるようにする）
ie.Visible = True

'指定したURLをIEで開く
ie.navigate strUrl

'サイトの読み込みが完了するまで待つ
Do While ie.Busy = True Or ie.readyState < READYSTATE_COMPLETE
DoEvents
Loop

'オブジェクトを閉じる
ie.Quit

'メモリからオブジェクトを破棄
Set ie = Nothing

Next n

End Sub

回答No.2

imogasi · ベストアンサー

Googleで「vba microsoft edge urlを開く」などで照会し
出てくる記事の１例の
httpshttps://www.ka-net.org/blog/?p=6048
などを読み、応用して、やってみて、そこでの行き止まり点を、質問すべきじゃないか？
プログラム特にVBA類は、WEB照会をまずやれ、と思う。
自分のIEの過去のコードなど載せても、本件Edgeについて、判る人には無駄でしょう。

お礼

そうですね、ありがとうございます！

回答No.1

noname#252332

もしかすると私の知識は古いかもしれませんがOLEオートメーションに対応したwebブラウザはinternet explorerだけだと思いますよ。