Excel打印如何设置纸张方向?小Q来教您一个解决的方法。......
2023-01-18
之前工作需要把销售业绩上的商品添加对应图片,而商品图片都在网站上,这里就需要把商品图片下载到本地,在进行Excel图片填充,下面介绍如何利用VBA技术下载网页图片保存在本地文件夹。
这里小编将需要下载图片的网址放置于Excel工作表中,如下图所示:
点击开发工具,打开Visual Basic,插入一个模块,输入以下代码:
头三行代码是对URLDownloadToFile的申明(如果无这句,底下代码无法运行,报错“用户定义类型未定义”),可输入在一行,这里用“ _”对代码进行换行,便于截图展示。URLDownloadToFile解释:从指定URL地址读取内容并将读取到的内容保存到特定的文件里,调用格式为:Call URLDownloadToFile(0, "网页地址", "保存到本地文件名和地址", 0, 0)。
这里需要注意的是:代码中的申明是针对64位系统的电脑,如果是32位系统得换成以下语句:Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA"(ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
点击F5或者菜单栏中的运行按钮,即可运行代码,如果图片较多的话,程序需要一定的时间,小伙伴们记得耐心等候下,程序运行完毕,可以发现图片已经被下载在特定的文件夹中。
也许会有小伙伴吐槽,网址需要一个个收集,略微麻烦,这里解释下,小编之前遇到的是一类商品网址头部一致,只有尾部数字代号不一样,可以利用Excel连接技术(“&”),批量获取商品网址,在进行图片下载,这里仅将下载代码分享给大家,供参考。
相关文章