Macro Download from site/Макрос для скачивания с сайта

[sanych_09]

Run-time Error '3004'
Не удается записать файл

[sanych_09]

Да, это скрин того, что выдал MsgBox...
и нужная мне часть это сам файл, имя первого файла для скачивания PH1_Colocation....*.csv

[EducatedFool]

Run-time Error '3004'

блин, да уж посмотрите через msgbox, что там за имя файла формируется...

MSGBOX CuDir & WinHttpReq.GetResponseHeader("filename")

если увидите, что имя файла в кавычках, которые надо убрать, - так уберите их:

MSGBOX CuDir & split(WinHttpReq.GetResponseHeader("filename"),"""")(1)

[sanych_09]

MsgBox CuDir & WinHttpReq.GetResponseHeader("filename")

выдает только путь. D:\временно\5\
имя файла там не прописано

[sanych_09]

Все стало ясно, почитав доп.литературу по обработке заголовков HTTP запросов.


Заголовком в которой содержится ИМЯ ФАЙЛА есть строка не filename=... а

Content-Disposition.

MsgBox CuDir & WinHttpReq.GetResponseHeader("Content-Disposition")

этот код выдает следующий текс: D:\временно\5\attachment;filename=" PH1_New_Colocation_DPR_NEW_20150731 _1740H.csv" (в приложении принскрин)

теперь получается, чтобы использовать код для сохранения файла

oStream.SaveToFile CuDir & WinHttpReq.GetResponseHeader("Content-Disposition")

но из него нужно вырезать лишний текст attachment;filename= вместе кавычками и ставить только имя файла. тогда должно получиться все.

а как можно вырезать лишний текст? спасибо

[EducatedFool]

ну а если хоть немного (ну хоть совсем чуть-чуть) применить фантазию?

oStream.SaveToFile CuDir & split(WinHttpReq.GetResponseHeader("Content-Disposition"),"""")(1)

[sanych_09]

уже применил)))) посмотрел предыдущий Ваш код и MsgBox выдал что нужно!

просто не успел написать! радости был нет предела! все скачалось

Спасибо большое! еще один этап пройден.

дальше хочу progress bar пока файлы будут скачиваться и copy paste как значения. но это будет другая тема!


Ребята, спасибо! Вы крутые реально!

[sanych_09]

Сообщение от EducatedFool

после строки If WinHttpReq.Status = 200 Then
напишите строку

MsgBox WinHttpReq.GetAllResponseHeaders

может, в сообщении увидите нужное имя файла (оттуда несложно его извлечь)

поскольку протестировать ваш код возможности нет, - нет и готового решения
потому что сервер может выдавать файл по-разному (через один или несколько редиректов)

все работало супер, пока кто-то нехороший поменял какие-то параменты наверное на сервере.
сейчас при использовании кода

MsgBox WinHttpReq.GetAllResponseHeaders

имя файла исчезло.

есть ли возможность каким-то образом найти имя файла, т.е заголовок в котором его имя прописано? ссылка для скачивания на сайт осталась прежней... если ее просто вставить в адресную строку Хрома, например, файл скачивается без проблем.

[IgorGO]

если есть возможность получить имя файла вручную, то найдется и макросом.

ищите информацию, которая нужна Вам, расскажете где и как нашли, возможно Вам помогут сделать то же самое макросом.

[sanych_09]

MsgBox WinHttpReq.GetAllResponseHeaders

выдал информацию, а нужного файла тут нет (скиншот прикреплен)

чтобы загрузить файл вручную, нужно сделать:
1. залогиниться на сайт
2. перейти по гиперссылке
пример, http://site.com/tracker/projectone/r...e/download/359
название сайта я изменил
3. начинается закачка

а раньше, с использованием MsgBox можно было видеть имя файла.