Cells.ClearContents
Set oDoc = CreateObject("htmlfile")
[a1:c1] = Array("時間", "開獎號碼", "冠亞軍和")
[f1] = "1~5龍虎"
[c1:e1].Merge: [f1:j1].Merge
With CreateObject("MSXML2.XMLHTTP")
.Open "GET", "/pk10/kaijiang", True
.Send
Do Until .ReadyState = 4
DoEvents
Loop
s = Replace(Replace(.responseText, """></i>",
"</i>"), "pk-no", """>")
oDoc.body.innerHTML = s
Set r = oDoc.All.Tags("table")(0).Rows
For i = 0 To r.Length - 1
For j = 0 To r(i).Cells.Length - 1
Cells(i + 1, j + 1) = r(i).Cells(j).innerText
Next j
Next i
Set r = Nothing
End With
End Sub