Excel 이 웹페이지에서 VBA를 사용하여 복권 번호를 추출하는 방법은 무엇입니까?

Sub cc()

Cells.ClearContents

Set oDoc = CreateObject("htmlfile")

[a1:c1] = Array("시간", "복권 번호", "챔피언, 준우승 및")

[f1] = "1~5 용과 호랑이"

[c1: e1 ].Merge: [f1：j1].Merge

CreateObject("MSXML2.XMLHTTP") 사용

.Open "GET", "/pk10/kaijiang", True

.Send

.ReadyState = 4까지 수행

DoEvents

루프

s = 바꾸기(Replace(. responseText, "" "gt;lt;/igt;",

"lt;/igt;"), "pk-no", """gt;")

oDoc.body.innerHTML = s

r = oDoc.All.Tags("table")(0).Rows 설정

For i = 0 To r.Length - 1

j = 0의 경우 r(i).Cells.Length - 1

Cells(i 1, j 1) = r(i).Cells(j).innerText

다음 j

다음 i

r = Nothing으로 설정

End With

End Sub