Скачивание файла из интернета по ссылке

[doober]

Работает нормально
Ошибка может быть из за неправильного пути к папке.
Добавил проверку.
Если не получится,могу предложить собственный загрузчик

Function DownLoadFile(FromPathName, ToPathName) As Boolean
    DownLoadFile = URLDownloadToFile(0, FromPathName, ToPathName, 0, 0) = 0
End Function
Sub Main()
    Папка = "C:\Documents and Settings\marenkovm\Рабочий стол\1\"

On Error GoTo 3
    ChDir (Папка )
    link = "http://www.finam.ru/_private/Files/micex-y.zip"
    FileToLoad = Папка & Day(Now)-1 & Month(Now) & Year(Now) & ".zip"
            If DownLoadFile(link, FileToLoad) Then
                Debug.Print "Скачан файл: " & link
            Else
                MsgBox "Не удалось загрузить файл ", vbCritical
            End If

   Exit Sub
            
3
    MsgBox Err.Description
End Sub

[Maxx]

Ошибка может быть из за неправильного пути к папке.

Папка есть, путь правильный, уж это я могу

Работает нормально

Это хорошо! Т.е. я все-таки что-то понял
Но фигня какая-то - У МЕНЯ НЕ РАБОТАЕТ!!!!

Может какая библиотека не подключена, может Proxy Server не дает скачивать. Подскажите, в чем засада?

[doober]

попробуйте мой
Процесс увидите

[Maxx]

Уверен, что вещь хорошая!
Но я вот что увидел
Думаю, все дело в Proxy. Попробую вечером дома.
И все же можно как-нибудь заставить работать Ваш предыдущий вариант у меня?

[doober]

Скорее всего сервер .Хоть ошибку увидели.Возможнл нужен логин и пароль

[Maxx]

ОК! Попробую оба варианта вечером дома. Завтра отпишусь!

[vniiam1978]

Доброго времени суток!
В продолжение темы smith45 от 26.01.2010, 11:39 (см. первый пост).

Веду статистику по данным сайта https://www.atsenergo.ru/reporting/p...units/20110101 .
Теперь там поменялся путь к файлам. Если раньше, описанный выше макрос работал и качал инфу в zip формате, то теперь на каждый день и каждый файл путь меняется в шестнадцатеричном фрагменте ссылки. Как используя VBA скачать файлы?

[doober]

в помощь собиратель ссылок

[lukass]

Если хочешь именно по ссылке то тебе нужна будет эта программа http://tusoftka.ru/utility-windows/7...ild-24402.html дал ему адрес и он сам скачает

[Dexter_M]

Добрый день.
необходимо скачать данные с сайта
http://so-ups.ru/index.php?id=1203&t...%5D=01.01.2001
данные необходимы в формате .csv начиная с 01,01,2001.
Т.е. ссылки для всех файлов есть, необходимо просто подставлять в них даты.
Я с макросами не очень дружу. Попытался сделать что-то типа представленного в 4-ом посте EducatedFool, но столкнулся с проблемой, что количество дней в месяце не одинаково.
Был бы благодарен за помощь.