Download xls or txt file using webbrowser control 1

[sarduspater]

I need to be able to save a xls or txt file without open it.
I work with vba within excel and explorer 6.
If I use WebBrowser1.Navigate "fileURL" I can view a txt file within Explorer, but i need only save it (it's an attachment file in an intranet mail).
I try with WebBrowser1.openURL, but webbrowser don't have this method.
Thanks

 

[AndyGroom]

After opening the file, experiment with:

WebBrowser1.Document.Body

The .OuterHTML property of the Body might be what you're looking for.

- Andy
___________________________________________________________________
If you think nobody cares you're alive, try missing a couple of mortgage payments

 

[sarduspater]

OuterHTML links to file same this:
<A href="/mail/BBB/user.nsf/0/79d8c2eab3c92897c12576b7005cda9e/Body/M2/FILENAME.TXT?OpenElement".
How can I save the file without open it?
Consider that file can be very big, and if it's an xls, I can have problems with program xls I use, or I don't have installed a program for open the attachment.
Thanks and excuse for my english.

 

[AndyGroom]

In order to save the file locally you're either going to have to open it or download it - either way you'll end up transfering the data to your machine so you can't avoid that bit.

If you can get the file to open in WebBrowser you could then save it as a text file. Try InnerHTML instead of OuterHTML.

- Andy
___________________________________________________________________
If you think nobody cares you're alive, try missing a couple of mortgage payments

 

[vb5prgrmr]

Or try innertext...



Good Luck

 

[sarduspater]

My problem is not to get the link to file, but to transfer it to my pc having the link.
I found URLDownloadToCacheFile function using urlmon.dll but it need know file dimension.
Any other idea?

 

[AndyGroom]

Try something like this:

Dim WinHttpReq As Object
Dim FileBytes() As Byte
Set WinHttpReq = CreateObject("WinHttp.WinHttpRequest.5.1")
WinHttpReq.open "GET", YourURLGoesHere, False
WinHttpReq.send
If (WinHttpReq.Status = 200) Then
  FileBytes() = WinHttpReq.responsebody
  F% = Freefile
  Open "C:\DownloadedFile.txt" For Binary Access Write As F%
  Put #F%, 1, FileBytes()
  Close F%
End If

- Andy
___________________________________________________________________
If you think nobody cares you're alive, try missing a couple of mortgage payments

 

[sarduspater]

Thank you for code, but it save html code, not related file.

 

[AndyGroom]

Even if you put the name of the file instead of the URL? If, for example, you put "

http://www.mywebsite.com/logo.jpg"

as the YourURLGoesHere then it'll download and save logo.jpg.

- Andy
___________________________________________________________________
If you think nobody cares you're alive, try missing a couple of mortgage payments

 

[sarduspater]

Yes, I put the filename as this:
WinHttpReq.Open "GET", "

http://srvxxx2a.gbxxxx.priv//mail/B...c92897c12576b7005cda9e/Body/M2/FILENAME.TXT",

False

 

[sarduspater]

The correct link was "

http://srvxxx2a.gbxxxx.priv/mail/BB...b3c92897c12576b7005cda9e/Body/M2/FILENAME.TXT

 

[dilettante]

This isn't a VB 5 or 6 question. It should go in a VBA forum.

 

[sarduspater]

Difference between VB and VBA is not too big.
Same code can be executed within VB6 or Excel.
So I appreciate every help.

(se tu sei dilettante, io sono un praticone...)

 

[BobRodes]

Well, the point is that there may be problems specific to the VBA environment that the experts there might be better able to help you with. You might try reposting in that forum.

 

[strongm]

Here's one technique:

http://support.microsoft.com/kb/200676

or you could investigate the URLDownloadToFile API, which is fractionally simpler than the API that you found. We've illustrated it a few times in this forum, notably vb5prgrmr and I think Hypetia. However, here's a link to the fairly simple Microsoft example to get you started

 

[sarduspater]

Thank you, strongm.
Microsoft simple you linked is very useful. I tested it with differend types of files and different dimension.
Thanks to all for your kindness.