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

[smith45]

Доброго времени суток.
Помогите, пожалуйста, разобраться с непонятным вопросом.
Цель: скачать файлы из интернета (пример ссылки для скачивания
https://www.atsenergo.ru/reporting/p...units/20091204 )
хочу скачать файлы *.zip.
Воспользовался приводимыми на форуме примерами и написал следующий код:

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

Function DownLoadFile(FromPathName As String, ToPathName As String) As Boolean
DownLoadFile = URLDownloadToFile(0, FromPathName, ToPathName, 0, 0) = 0
End Function

Sub Main()
Dim link1, link2 As String
Dim linka As String
Dim Filename, fn2 As String
Dim data1, data2, d As Long
Dim i, j, k As Integer

data1 = 20100121
data2 = 20100126
k = data2 - data1

link1 = "https://www.atsenergo.ru/reporting/public/eur/carana_sell_units/"
link2 = "/?zip=true"
Filename = "D:\Downloads\atsenergo\"
On Error Resume Next
Kill Filename

For j = 0 To k
d = data1 + j
MkDir "D:\Downloads\atsenergo\" & d
Filename = "D:\Downloads\atsenergo\" & d & "\"
For i = 0 To 88
linka = link1 & d & "/" & i & link2
fn2 = Filename & i & ".zip"
'If i = 0 Or i = 1 Then Application.Wait (Now + TimeValue("0:00:05"))
If DownLoadFile(linka, fn2) Then
Else
MsgBox "Не удалось загрузить файл ", vbCritical
End If
Next i
Next j
End Sub

проблема: при скачивании первые файлы (с индексом 0, 1, иногда только 0) скачиваются поврежденными. Остальные файлы качаются нормально. пробовал притормозить макрос (заблокированная строка с кодом Wait) не помогает
Ещё вопрос: как сделать так чтобы названия файлов не изменялись? просто подставлять ссылку и скачивать файл с именем как на сайте не изменяя его имени?

[EducatedFool]

Проверил код и файлы.
Вывод: проблема не в коде, и никакие паузы тут не помогут.

Просто сервер некорретно формирует некоторые файлы
(заметьте, во всех папках архивы с именами 0.zip имеют размер больше остальных (28кБ, и не открываются.)

[smith45]

Уважаемый, EducatedFool.
а возможно ли средствами VBA Excel скачивать файлы со страничек сайта просто используя ссылку?
т.е. есть прямая ссылка на файл. как используя VBA скачать файл?

[EducatedFool]

а возможно ли средствами VBA Excel скачивать файлы со страничек сайта просто используя ссылку?

конечно возможно
http://excelvba.ru/code/DownloadFile

как используя VBA скачать файл?

а приведённый Вами код разве делает что-то другое?

Попробуйте такой вариант кода:

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

Function DownLoadFile(FromPathName, ToPathName) As Boolean
    DownLoadFile = URLDownloadToFile(0, FromPathName, ToPathName, 0, 0) = 0
End Function

Sub Main()
    Папка = "C:\Documents and Settings\Игорь\Рабочий стол\"
    data1 = 20100121: data2 = 20100126: k = data2 - data1

    link1 = "https://www.atsenergo.ru/reporting/public/eur/carana_sell_units/"
    Filename = "D:\Downloads\atsenergo\"
    On Error Resume Next
    Kill Filename

    For j = 0 To k
        d = data1 + j: MkDir Папка & d
        Filename = Папка & d & "\"
        For i = 0 To 88
            linka = link1 & d & "/" & i
            fn2 = Filename & i & ".xls"
            DoEvents
            If DownLoadFile(linka, fn2) Then
                Debug.Print "Скачан файл: " & linka
            Else
                MsgBox "Не удалось загрузить файл ", vbCritical
            End If
        Next i
    Next j
End Sub

Будут скачиваться файлы excel
На самом деле ранее скачивались именно файлы excel, а открыть Вы их не могли потому, что присваивали создаваемым файлам расширение ZIP

PS: На будущее - когда Вы пишете Dim i, j, k As Integer
то только переменная k получает тип Integer, а остальные - тип Variant

Правильно будет так: Dim i As Integer, j As Integer, k As Integer

[smith45]

приведенный код задаёт имя сохраняемого файла. а как просто скачать файл? с оригинальным именем файла?
т.е. просто "сымитировать" кликание мышкой на ссылке файла на странице сайта. возможно ли такое?

про определение типа переменной уже столкнулся с "byref argument type mismatch"

и всё равно используя ваш измененный код файлы с названием "0" и "1" скачиваются некорректными. видать правда сервер что-то не то формирует в ответ на запрос

[doober]

Прямой ссылкой скачать не получится.Сервер не разрешает,у Вас нет прав на это.
я пробовал программно скачать несколькими вариантами созданых загрузчиков.Практически везде сервер отвечал отказом.
Программно,через браузер качается,но надо жать кнопку сохранить.
Попробую что то решить

[EducatedFool]

и всё равно используя ваш измененный код файлы с названием "0" и "1" скачиваются некорректными.

Ну незнаю... вот то, что скачалось под именем 0.xls:
(самый первый файл, скачанный макросом)



Не вижу в этом файле ничего некорректного...

про определение типа переменной уже столкнулся с "byref argument type mismatch"

Надо было взять код из моего поста ПОЛНОСТЬЮ - тогда бы VBA не ругался.

Обратите внимание - я убрал пару слов в одной строке кода:

Function DownLoadFile(FromPathName, ToPathName) As Boolean

а как просто скачать файл? с оригинальным именем файла?

Как - не знаю. Скорее всего, надо как-то выдирать имя файла из функции URLDownloadToFile (или использовать другой метод скачивания / другую API-функцию)
Можно попробовать, но не вижу смысла - какая разница, под каким именем сохранён файл?

[doober]

Первый и я скачал,а надо же купу файлов,что бы качал в цикле

[smith45]

EducatedFool
я полностью скопировал Ваш код. попробовал ещё раз. всё равно. таже проблема Может зависит ещё от чего
странно... попробую позже с другого провайдера...
хотя у Вас также были некорректные файлы при использовании моего кода, не понимаю.

ошибка неточности типа переменной попалась мне не на Вашем коде, сегодня же, но ранее почитал про неё в интернете и переписал определение всех переменных.

doober
ну а вот используя такой браузер как Chrome от Google не нужно нажимать "сохранить". он сразу качает "щёлкнутый" файл в ранее определенную директорию

Жаль что такая проблема в VBA... или не проблема, а отсутствие такой возможности.

Спасибо за помощь!

[Maxx]

Всем доброго дня! Очень интересная тема и для меня абсолютно новая!
Изучив все посты выше, понял, что ничего не понял

Хотелось бы скачивать от сюда: http://www.finam.ru/analysis/MetaStock/default.asp

файл ММВБ Итоги дня.
Прямой линк на файл такой: http://www.finam.ru/_private/Files/micex-y.zip

Написал следующее:

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

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

Ну и конечно же в итоге MsgBox "Не удалось загрузить файл ", vbCritical

Помогите, пожалуйста!