none
Save Image from webpage to local system using VBA RRS feed

All replies

  • Take look on this:

    Public Declare 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
    
    Public Sub GURoL(url As String, FileName As String)
    Dim lngRetVal As Long
        lngRetVal = URLDownloadToFile(0, url, FileName, 0, 0)
        If lngRetVal <> 0 Then
        MsgBox "GURol godo: Can't download from " & url & " to " & FileName
        End If
    End Sub
    
    Sub Download_Procedure()
    Call GURoL("http://i.msdn.microsoft.com/ms348103.LOGO_WINDOWS(en-us,MSDN.10).png", _
               "c:\Temp\plik.png") '<change your dest. path
    End Sub

    Regards


    Oskar Shon, Office System MVP

    Press if Helpful; Answer when a problem solved

    Thursday, October 18, 2012 6:25 PM
    Answerer
  • goooood man
    Sunday, October 8, 2017 8:41 PM