<em>Excel</em> vba如何抓取指定的网页数据到单元格-excel vba抓取网页,

看来你是有一点网抓基础的。稍微学习下再结合VBA就可以做到了。

参考：
Sub A1下载数据()
ReDim A2(1 To 200000, 1 To 15): A = 0
For i = 1 To 5
Sleep 2000 + 1000 * Rnd
With CreateObject("WinHttp.WinHttpRequest.5.1")
URL = "目标网页"
.Open "get", URL, False
.setRequestHeader "Host", "xxxxx"
.Send
Q1 = .responseText
Q1 = Replace(Q1, """", "")
Q1 = Replace(Q1, Chr(9), "")
Q1 = Replace(Q1, Chr(10), "")
Q1 = Replace(Q1, Chr(13), "")
Q1 = Replace(Q1, "=odd>", "=>")
End With
'Sheet1.[A2] = Q1
B1 = Split(Q1, "</tr><tr class=><td>")
For j = 1 To UBound(B1)
B2 = Split(B1(j), "</td>")
B3 = Split(Replace(B2(1), "<td>", ""), ",")
A2(A + 1, 1) = Replace(B2(2), "<td>", "")
A2(A + 1, 2) = Replace(B2(0), "<td>", "")
For K = 0 To 9
A2(A + 1, 3 + K) = B3(K)
Next
A = A + 1
Next
Application.StatusBar = i
Next
MsgBox A
With Sheet1
If .AutoFilterMode = True Then .AutoFilterMode = False
.Rows("2:600000").ClearContents
If A > 0 Then .[A2].Resize(A, 15) = A2
.Rows(1).AutoFilter '数据筛选636f7079e799bee5baa6e79fa5e98193332
ActiveWindow.ScrollRow = 1
ActiveWindow.ScrollColumn = 1
End With
End Sub

基本上和JS的代zd码差不多哦，使用XMLHTTP对象，下回面是例子代码：答

Option Explicit
 
Sub xxx()
  Dim http
  Set http = CreateObject("Microsoft.XMLHTTP")
  http.Open "POST", "http://网址/PHP文件名.PHP", False
  http.send ""
  If http.Status = 200 Then
    [a1] = http.responseText
    MsgBox "成功。"
  Else
    MsgBox "调用失败，错误代码：" & http.Status
  End If
End Sub

首先打开Excel 2007工作表，点击想要把zd数据导入的位置，然后在菜单栏找到第五项"数据“，点击，在“获取外部数据”项下找到“自网站”并点击。

这时弹出来”新建 Web 查询“对话框，可以在“地址”一栏键入要添加数据的网页的地址。

添加完成后，点击“转到（G）”，下面会出来要添加网页的内容和黄色箭回头，单击要选择的表旁边的黄色箭头，可以看到点击后黄色箭头变成绿色的对号，这表示内容已经选中了，然后单击“导入（I）”。

弹出来”导答入数据“对话框，设置完成点击“确定”。

Excel表中显示“正在获取数据……”。

数据获取完成，之前选中的网页内容全部导入了Excel工作表里。