vba下载网页文件保存

『壹』 Excel 如何用VBA提取网页数据

1、首先打开Excel 2007工作表，点击想要把数据导入的位置，然后在菜单栏找到第五项'数据“，点击，在“获取外部数据”项下找到“自网站”并点击。
2、这时弹出来”新建 Web 查询“对话框，可以在“地址”一栏键入要添加数据的网页的地址。
3、添加完成后，点击“转到（G）”，下面会出来要添加网页的内容和黄色箭头，单击要选择的表旁边的黄色箭头，可以看到点击后黄色箭头变成绿色的对号，这表示内容已经选中了，然后单击“导入（I）”。
4、弹出来”导入数据“对话框，设置完成点击“确定”。
5、Excel表中显示“正在获取数据……”。
6、数据获取完成，之前选中的网页内容全部导入了Excel工作表里。

『贰』 VBA如何保存

对于2003版的xls文件，保存工作簿时就自动保存了其中的VBA。
对于2007以上版本，默认工作簿为没有宏的xlsx文件，它无法保存VBA，要保存VBA，必须另存为启用宏的工作簿.xlsm。
实际上在保存编辑有VBA的xlsx文件时，系统会有这个提示的。如下图：

『叁』 用vba下载网页数据，网址如下：

VBE--工具--引用ols
Sub获取网页信息1()
DimvDoc,vTag,coll
DimiAsInteger
DimjAsInteger
DimieAsNewInternetExplorer
'Setie=CreateObject("InternetExplorer.Application")
ie.Navigate"http://www.wanlicai.com/sd11y/index.shtml"
ie.Visible=True
DoUntilie.ReadyState=READYSTATE_COMPLETE'如果IE加载宏完成
DoEvents'在窗体加载时转交操作权
Loop
Application.Wait(Now+TimeValue("0:00:03"))'等待3秒，防止网速有延迟
SetvDoc=ie.Document
DimmstrcellAsString
Setcoll=vDoc.All("historyTable")
Fori=0Tocoll.Rows.Length-1
Forj=0Tocoll.Rows(i).Cells.Length-1
mstrcell=mstrcell&Space(4)&coll.Rows(i).Cells(j).innertext
Cells(i+1,j+1)=coll.Rows(i).Cells(j).innertext
Nextj
Debug.Printmstrcell
mstrcell=""
Nexti
ie.Quit
Setie=Nothing
SetvDoc=Nothing
Setcoll=Nothing
EndSub

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

【数据准备】
1，excel中记录你需要下载的所有网址
2，设置下载的文档保存路径
【功能实现】
1，利用VBA启动IE浏览器
2，打开你所需要下载的URL
3，触发该网址中的下载按钮

『伍』 vba 如何实现excel 上传到网络 和打开网络excel 及从网络下载到本地

07版有这个功能 自己录个宏 就可以