PDA

Vollständige Version anzeigen : Datei aus dem Internet runterladen


Tiba
20.10.2001, 10:18
hallo,

ich suche die vba funktion mit der ich eine datei von einer bestimmten url aus dem internet runterladen kann.

vielen dank für die hilfe
-Tiba

Sascha Trowitzsch
20.10.2001, 10:37
Lies mal alles unter dem Topic 'Hyperlink' in der VBA-Hilfe.

Ciao, Sascha

Tiba
23.10.2001, 20:59
da hab ich mal geschaut, irgendwie hilft mir das aber nicht so richtig weiter...
kannst du mir da konkretere hilfe geben?

Günni
23.10.2001, 21:11
VBA selber bietet da eigentlich nur wenig Möglichkeiten. Speziell für diesen Fall gibts das INet-Control von Microsoft. Willst Du die Datei per FTP runterladen oder nur den HTML-Text einer Seite abgreifen???

<hr>
Rückfragen am besten per Email, da ich nur sehr selten einen Beitrag zweimal lese

<font color="#808080" size="2" face="Arial"><strong>
Mühldorfer Günter
Computer- und Software-Service </strong></font>

mg@mgcss.de
<a href="http://www.mgcss.de">www.mgcss.de</a>

Sascha Trowitzsch
24.10.2001, 01:18
...Wer sucht, der findet (in der MSKB)...

Es gibt eine Möglichkeit, dies recht kurz und bündig mit einer API-Funktion zu erledigen:

<div><link href="http://www.ms-office-forum.net/forum/externals/codeconv.css" rel="stylesheet"><pre><span class="TOKEN">Private</span> <span class="TOKEN">Declare</span> <span class="TOKEN">Function</span> URLDownloadToFile <span class="TOKEN">Lib</span> "urlmon" <span class="TOKEN">Alias</span> _
"URLDownloadToFileA" (<span class="TOKEN">ByVal</span> pCaller <span class="TOKEN">As</span> Long, <span class="TOKEN">ByVal</span> szURL <span class="TOKEN">As</span> String, <span class="TOKEN">ByVal</span> _
szFileName <span class="TOKEN">As</span> String, <span class="TOKEN">ByVal</span> dwReserved <span class="TOKEN">As</span> Long, <span class="TOKEN">ByVal</span> lpfnCB <span class="TOKEN">As</span> <span class="TOKEN">Long</span>) <span class="TOKEN">As</span> <span class="TOKEN">Long</span>

<span class="TOKEN">Private Sub</span> Befehl2_Click()
<span class="TOKEN">Dim</span> strFileURL <span class="TOKEN">As</span> String, strDestination <span class="TOKEN">As</span> <span class="TOKEN">String</span>
strFileURL = "http://www.meine-domain.de/file.zip"
strDestination = "C:\file_1.zip"
<span class="TOKEN">Call</span> URLDownloadToFile(0, strFileURL, strDestination, 0, 0)
<span class="TOKEN">End</span> <span class="TOKEN">Sub</span></pre></div>

...Code getestet und für gut befunden,

Ciao, Sascha

PS: Befehl2 ist natürlich ein Button in einem Form.