构建宏以将网站上的数据下载到Excel中

Question

我想在Excel中使用VBA构建一个宏来从以下网站下载历史数据:

http://quickstats.nass.usda.gov/results/320F1D82-1064-30F1-809E-F77E509EC508

我像往常一样创建一个命令按钮.然后我认为这可以使用宏录制器轻松解决.但是,当我选择数据 - >获取外部数据 - >从Web,然后输入上述地址时,我无法选择整个表作为数据.

所以,我不确定如何执行此任务,但我觉得可能有某些标准代码,我一直无法找到,以完成任务.

我觉得这项任务对很多人都很有用,因为从网站下载数据的脚本可以在各种地方使用.

Answer 1

您可以尝试从表格的"可打印"版本下载表格,而不是尝试下载动态表格.可打印表的URL是;

Blockquote http://quickstats.nass.usda.gov/results/320F1D82-1064-30F1-809E-F77E509EC508

和VBA;

With ActiveSheet.QueryTables.Add(Connection:= _
    "URL;http://quickstats.nass.usda.gov/data/printable/4C43034A-0EAA-3171-B4FC-84CC95FC6E0C" _
    , Destination:=Range("$F$10"))

我可以用宏下载表格.