|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
26.04.2010, 21:22 | #1 |
Пользователь
Регистрация: 18.11.2008
Сообщений: 11
|
Поиск и импорт данных из интернета
Всем добрый день, вечер или утро!!! Прошу Вашей помощи в решении следующей задачи:
необходимо реализовать средствами VBA поиск данных в интернете и затем дальнейший их импорт, например, в книгу Excel. Создать нечто подобное через веб-запрос пробовал, но появились некоторые затруднения. Дело в том, что это необходимо для заполнения каталога фильмов. Т.е. у меня есть только название фильма и нужно в интернете (а именно на сайте кинопоиск.ру) осуществить поиск фильма по названию и импортировать обратно в книгу данные о нем (год, жанр, режиссеры и т.п). Бо большому счету нужен только макрос, который бы помог реализовать данную задачу. Помогите, пожалуйста, в решении данного вопроса. Заранее Всем очень благодарен!!! |
26.04.2010, 21:28 | #2 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,858
|
Это будет весьма непросто сделать.
Одно дело - запустить поиск по некой фразе, потом щелкнуть по первой ссылке в результатах, и скопировать оттуда нужные значения. (и то весьма сложный код получится) А что делать, если по запросу фильмы не найдены? (или найдено 1163 фильма, как по запросу "любовь") Тут всё намного сложнее. Сомневаюсь, что кто-то бесплатно предложит вам готовое решение. |
26.04.2010, 21:37 | #3 |
Пользователь
Регистрация: 18.11.2008
Сообщений: 11
|
Я с Вами согласен. Нюансов в данной задаче много.
Готов упростить задачу. Меня интересует именно та часть кода, которая отвечает за ввод данных в поле поиска фильма. С тем, что оно потом выдаст, я постараюсь справиться сам, будь то 1000 результатов или ни одного. П.С. Названия фильмов будут строго соответствовать оригиналу, так что в принципе тут будет только два варианта: либо фильм есть, либо нет (что маловероятно, т.к. фильмы в базе не самые новые) |
26.04.2010, 21:41 | #4 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,858
|
от вас - пример исходной таблицы (со списком фильмов для поиска),
и пример того, что должно получиться после поиска по сайту. Попробуем что-нибудь изобрести. |
26.04.2010, 21:45 | #5 |
Участник клуба
Регистрация: 28.06.2009
Сообщений: 1,950
|
Я посмотрел - там разве на сайте поиск не сделан с помощью запроса в адресной строке? Тогда надо просто сделать функцию, которой передается название фильма, и она выдает HTML-код результата с сервера
|
26.04.2010, 21:58 | #6 |
Пользователь
Регистрация: 18.11.2008
Сообщений: 11
|
Вот файл с исходными данными: импорт.rar
|
26.04.2010, 22:13 | #7 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,858
|
Я что-то не понял...
Вот, к примеру, на листе ФИЛЬМ у вас 9 записей. Для каждого фильма создавать отдельный лист РЕЗУЛЬТАТ? Я-то думал, что в ту же таблицу (на листе ФИЛЬМ) надо добавить несколько столбцов (справа от названия фильма) - таких, как: год страна слоган режиссер сценарий продюсер |
26.04.2010, 22:58 | #8 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,858
|
Сделал я вам всё-таки программу.
Проверяйте: Процесс обработки отображается в строке состояния Excel. Вот весь код: Код:
|
27.04.2010, 01:02 | #9 |
Пользователь
Регистрация: 18.11.2008
Сообщений: 11
|
СПАСИБО!!! Задачу решили великолепно!!! Очень Вам благодарен. Я просто в восторге! Всё работает так, как нужно!!!
|
24.08.2010, 17:28 | #10 |
Регистрация: 24.08.2010
Сообщений: 7
|
Добрый день!
А мне не поможете? Задача в следующем, наверное даже чуть проще имея ссылку на кинопоиск с фильмом выдернуть оттуда в таблицу exel английское название, год, рейтинг кинопоиска, рейтинг IMDB, режиссера. Заранее благодарен |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
макрос обновления данных из интернета | Legame | Microsoft Office Excel | 14 | 01.10.2015 09:26 |
импорт данных из интернета | peq | Microsoft Office Excel | 7 | 30.04.2010 09:12 |
Импорт данных с интернета в таблицу | Ренатик | Microsoft Office Access | 0 | 20.05.2009 02:03 |
Импорт данных с интернета в Accesse | Ренатик | Помощь студентам | 0 | 03.05.2009 22:50 |
импорт данных | Рокабіллі_Птах | БД в Delphi | 1 | 13.05.2008 18:49 |