求助：下载B列图片链接保存到excel表格同文件夹，并用A列命名图片。怎样让他批量完成？

Question

如题所述

Answer 1

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

追问

大神！！！
1822个完成了1396个

膜拜啊！

本回答被提问者采纳