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

主要是利用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