Quanta vezes precisamos baixar um arquivo via download via código. A idéia aqui é bem simples, basta passar a url do arquivo que deseja baixar e o destino.

   1: Public Sub DownloadFile(Url As String, DestFileName As String)    
   2:     Dim http As WinHttpRequest    
   3:     Set http = New WinHttpRequest        
   4:     http.Open "GET", Url, False    
   5:     http.Send        
   6:     Dim hFile As Integer    
   7:     hFile = FreeFile        
   8:  
   9:     Open DestFileName For Output As #hFile    
  10:         Print #hFile, StrConv(http.ResponseBody, vbUnicode)    
  11:     Close #hFile
  12:  
  13:     End Sub

Ë necessário criar uma referência na sua aplicação para utilizar o WinHttpRequest.

 

Minato 8-)