Build a macro that downloads files form a url and saves them as a new name

[starlev]

Hello,
I am looking to build a macro that downloads files form a url and saves them as a new name.

I would like to save each url in my local computer in the path
C:\test\
the name for the first photo would be URL1 the second URL2.
I would like to save each url in my local computer in the path
C:\test\url1.jpg
C:\test\url2.jpg


You can find the sample spreadsheet at the following link:
https://drive.google.com/file/d/1ATY...ew?usp=sharing


Any help on the matter would be appreciated.

[Leith Ross]

Hello starlev,

I have added the macro below to the attached workbook. It downloads the two files to the specified directory.

Please Login or Register  to view this content.

[starlev]

Thank you
I will look into it an update if it works.

[starlev]

Thank you for your macro it seems to work:

I have a little bit of understanding in VBA however I do not understand how your code connects to the Internet.

I am assuming that the function Internet GetFile is the one that is connecting to the Internet.
And that all the Const are some kind of ports.
I will appreciate if you can explain more how this works.

Also I would like to be able to resize photos if the resolution is smaller then 800 x 800 pixels to 825 x 825 however when I resize I would like to keep the original ratio but that at least the length and height are equal or bigger than 825 pixels.


I was playing around with your code and I made it a bit more flexible.
I added another macro called " Main_module"

It has a macro Main_save_files
I added the following options:
1.VBA builds a folder name based on the SKU name.
2. I built a loop that can work with multiple SKU'S
I am attaching a workbook with all the new code.

You can also find the code that builds folders here:

Please Login or Register  to view this content.

And the code the code that downloads the photos here

Please Login or Register  to view this content.

Thank you again for your help.

[starlev]

I forgot to attach to the previous post the spreadsheet

You can find it at the following link:

https://drive.google.com/file/d/1des...ew?usp=sharing

[Leith Ross]

Hello starlev,

Thanks for sharing your updated code. To answer your question about the internet connection, it is done by calling the Widows API (Application Program Interface) function OpenInternet and the file is downloaded using the Windows API function URLDownloadToFile. Both of these functions are low level system calls. If you are not familiar with how these calls operate, do not try to change them in the code. You can crash Excel or even the computer. The Const (Constant declaration keyword) provides the API calls with predefined values needed for execution or error detection and helps make the code more readable.

[starlev]

Hi Leith,
The API that connects to the Internet I understand from you it is not a built functionality form VBA it is rather a Windows compartment.
What do you suggest I search on Google in order to find more information about this topic?


In my previous thread I requested to modify the code.

Also I would like to be able to resize photos if the resolution is smaller then 800 x 800 pixels to 825 x 825 however when I resize I would like to keep the original ratio but that at least the length and height are equal or bigger than 825 pixels.


Thank you for your help.