- 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
- Private Declare Function DeleteUrlCacheEntry Lib "wininet" Alias "DeleteUrlCacheEntryA" (ByVal lpszUrlName As String) As Long
- Sub DownloadPic()
- Dim Arr As Variant, j%, k As Byte, StrPath$, Fn$, Spath$, Returnval As Long
- Arr = [A1].CurrentRegion
- For j = 1 To UBound(Arr)
- For k = 1 To UBound(Arr, 2)
- If j = 1 Then
- StrPath = ThisWorkbook.Path & "" & Arr(j, k)
- Fn = Dir(StrPath, vbDirectory + vbHidden)
- If Len(Fn) = 0 Then MkDir StrPath
- Else
- If Len(Arr(j, k)) Then
- Spath = ThisWorkbook.Path & "" & Arr(1, k) & "" & Mid(Arr(j, k), InStrRev(Arr(j, k), "/") + 1, Len(Arr(j, k)))
- Returnval = URLDownloadToFile(0, Arr(j, k), Spath, 0, 0)
- If Returnval = 0 Then DeleteUrlCacheEntry Spath
- End If
- End If
- Next k
- Next j
- End Sub
复制代码 |