Copy files from website?
 

I use Excel 2007 with VBA at work. We also have a company
website that, I believe, is an Intranet only website.

Is it possible to use VBA to extract images from our company
website and copy them to a local folder?

For example, if I type "http://blue/our_site/img/444.001.jpg" in my
Internet Explorer browser at work, an image will load on my
browser. Are there VBA functions that take a URL as above
and copy the file to a target location??

Thanks!

Copy files from website?
 

Robert Crandal wrote:

I use Excel 2007 with VBA at work. We also have a company
website that, I believe, is an Intranet only website.

Is it possible to use VBA to extract images from our company
website and copy them to a local folder?

For example, if I type "http://blue/our_site/img/444.001.jpg" in my
Internet Explorer browser at work, an image will load on my
browser. Are there VBA functions that take a URL as above
and copy the file to a target location??

Does it *need* to be VBA? While VBA certainly can do it, it's much simpler to
use a download manager like wget or curl from the command line:
cd "local folder"
wget http://blue/our_site/img/444.001.jpg

--
You seldom learn the names of the truly wealthy and powerful.
You see only their spokesmen. The political arena makes a few
exceptions to this but does not reveal the full power structure.

Copy files from website?
 

I cant install "wget" or "curl" at work. I thought maybe VBA
had some functions for downloading files from a website.

"Auric__" wrote in message
44.100...
Robert Crandal wrote:

Does it *need* to be VBA? While VBA certainly can do it, it's much simpler
to
use a download manager like wget or curl from the command line:
cd "local folder"
wget http://blue/our_site/img/444.001.jpg

Copy files from website?
 

Robert Crandal wrote:

"Auric__" wrote in message
44.100...
Robert Crandal wrote:

Does it *need* to be VBA? While VBA certainly can do it, it's much simpler
to use a download manager like wget or curl from the command line:
cd "local folder"
wget http://blue/our_site/img/444.001.jpg

I cant install "wget" or "curl" at work. I thought maybe VBA
had some functions for downloading files from a website.

Well... if it was me, I'd just run wget from a USB drive... if it was me.

But since you're not me, you can try this:

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
Sub grabfile()
URLDownloadToFile 0, "http://blue/our_site/img/444.001.jpg", _
"C:\dir\you\have\write\access\to\444.001.jpg", 0, 0
End Sub

If that doesn't work, there's more than one way to skin this cat. Google for
"automate internet explorer vb", without quotes.

--
In the meantime why let the worry mice gnaw at one's mind?

Copy files from website?
 

Perfect, that worked very nicely for me. That's exactly what I
was looking for!

Thank you very much!


"Auric__" wrote in message
44.100...
Robert Crandal wrote:


But since you're not me, you can try this:

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
Sub grabfile()
URLDownloadToFile 0, "http://blue/our_site/img/444.001.jpg", _
"C:\dir\you\have\write\access\to\444.001.jpg", 0, 0
End Sub

Cho thuê sân khấu - Thi công lắp dựng sân khấu -LH 0907 150 220

Ä�ạt PhÆ°Æ¡ng - Ä�Æ¡n vị chuyên cung cấp, cho thuê âm thanh - ánh sáng - cung cấp, lắp đặt sân khấu phục vụ sá»± kiện chuyên nghiệp. ... Chuyên thiết kế, cung cấp vÃ* lắp đặt hệ thống thiết bị âm thanh, ánh sáng, không gian, ...sân khấu. Liên hệ Mr Ä�ạt 0911 000 222



[center]

Huyen Tâm Bui :v. Má»›i chá»— vợ xong gặp trÆ°a Ä‘áº*p đấy. Gam em phá Nguyen chị Máº*p Thu gá»�i Jessica Ä�ang Ä‘i chồng cả kêu nay Gấu ăn Gá»�i Nguyen Bùi vá»�
Bảo Hiểm Chăm sóc sức kh�e