外汇牌价（exchange quotation），即外汇指定银行外汇兑换挂牌价，是各银行（指总行，分支行与总行外汇牌价相同）根据中国人民银行公布的人民币市场中间价以及国际外汇市场行情，制定的各种外币与人民币之间的买卖价格。这种外汇牌价实时变动，即使同一天牌价也有所不同。
上图是中国银行外汇牌价查询界面，我们这里不讲它的应用，而是讲怎样在Excel中用VBA网抓的相关知识，不打开浏览器，直接将查询结果抓取出来，并以放到表格中。
VBA-html法网抓
VBA网抓牌价中有一些对象的属性与方法你可以前往课程页面，这里细说下HttpHead信息。
VBA网抓你要知道的头信息什么是“头”？
我们天天都在上网，登录各种账号，划着各种自己设定的圈。网络协议采用的是请求/响应模型，你发送请求出去，服务器检查一下，没有问题，就向你发送数据，这个数据可以是一张图片、一个视频，也可以是一方Excel工作室的一篇文章。
整个网络传输资源可以分为message-header和message-body两部分。首先传递message-header，为httpheader消息，即我们这里说的“头”信息。我们这里说的头，大体分为Request（请求头）和Response（响应头）两部分。
如上图，红色框中的是请求头，下面蓝色框中的就是响应头。
下面是一些常见的头：
User-Agent：浏览器可接受的MIME类型。
Accept-Charset：浏览器可接受的字符集。
Accept-Encoding：浏览器能够进行解码的数据编码方式，比如gzip。
Accept-Language：浏览器所希望的语言种类，当服务器能够提供一种以上的语言版本时要用到。
Authorization：授权信息，通常出现在对服务器发送的WWW-Authenticate头的应答中。
Connection：表示是否需要持久连接。如果这里的值为“Keep-Alive”，或者看到请求使用的是HTTP 1.1（HTTP 1.1默认进行持久连接），就表示持续连接。
Content-Length：表示请求消息正文的长度。
Cookie：设置cookie,这是最重要的请求头信息之一
Host：初始URL中的主机和端口。
Pragma：指定“no-cache”值表示服务器必须返回一个刷新后的文档，即使它是代理服务器而且已经有了页面的本地拷贝。Referer：包含一个URL，用户从该URL代表的页面出发访问当前请求的页面。
User-Agent：浏览器类型，如果Servlet返回的内容与浏览器类型有关则该值非常有用。通过上面的文字，相信你对网页信息会有一定了解，详细请前往课程学习，我们再回来看下这个案例，上面视频讲解中案例代码如下：
网抓中国银行外汇牌价代码：Sub yifangtest()
Dim strText As String
Dim arrData(1 To 1000, 1 To 8)
Dim i As Long, j As Long
Dim TR As Object, TD As Object
With CreateObject("MSXML2.XMLHTTP")
.Open "GET", "http://www.boc.cn/sourcedb/whpj/", False
' .setRequestHeader "Content-Type", "application/json"
.Send
strText = .responsetext '
End With
With CreateObject("htmlfile")
.write strText
i = 0
For Each TR In .all.tags("table")(1).Rows
i = i + 1
j = 0
For Each TD In TR.Cells
j = j + 1
arrData(i, j) = TD.innerText
Next
Next
End With
Set TR = Nothing
Set TD = Nothing
Cells.Clear
Range("C:C").NumberFormat = "@" '设置文本格式以显示数字前面的0
Range("a1").Resize(i, 8).Value = arrData
End Sub往期精彩回顾
772
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
