主要是利用Excel自带的创建Web查询功能,再配合代码加以实现。代码如下:
创建查询QueryTables.Add
PreserveFormatting = True
保留现有表格格式
WebTables = "2"
这个数字是指网页中的第几张表,这个数字可以通过看源代码第几个Tabel出现的位置得到,简单点的就是录制一个创建Web查询的宏
.Refresh
创建完了别忘记更新,不然啥数据都没。
参考:
如何根据输入的日期获取人民币汇率? http://www.exceltip.net/thread-8026-1-1-11314.html