Question

vba提取网页数据

想复制全部网页信息到excel中，因为需要查询很多，手动太慢了，比如通过网址1得到网页数据a（网页数据很少）保存到单元格A1，网址2得到网页数据保存到单元格A2，网址3得到网页数据c保存到单元格A3........不需要对网页数据进行帅选，通过vba全部自动复制下来就好。。。求高手给些个代码，非常感谢

Answer 1

下面的代码就可以：

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开头（然后是冒号和两个斜线）的完整地址。

追问

非常感谢，我试了一下，我输入两个网址进去，运行就复制一个信息到一个单元格，另外汉字文本信息没有复制下来，比我蒋雨琼，中文名就灭有复制下来，非常感谢

追答

中文出问题一般都是编码问题吧