Automatic download of browser content using Excel links and VBA

  • Hi Ranjith,

    Thanks for your kind help with the code earlier, though when I tried running it I am not sure it works correctly.

    Option Explicit
    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 downloadImages()
    Dim rng As Range, cell As Variant
    Set rng = Range(Range("A2"), Range("A10000").End(xlUp))
    For Each cell In rng
    URLDownloadToFile 0, cell.Offset(0, 1).Value, Application.ActiveWorkbook.Path & "\" & cell.Value, 0, 0
    End Sub

    Q: How do I specify the destination folder for the downloads please?

    Kindest Regards


  • administrators

    Application.ActiveWorkbook.Path = Path of the active excel workbook.

    Replace it with full path of the your destination folder like - "C:\Users\Tom".

    You got to figure out few things on your own.

  • Thanks Ranjith,

    Clearly I am a total beginner here. What is the best place to start learning the whole coding thing you would recommend for guys like me?



  • administrators

    If you want to learn VBA then you can start here - which has a series of tutorials for beginners. I write only general How-Tos and advanced use cases of VBA so stay tuned to my blog for more practical use cases -

    Hope that helps!

  • Of course it does! So did your code BTW - it worked like a charm! Loved it!

    Thank you so much for your kind help!


Log in to reply

Looks like your connection to Codingislove Forum was lost, please wait while we try to reconnect.