IEからEdgeのVBAのエレメントについて
下に記載したVBAなんですけども、IEからEdgeへの切り替えでどこを変えればEdge対応になるか分かりません。
変える場所と内容を教えていただきたいです。
------------------------------------------------------------------------------------------
Sub エレメント取得()
Dim shl As Object
Set shl = CreateObject("Shell.Application")
Dim targetTitle$
targetTitle = "取得したいウインドウタイトル"Dim win As Object, getFlag As Boolean
For Each win In shl.Windows
If TypeName(win.document) = "HTMLDocument"Then
If win.document.Title = targetTitle Then
Dim objIE As New InternetExplorer
Set objIE = win
getFlag = True
Exit For
End If
End If
Next
If getFlag = False Then
MsgBox "目的の画面が開かれていません。", vbExclamation
Exit Sub
End If
'目的の画面のHTMLを読み込む
Dim htmlDoc As HTMLDocument
Set htmlDoc = objIE.document
Dim s%
Dim r&
s = 1
r = 1
Dim element As IHTMLElement
Dim check$
Worksheets("Sheet1").Activate
Worksheets("Sheet1").Cells.ClearContents
Debug.Print "■td"
For Each element In htmlDoc.getElementsByTagName("td")
Debug.Print element.innerText
check = element.innerText
Cells(r, s).Value = check
s = s + 1
Next element
End Sub