我有一个包含文件夹名称、图像名称和 URL 的工作表。我想将每个图像下载到特定文件夹,以便结果如下所示:
Folder Name Image Name URL
----------- ------------ -----------------------------------
folder1 image1 http://www.example.com/example1.jpg
folder2 image2 http://www.example.com/example2.jpg
folder3 image3 http://www.example.com/example3.jpg
folder4 image4 http://www.example.com/example4.jpg
folder5 image5 http://www.example.com/example5.jpg
C:\images\folder1\image1.jpg
C:\images\folder2\image2.jpg
C:\images\folder3\image3.jpg
C:\images\folder4\image4.jpg
C:\images\folder5\image5.jpg
我找到了这个 VBA 代码,它的工作方式就像一个魅力,但我不知道如何添加一个方法来创建文件夹(如果文件夹不存在):
Option Explicit
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
Dim Ret As Long
'~~> This is where the images will be saved. Change as applicable
Const FolderName As String = "C:\Temp\"
Sub Sample()
Dim ws As Worksheet
Dim LastRow As Long, i As Long
Dim strPath As String
'~~> Name of the sheet which has the list
Set ws = Sheets("Sheet1")
LastRow = ws.Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To LastRow '<~~ 2 because row 1 has headers
strPath = FolderName & ws.Range("A" & i).Value & ".jpg"
Ret = URLDownloadToFile(0, ws.Range("B" & i).Value, strPath, 0, 0)
If Ret = 0 Then
ws.Range("C" & i).Value = "File successfully downloaded"
Else
ws.Range("C" & i).Value = "Unable to download the file"
End If
Next i
End Sub
最佳答案
以下将确定文件夹是否存在,如果不存在,则创建它:
If Len(Dir(FolderName, vbDirectory)) = 0 Then
MkDir FolderName
End If
修改自 here
对于更高级的内容,我建议使用 FileSystemObject 类。
关于excel - 从url下载图片并保存到以单元格命名的文件夹中,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/23742636/