[求助]请问如何将网页中特定行的数据按期号输出在excel表格中

铁多

网址：http://lottery.eastday.com/eastday/node4091/node22824/node53161/index.html

请问如何根据期号，将对应的“出球顺序”数列（右侧区域最末一行）输出在excel表格的b列中。

如果方便的话，可以在a列显示对应的期号。

请帮忙解决一下，谢谢！

铁多

请大家指点一下，实在急用！

谢谢！

northwolves

分析下面两个网页的源代码:

http://61.129.65.116/lottery/lotteryhtm/bulletin/14/select.htm

http://61.129.65.116/lottery/lotteryhtm/bulletin/14/bot1020.htm

铁多

谢谢！

我看看！

northwolves

各网页格式混乱,试试:

Sub MACRO1()
Dim s() As String, t() As String, i As Long, j As Long, k As Long, temp As String
On Error Resume Next
With CreateObject("Msxml2.XMLHTTP")
.Open "GET", "http://61.129.65.116/lottery/lotteryhtm/bulletin/14/select.htm", False
.Send
s = Split(.responseText, "option value='")
ReDim ball(1 To UBound(s), 1 To 2)
For i = 1 To UBound(s)
Cells(i, 1) = "No. " & Split(Split(s(i), "'>")(1), "<")(0)
.Open "GET", "http://61.129.65.116/lottery/lotteryhtm/bulletin/14/bot" & Split(s(i), "'>")(0) & ".htm ", False
.Send
t = Split(.responseText, "</font>")
temp = Right(t(UBound(t) - 1), 20)
k = 0
For j = 1 To 20
If Not Mid(temp, j, 1) Like "#" Then Mid(temp, j, 1) = " "
Next
Cells(i, 2) = Trim(Replace(temp, "  ", " "))
If i = 100 Then Exit Sub
Next
End With
End Sub

铁多

谢谢，我试试！

铁多

真是太不可思议了！！！！！

本以为网页格式混乱会导致难度增大，并且导出后数据也是空格顿号逗号一大团，没想到版主提供的代码生成的结果全是空格间隔。太不可思议了！

谢谢northwolves版主！！！

hyy514

好极了,学习