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
Sub test()
p = ThisWorkbook.Path & "\"
arr = Range("A1").CurrentRegion.Value
For r = 2 To UBound(arr)
URLDownloadToFile 0, arr(r, 2), p & arr(r, 1) & ".jpg", 0, 0
Next
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除！