|
楼主 |
发表于 2009-3-6 20:07
|
显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
真的吗?你肯定没有仔细看,其实只要 把 获取百度股票例子 按钮的代码修改一句 就可以取得“大宗交易信息”那个表的内容
Private Sub CommandButton26_Click()
Sheet3.Select
Set dmt = WebBrowser1.Document
For i = 0 To dmt.all.tags("table").Length - 1
'If InStr(dmt.all.tags("table")(i).innerText, "序号代码股票名称") > 0 Then x = i' 原文
If InStr(dmt.all.tags("table")(i).innerText, "交易日期证券简称成交价成交金额") = 1 Then x = i
Next
Set R = dmt.all.tags("table")(x).Rows
For i = 0 To R.Length - 1
For j = 0 To R(i).Cells.Length - 1
Sheet3.Cells(i + 1, j + 1) = R(i).Cells(j).innerText
Next
Next
End Sub
用工具打开你的页面,然后点击按钮 |
|