根据输入的日期获取人民币汇率

主要是利用Excel自带的创建Web查询功能，再配合代码加以实现。代码如下：

Sub 查询()
Dim sDate As Date
sDate = Application.InputBox("请输入日期", "输入", Date)
Cells.Clear
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.safe.gov.cn/model_safe/search/rmb.jsp?sdate=" & sDate, _
Destination:=Range("A1"))
.Name = "我的查询"
.PreserveFormatting = True
.WebTables = "2"
.Refresh
End With
End Sub

创建查询QueryTables.Add

PreserveFormatting = True

保留现有表格格式

WebTables = "2"

这个数字是指网页中的第几张表，这个数字可以通过看源代码第几个Tabel出现的位置得到，简单点的就是录制一个创建Web查询的宏
.Refresh

创建完了别忘记更新，不然啥数据都没。

 

参考：

如何根据输入的日期获取人民币汇率？ http://www.exceltip.net/thread-8026-1-1-11314.html