vba下载(wps哪个版本可以免费使用宏)

先来看看问题

我的同事遇到了一个问题:他在钉钉线上上课，通过表格收集学生的作业，但是数据导出后，得到的是一堆图片一样的链接，没有图片。

但是我真正需要的是这些链接对应的图片，我想把这些图片保存在一个文件夹里。

所以，只能一个一个手动下载。然而，对于任何两个班级，每个班级有50名学生，笔记+作业…每人每天至少要交5张照片。一周有多少数据？哈哈~ ~ ~ ~下载图片的过程真酸。

其实有简单的解决办法

对于这种问题，如果用VBA来解决，十秒钟就能解决。

步骤1:按Alt+F11打开VBE窗口并插入一个模块。

步骤2:在插入的模块中编写代码:

下载子图片()dimxml作为对象，irow作为long，picname作为string，picsetxml = createobject(& # 34；msxml2。Xmlhttp & # 34)Irow = 2 Do While单元格(Irow，& # 34；C & # 34).价值& lt& gt""Pic = Split(单元格(Irow，& # 34；C & # 34).价值，& # 34；。")PicName = Cells(Irow，& # 34；一& # 34；).文本和单元格(Irow，& # 34；B&第34名；).正文& & # 34；。"& Pic(UBound(Pic)) Xml。打开& # 34；获取& # 34；，单元格(Irow，& # 34；C & # 34).Text，False XML . send Do While XML . ready state & lt；& gt4 DoEvents循环Dim Arr()As Byte Arr = XML . response body打开此工作簿。路径& & # 34；\图片\ & # 34；& PicName For Binary As #1 Put #1，，Arr Close # 1 Irow = Irow+1 Loop MsgBox & # 34；下载完成后，点击【确定】按钮查看结果。"，vbInformation Shell & # 34explorer.exe & # 34；& ThisWorkbook。路径& & # 34；\图片\ & # 34；，vbNormalFocusEnd Sub

第三步:返回工作表，执行代码下载图片。

视频加载…

这种方法是不是更简单方便？有类似需求的可以收集代码。

我是叶枫，感谢您的阅读。单击下面的“了解更多”观看完整的演示视频。

免责声明：本站所有文章内容,图片，视频等均是来源于用户投稿和互联网及文摘转载整编而成，不代表本站观点，不承担相关法律责任。其著作权各归其原作者或其出版社所有。如发现本站有涉嫌抄袭侵权/违法违规的内容,侵犯到您的权益，请在线联系站长,一经查实,本站将立刻删除。

作者：美站资讯，如若转载，请注明出处：https://www.meizw.com/n/228965.html

vba下载(wps哪个版本可以免费使用宏)

相关推荐

发表回复