|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
26.01.2010, 11:39 | #1 | |
Пользователь
Регистрация: 03.08.2009
Сообщений: 10
|
Скачивание файла из интернета по ссылке
Доброго времени суток.
Помогите, пожалуйста, разобраться с непонятным вопросом. Цель: скачать файлы из интернета (пример ссылки для скачивания https://www.atsenergo.ru/reporting/p...units/20091204 ) хочу скачать файлы *.zip. Воспользовался приводимыми на форуме примерами и написал следующий код: Цитата:
Ещё вопрос: как сделать так чтобы названия файлов не изменялись? просто подставлять ссылку и скачивать файл с именем как на сайте не изменяя его имени? |
|
26.01.2010, 14:50 | #2 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
Проверил код и файлы.
Вывод: проблема не в коде, и никакие паузы тут не помогут. Просто сервер некорретно формирует некоторые файлы (заметьте, во всех папках архивы с именами 0.zip имеют размер больше остальных (28кБ, и не открываются.) |
26.01.2010, 16:43 | #3 |
Пользователь
Регистрация: 03.08.2009
Сообщений: 10
|
Уважаемый, EducatedFool.
а возможно ли средствами VBA Excel скачивать файлы со страничек сайта просто используя ссылку? т.е. есть прямая ссылка на файл. как используя VBA скачать файл? |
26.01.2010, 16:50 | #4 | ||
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
Цитата:
http://excelvba.ru/code/DownloadFile Цитата:
Попробуйте такой вариант кода: Код:
На самом деле ранее скачивались именно файлы excel, а открыть Вы их не могли потому, что присваивали создаваемым файлам расширение ZIP PS: На будущее - когда Вы пишете Dim i, j, k As Integer то только переменная k получает тип Integer, а остальные - тип Variant Правильно будет так: Dim i As Integer, j As Integer, k As Integer
__Полезные надстройки для Excel. Парсинг сайтов и файлов.
Макросы любой сложности на заказ. Мониторинг цен конкурентов Последний раз редактировалось EducatedFool; 16.02.2012 в 18:47. |
||
26.01.2010, 17:14 | #5 |
Пользователь
Регистрация: 03.08.2009
Сообщений: 10
|
приведенный код задаёт имя сохраняемого файла. а как просто скачать файл? с оригинальным именем файла?
т.е. просто "сымитировать" кликание мышкой на ссылке файла на странице сайта. возможно ли такое? про определение типа переменной уже столкнулся с "byref argument type mismatch" и всё равно используя ваш измененный код файлы с названием "0" и "1" скачиваются некорректными. видать правда сервер что-то не то формирует в ответ на запрос |
26.01.2010, 17:24 | #6 |
Старожил
Регистрация: 02.05.2009
Сообщений: 3,907
|
Прямой ссылкой скачать не получится.Сервер не разрешает,у Вас нет прав на это.
я пробовал программно скачать несколькими вариантами созданых загрузчиков.Практически везде сервер отвечал отказом. Программно,через браузер качается,но надо жать кнопку сохранить. Попробую что то решить
Анализ,обработка данных Недорого
|
26.01.2010, 17:25 | #7 | |||
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
Цитата:
(самый первый файл, скачанный макросом) Не вижу в этом файле ничего некорректного... Цитата:
Обратите внимание - я убрал пару слов в одной строке кода: Код:
Цитата:
Можно попробовать, но не вижу смысла - какая разница, под каким именем сохранён файл?
__Полезные надстройки для Excel. Парсинг сайтов и файлов.
Макросы любой сложности на заказ. Мониторинг цен конкурентов Последний раз редактировалось EducatedFool; 26.01.2010 в 17:30. |
|||
26.01.2010, 17:31 | #8 |
Старожил
Регистрация: 02.05.2009
Сообщений: 3,907
|
Первый и я скачал,а надо же купу файлов,что бы качал в цикле
Анализ,обработка данных Недорого
|
26.01.2010, 17:41 | #9 |
Пользователь
Регистрация: 03.08.2009
Сообщений: 10
|
EducatedFool
я полностью скопировал Ваш код. попробовал ещё раз. всё равно. таже проблема Может зависит ещё от чего странно... попробую позже с другого провайдера... хотя у Вас также были некорректные файлы при использовании моего кода, не понимаю. ошибка неточности типа переменной попалась мне не на Вашем коде, сегодня же, но ранее почитал про неё в интернете и переписал определение всех переменных. doober ну а вот используя такой браузер как Chrome от Google не нужно нажимать "сохранить". он сразу качает "щёлкнутый" файл в ранее определенную директорию Жаль что такая проблема в VBA... или не проблема, а отсутствие такой возможности. Спасибо за помощь! |
27.01.2010, 10:08 | #10 |
Форумчанин
Регистрация: 29.10.2008
Сообщений: 294
|
Всем доброго дня! Очень интересная тема и для меня абсолютно новая!
Изучив все посты выше, понял, что ничего не понял Хотелось бы скачивать от сюда: http://www.finam.ru/analysis/MetaStock/default.asp файл ММВБ Итоги дня. Прямой линк на файл такой: http://www.finam.ru/_private/Files/micex-y.zip Написал следующее: Код:
Помогите, пожалуйста! Последний раз редактировалось Maxx; 27.01.2010 в 10:12. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Частичное скачивание файла | Usov | Работа с сетью в Delphi | 1 | 19.10.2009 21:45 |
Скачивание файла | Lemo | Помощь студентам | 16 | 28.07.2009 22:54 |
Скачивание случайного файла с фтп | snooppy | Работа с сетью в Delphi | 8 | 16.10.2008 11:36 |
Скачивание файла из сети, по средствам TcpClient. | papa_serg | Работа с сетью в Delphi | 6 | 01.04.2008 23:22 |
Скачивание файла с прогрессом | CoDeR | Работа с сетью в Delphi | 2 | 22.10.2007 09:10 |