|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
Sub 示例一页()
Cells.Clear
Dim a, b, c, d, strtext, m, j
With CreateObject("msxml2.xmlhttp")
.Open "GET", "http://data.eastmoney.com/stock/lhb/2010-01-05.html", False
.send
strtext = .responsetext
End With
Set a = CreateObject("htmlfile")
a.body.innerhtml = strtext
Set b = a.all.tags("table")("dt_1")
For Each c In b.Rows
m = m + 1
Debug.Print m
j = 0
For Each d In c.Cells
j = j + 1
If c.Cells.Length = 6 Then Cells(m, j + 5) = d.innertext Else Cells(m, j) = d.innertext
Next d
Next c
End Sub
有重复数据 |
|