单元格 图片导出excel_利用VBA下载钉钉系统导出Excel数据中的图片

钉钉是个非常不错的工具，在我们日常使用中经常要上传一些图片，有的是为了打卡，有的为了审批流程，实际使用中都有照片的上传，但是将有照片的数据导出时，其在Excel中是显示该图片的一个链接，如果上传的是多张照片则是一组照片链接，如果我们想保存其中的照片或者是查看，会很不方便。如图所示：

钉钉中下载的示例数据

今天我就结合Excel中导出的数据，结合VBA，将钉钉中导出的数据中的图片全部下载到本地。具体代码如下：

Sub 下载钉钉导出数据中的图片()Dim i As IntegerDim sFileName, sUrl As StringDim arr() As StringDim arrCol() As StringOn Error Resume NextDim sKey, sDownS, sDown As StringDim iLine As IntegersKey = InputBox("请输入需要建目录的关键列号(请输入列号的字母)")sDownS = InputBox("请输入需要下载图片的列号(输入多个要下载的列号的字母，如果多列请用半角分号分隔开)")iLine = Int(InputBox("请输入您指定开始下载的行号(只能输入数字)"))If iLine <= 2 Then iLine = 2Dim PathSht As