将图片另存到本地

gareth

本地有十个图片网址，想将它们另存到本地，求指点，谢谢！
图片另存到本地.zip (6.61 KB, 下载次数: 17)

2017-12-17 13:26 上传

点击文件名下载附件

duquancai

完全类似的代码论坛有，搜搜

fxl447098457

还没几天前我们就写过。。。

duquancai

Sub 下载图片()
    Dim xmlHttp As Object, B() As Byte, arr, ph$, n&
    Set xmlHttp = CreateObject("msxml2.xmlhttp")
    arr = [b3].CurrentRegion
    ph = ThisWorkbook.Path
    For i = 1 To UBound(arr)
        If Len(arr(i, 1)) Then
            xmlHttp.Open "GET", arr(i, 1), False
            xmlHttp.send
            Do While xmlHttp.readyState <> 4
                DoEvents
            Loop
            n = n + 1
            B = xmlHttp.responseBody
            Open ph & "\" & n & ".jpg" For Binary As #1
            Put #1, , B()
            Close
        End If
    Next
    MsgBox "ok!"
End Sub

gareth

duquancai 发表于 2017-12-17 13:51
Sub 下载图片()
    Dim xmlHttp As Object, B() As Byte, arr, ph$, n&
    Set xmlHttp = CreateObject ...

这个是秒下载呀！非常感谢您！