EXCEL中VBA，自动点击指定网页中下载按钮，并下载文件

【数据准备】

1，excel中记录你需要下载的所有网址

2，设置下载的文档保存路径

【功能实现】

1，利用VBA启动IE浏览器

2，打开你所需要下载的URL

3，触发该网址中的下载按钮

随便打开一个excel，然后输入下面的代码，就可以把网站内容下载到active worksheet

至于怎么改成你需要的格式你就根据你的需求去抓取你需要的数据填到你的表格里就可以了

Sub getdatafromweb()

Dim objWeb As QueryTable

Dim sWebTable As String

Dim s As String

sWebTable = 1

s = "URLhttp://www.dce.com.cn/portal/cate?cid=1383639648100"

Set objWeb = ActiveSheet.QueryTables.Add(Connection:="" &s &"", Destination:=Activesheet.Range("A1"))

With objWeb

.WebSelectionType = xlSpecifiedTables

.WebTables = sWebTable

.Refresh BackgroundQuery:=False

.SaveData = True

End With

Set objWeb = Nothing

End Sub

---