VBA URL 파일 다운로드 방법 MS ACCESS, MS EXCEL

Private Sub 다운로드버튼_Click()
Dim sUrl as string
sUrl = "httP://www.naver.com/img1"
'실제 홈페이지에서 이미지 클릭시 이미지만 보이는 url

Dim Download_Go As Object '파일 다운로드 위한 변수
    Dim Download As Object '파일 다운로드 위한 변수
 
    Set Download = CreateObject("microsoft.xmlhttp")
 
    Download.Open "GET", "" & sUrl & "", False
    Download.send
 
    If Download.Status = 200 Then '요청한 웹 페이지가 정상적으로 왔는지 체크
        Set Download_Go = CreateObject("adodb.stream")
        Download_Go.Open
        Download_Go.Type = 1
        Download_Go.Write Download.responseBody
        Download_Go.SaveToFile "c:\temp\img.png", 2
        Download_Go.Close
     End If

'Download_Go.SaveToFile 에서 두번째 파라미터의 의미
'저장폴더, 저장할 파일이름 수정해서 사용 => "c:\temp\img.png"
'1 = 덮어쓰지 않음
'2 = 덮어쓰기

End Sub