VBA pobranie pliku z internetu?

[Musta]

Czy da sie jakos przy pomocy VBA pobrac plik, ktorego znam adres?

Mam taka sytuacje - na serwerze http "www.costam.pl" jest milion plików
a ja potrzebuje sciagnac konkretnego dnia np 700.

napisalem makro ktore generuje mi linki do potrzebnych plików i teraz
tylko umiem te liste linkow wkleic w jakiegos sciagacza plikow. Nawet
dziala ale chcialbym ten proces uczynic wpelni automatycznym.

Moze jest jakas biblioteka ktora moze mi w tym pomoc?


musta

[Grzegorz Stadnik]

Post by Musta
Czy da sie jakos przy pomocy VBA pobrac plik, ktorego znam adres?
Moze jest jakas biblioteka ktora moze mi w tym pomoc?

Kopia z API-guide: 'example by Matthew Gates (***@hotmail.com)

Private 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

Public Function DownloadFile(URL As String, LocalFilename As String) As
Boolean
Dim lngRetVal As Long
lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
If lngRetVal = 0 Then DownloadFile = True
End Function

Przykład wywołania:
DownloadFile "http://www.allapi.net", "c:\allapi.htm"

Pozdrawiam
GS