用Excel抓取html数据

敎各位用Excel抓取yahoo的股票价格

1. 光标停在「数据抓取页」A29(就是你要放的位置)

2. 点选数据 汇入外部数据 新增web查询

3. 跳出如下图对话框，地址输入你要抓取网页数据网址，这边以yahoo的股市网页为例子，看到表格左边有出现很多（黄色小框黑色箭头），点选图中所示的那个让它变成（绿色小框打勾），表示要汇入这个表格内的数据到excel中。

4. 右下角点选「汇入」

5. 点选「汇入」后出现下面画面，点选「内容」

6. 在「更新」的地方全部打勾后按下方「确定」，然后会跳到上图，再按右边的「确定」

7. 就出现下图拉，为了更清楚显示抓下来的数据内容，我加上蓝色底色标示，以后开启这个Excel，只要你的计算机在上网状态，就会自动抓下最新数据!

8. 接下来跳到「持有」这个sheet，把第6行南港这只股票的数据整个复制到第7行后，更改第7行浅绿色的内容为国巨这只股票相关数据报跨买进日期数量等等。

9. 点选H7这个单元格

10. 在上方程式列输入「=」

11. 到「资料抓取页」点选C31这格后，按ENTER。

12. 以后「持有」的H7这格内的价格数据，就会与「资料抓取页」C31这格数据同步。其他的费用及赚取损失等(白色底的数据)，都会自动计算。

HttpRequest我去查询了一下在excel用vba实现不了，我下面的代码可以遍历html的内容，但是比较多：

Private Sub Web1_Click()

Dim IE As Object

Dim doc As Object 'MSHTML.HTMLDocument

Dim i As Integer

Dim s As Integer

Dim endPage As Integer

Dim V ar As V ariant

Dim body As String

Dim strZ As String

Set IE = CreateObject("internetexplorer.application")

On Error Resume Next

With IE

.V isible = False

.navigate "http://10.86.130.118/BST_III_NONSSO/BST_PRJ_Internal_Login.aspx"

Do Until .Readystate = 4 '?ì2éí?ò3ê?·??ó??íê±?￡¨4±íê?íêè??ó??￡?

DoEvents

Loop

End With

With IE.Document.Forms(1)

.All("_pageIndex").V alue = p

.Target = "_self"

.submit

End With

loading = True

While loading

If (Not IE.Busy) And IE.Readystate = 4 Then

loading = False

End If

Wend

Set doc = IE.Document

Set yDoc = doc.body

strZ = yDoc.innerHTML

MsgBox strZ

' For Each d In Doc.all.tags("td")

' s = d.innerText

' MsgBox s

' Next

End Sub