0

下に記載した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

この質問は解決済みのためクローズされています。
namirai 回答した質問
回答とコメントは、会員登録(無料)で閲覧できるようになります。