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"..