vba提取网页数据

下面的代码就可以：

Option Explicit

Sub 批量获取网页内容()

  Dim http, Pols, Arr, i, u

  Set http = CreateObject("Microsoft.XMLHTTP")

  i = 1

  For Each u In Array("url1", "url2")

    http.Open "POST", u, False

    http.send ""

    If http.Status = 200 Then

      Cells(i, 1) = http.responseText

      i = i + 1

    End If

  Next u

  Set http = Nothing

End Sub

url1、url2就是你的网址，有多少写多少，每一个都要一http开头（然后是冒号和两个斜线）的完整地址。

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

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

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

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

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

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

---