url 주소로 파일 다운로드 VBA (urlmon사용)

c# 코드에는 urlmon을 사용한 urldownloadtofile이라는 기능이 있습니다.

 

그래서 VBA에서도 urlmon.dll을 사용한 urldownloadtofile을 사용할 수 있을 것 같아서 한번 시도해봤습니다.

 

Private Declare PtrSafe 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

 

해당 코드를 VBA에서 불러오면 됩니다.

 

이미지처럼 됩니다.

 

0의 의미는 아직 확실하지는 않습니다.

 

하지만 이렇게 하면 다운로드가 이루어집니다~^^

 

추후에는 또 다른 방법 다운로드와 크롤링을 통한 주소를 찾아오는 방법도 블로그 해보겠습니다.

 

그렇게 되면 이미지를 주소를 통해서 이미지를 다운로드하는 형태도 가능할 것 같습니다.

 

아래는 예시 코드입니다.

 

Private Declare PtrSafe 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


Sub FileDown()

URLDownloadToFile 0, "인터넷주소", "저장할 파일위치 및 이름", 0, 0


End Sub