크롤링 방법을 질문드립니다.

안녕하세요

크롤링에 대해 공부하는 초보입니다.

첨부한 그림처럼 html 소스가 있을 때 원하는 값을 가져올 수 있는 VBA 크롤링 방법을 부탁드립니다.

data_title 요소의 값과 data_singer 요소의 값을 가져와 셀에 입력하고 싶습니다. 어떻게 가지고 와야 할까요?

초보라 너무 모릅니다. 가르침 부탁 드립니다.

-----------------------------------

Sub taejin()

Dim Http As New MSXML2.ServerXMLHTTP60
Dim Html As New MSHTML.HTMLDocument
Dim URL As String
Dim drwNo As String
Dim sng As String

If Range("B2") = 0 Then Exit Sub '갯수 설정
Range("C4").CurrentRegion.Offset(1, 4).ClearContents '화면 초기화

For i = 4 To Range("B2") + 3
If Range("B" & i) = "" Then Exit Sub '빈칸이면 실행 종료

URL = "https://www.tjmedia.com/tjsong/song_search_list.asp?strType=16&strCond=1&strText=" & Range("B" & i)
sng = ""

With Http
.Open "GET", URL, False
.send
Html.body.innerHTML = .responseText
End With

On Error Resume Next
sng = Html.getElementsByClassName("center")(0).innerText
If sng <> "" Then
Cells(i, 5).Value = "'000000"
Cells(i, 6).Value = "---"
Cells(i, 7).Value = "등록된 노래가 없습니다"
End If

iArticle.getAttribute ("href")

Cells(i, 5).Value = "'000000"
Cells(i, 6).Value = Html.getElementsByClassName("youtube_auto_search")(0).innerText
Cells(i, 7).Value = Html.getAttribute("data-title")(0).innerText

Cells(i, 8).Value = Html.getElementsByClassName("data-title")(0).innerText

Next i

End Sub