电脑怎么下载excel(Excel当然行！)(电脑怎么下载EXCEL2016)

大家好！今天让小编来大家介绍下关于电脑怎么下载excel(Excel当然行！)的问题，以下是酷知号的小编对此问题的归纳整理，让我们一起来看看吧。

今天给各位分享电脑怎么下载excel的知识，其中也会对批量下载网上的图片，Excel当然行！进行解释，如果能碰巧解决你现在面临的问题，别忘了关注本站，现在开始吧！

上次我们分享了如何使用Excel在当当网上搜索图书信息，并将图书的封面、现价、定价、折扣、链接等数据抓取到Excel：

原文中此处为链接，暂不支持采集

然后有个朋友问，Excel能不能批量下载网上的图片？譬如说罢，我在百度上搜索了520啊、胡歌啊、杨幂啊甚么滴，想把图片都下载下来……

Excel行不行？

坦白的说，当然……行啊！

照例看个示例动画先。

A2单元格输入搜索的关键字，例如520，点击按钮即可将百度图片搜索结果的前30张图片下载到指定文件夹内。

小贴士：

1，可以下载百度各种类型的图片，比如PNG、JPG、GIF等。图片会被下载到当前Excel工作簿所在路径下的名为图片的文件夹中。如果不存在图片文件夹，代码会自行建立；如果存在图片文件夹，代码会删除该文件夹下所有的文件。

2，图片按序号命名，也就是1~2~3~4~520啊。

3，代码支持64位电脑，如果是32位则需要自行修改API函数，也就是通过查找替换的方式将PtrSafe替换为空白。

4，最后说一个特别认真特别重要的是：我爱你，你知道的。

代码如下：

PrivateDeclarePtrSafeFunctionURLDownloadToFileLib”urlmon”Alias”URLDownloadToFileA”(ByValpCallerAsLong,ByValszURLAsString,ByValszExtNameAsString,ByValdwReservedAsLong,ByVallpfnCBAsLong)AsLong

PrivateDeclarePtrSafeFunctionDeleteUrlCacheEntryLib”wininet”Alias”DeleteUrlCacheEntryA”(ByVallpszUrlNameAsString)AsLong

SubDownloadPictures()

DimstrKeyAsString

DimstrURLAsString

DimstrFolderPathAsString

DimstrTextAsString

DimstrPicPathAsString

DimstrPicURLAsString

DimstrExtNameAsString

DimaPageNumAsVariant

DimaExtNameAsVariant

DimiAsLong

DimkAsLong

strFolderPath=ThisWorkbook.Path&”\图片\”

IfDir(strFolderPath,vbDirectory+vbHidden)>””Then

IfDir(strFolderPath&”*.*”)>””ThenKillstrFolderPath&”*.*”

Else

MkDirstrFolderPath

EndIf

strKey=[a2].Value

IfLen(strKey)=0Then

MsgBox”未输入查询关键字，程序退出。”

ExitSub

EndIf

strKey=encodeURI(strKey)’对查询关键字转码

WithCreateObject(“msxml2.xmlhttp”)’发送网页请求，获得响应信息

strURL=”http://image.baidu.com/search/index?tn=baiduimage&word=”&strKey

.Open”GET”,strURL,”False”

.send

strText=.responseText

EndWith

aPageNum=Split(strText,”””pageNum””:”)

‘按关键字pageNum对响应信息进行拆分

Fori=1ToUBound(aPageNum)

IfInStr(1,aPageNum(i),”objURL”,vbTextCompare)Then

‘判断是否存在字符串objurl

k=k+1

strPicURL=Split(Split(aPageNum(i),”””objURL””:”””)(1),”””,”)(0)

‘图片的网址

aExtName=Split(strPicURL,”.”)

strExtName=”.”&aExtName(UBound(aExtName))

‘图片的后缀名

strPicPath=strFolderPath&k&strExtName

‘图片保存地址

DeleteUrlCacheEntrystrPicURL

‘删除图片缓存数据

URLDownloadToFile0,strPicURL,strPicPath,0,0

‘下载图片

EndIf

Next

EndSub

FunctionencodeURI(strTextAsString)AsString

DimobjDOMAsObject

SetobjDOM=CreateObject(“htmlfile”)

WithobjDOM.parentWindow

objDOM.Write”<Script></Script>”

encodeURI=.eval(“encodeURIComponent(‘”&strText&”‘)”)

EndWith

SetobjDOM=Nothing

EndFunction

图文：看见星光

文章分享结束，电脑怎么下载excel和批量下载网上的图片，Excel当然行！的答案你都知道了吗？欢迎再次光临本站哦！

以上就是小编对于电脑怎么下载excel(Excel当然行！)问题和相关问题的解答了，电脑怎么下载excel(Excel当然行！)的问题希望对你有用！