엑셀 URL 이미지 저장 :: SaveImageFromURL 함수

Function SaveImageFromURL(sURL As String, sPath As String) As Long
 
'###############################################################
'오빠두엑셀 VBA 사용자지정함수 (https://www.oppadu.com)
'▶ SaveImageFromURL 함수
'▶ URL 주소의 이미지를 지정한 경로의 파일로 저장합니다.
'▶ 인수 설명
'_____________sURL          : 이미지를 다운로드 할 URL 주소입니다.
'_____________sPath         : 이미지를 저장할 경로입니다. 폴더 경로와 확장자를 포함한 전체 경로를 입력합니다.
'▶ 사용 예제
'SaveImageFromURL "https://www.google.com/images/branding/googlelogo/1x/googlelogo_color_272x92dp.png","C:\구글로고.png"
'##############################################################
 
Dim objHTTP As Object
Dim objStream As Object
Dim sHTML As Variant
 
Const adTypeBinary As Long = 1
Const adSaveCreateOverWrite As Long = 2
 
If Left(sURL, 4) <> "http" Then sURL = "http://" & sURL
 
Set objHTTP = CreateObject("MSXML2.XMLHTTP.6.0")
Set objStream = CreateObject("ADODB.Stream")
objStream.Type = adTypeBinary
 
On Error GoTo EH:
With objHTTP
    .Open "GET", sURL, sPath
    .Send
End With
 
If objHTTP.Status = 200 Then
    sHTML = objHTTP.responsebody
    With objStream
    .Open
    .Write sHTML
    .SaveToFile sPath, adSaveCreateOverWrite
    .Close
    End With
Else
    GoTo EH:
End If
 
SaveImageFromURL = 0
 
Exit Function
 
EH:
SaveImageFromURL = Err.Number
 
End Function