![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы | Поиск в этой теме |
![]() |
#1 | |
Пользователь
Регистрация: 03.08.2009
Сообщений: 10
|
![]()
Доброго времени суток.
Помогите, пожалуйста, разобраться с непонятным вопросом. Цель: скачать файлы из интернета (пример ссылки для скачивания https://www.atsenergo.ru/reporting/p...units/20091204 ) хочу скачать файлы *.zip. Воспользовался приводимыми на форуме примерами и написал следующий код: Цитата:
![]() Ещё вопрос: как сделать так чтобы названия файлов не изменялись? просто подставлять ссылку и скачивать файл с именем как на сайте не изменяя его имени? |
|
![]() |
![]() |
![]() |
#2 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
![]()
Проверил код и файлы.
Вывод: проблема не в коде, и никакие паузы тут не помогут. Просто сервер некорретно формирует некоторые файлы (заметьте, во всех папках архивы с именами 0.zip имеют размер больше остальных (28кБ, и не открываются.) |
![]() |
![]() |
![]() |
#3 |
Пользователь
Регистрация: 03.08.2009
Сообщений: 10
|
![]()
Уважаемый, EducatedFool.
а возможно ли средствами VBA Excel скачивать файлы со страничек сайта просто используя ссылку? т.е. есть прямая ссылка на файл. как используя VBA скачать файл? |
![]() |
![]() |
![]() |
#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. |
||
![]() |
![]() |
![]() |
#5 |
Пользователь
Регистрация: 03.08.2009
Сообщений: 10
|
![]()
приведенный код задаёт имя сохраняемого файла. а как просто скачать файл? с оригинальным именем файла?
т.е. просто "сымитировать" кликание мышкой на ссылке файла на странице сайта. возможно ли такое? про определение типа переменной уже столкнулся с "byref argument type mismatch" ![]() и всё равно используя ваш измененный код файлы с названием "0" и "1" скачиваются некорректными. видать правда сервер что-то не то формирует в ответ на запрос ![]() |
![]() |
![]() |
![]() |
#6 |
Старожил
Регистрация: 02.05.2009
Сообщений: 3,907
|
![]()
Прямой ссылкой скачать не получится.Сервер не разрешает,у Вас нет прав на это.
я пробовал программно скачать несколькими вариантами созданых загрузчиков.Практически везде сервер отвечал отказом. Программно,через браузер качается,но надо жать кнопку сохранить. Попробую что то решить
Анализ,обработка данных Недорого
|
![]() |
![]() |
![]() |
#7 | |||
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
![]() Цитата:
(самый первый файл, скачанный макросом) Не вижу в этом файле ничего некорректного... Цитата:
Обратите внимание - я убрал пару слов в одной строке кода: Код:
Цитата:
Можно попробовать, но не вижу смысла - какая разница, под каким именем сохранён файл?
__Полезные надстройки для Excel. Парсинг сайтов и файлов.
![]() Последний раз редактировалось EducatedFool; 26.01.2010 в 17:30. |
|||
![]() |
![]() |
![]() |
#8 |
Старожил
Регистрация: 02.05.2009
Сообщений: 3,907
|
![]()
Первый и я скачал,а надо же купу файлов,что бы качал в цикле
Анализ,обработка данных Недорого
|
![]() |
![]() |
![]() |
#9 |
Пользователь
Регистрация: 03.08.2009
Сообщений: 10
|
![]()
EducatedFool
я полностью скопировал Ваш код. попробовал ещё раз. всё равно. таже проблема ![]() ![]() странно... попробую позже с другого провайдера... хотя у Вас также были некорректные файлы при использовании моего кода, не понимаю. ошибка неточности типа переменной попалась мне не на Вашем коде, сегодня же, но ранее ![]() doober ну а вот используя такой браузер как Chrome от Google не нужно нажимать "сохранить". он сразу качает "щёлкнутый" файл в ранее определенную директорию ![]() Жаль что такая проблема в VBA... или не проблема, а отсутствие такой возможности. Спасибо за помощь! ![]() |
![]() |
![]() |
![]() |
#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 |