Нужна аналогичная программа (надстройка, макрос) для Excel?
Оформите заказ, не забыв прикрепить примеры файлов, и описать, что и как должно работать.
Поиск информации о фильмах, и импорт данных из интернета |
Эта программа позволяет найти в интернете (на сайте kinopoisk.ru), и вывести в таблицу Excel характеристики фильмов
(такие, как: год выпуска, страна, слоган, режиссер, сценарий, продюсер фильма, оператор, композитор, жанр, продолжительность и т.д. и т.п.)
Исходными данными для программы является столбец с названиями фильмов.
Принцип работы программы:
- для каждого фильма берётся русское название, и преобразуется в URLEncode
- во вторую ячейку строки вставляется гиперссылка, ведущая на результаты поиска по сайту
- формируется ссылка для поиска очередного фильма по сайту kinopoisk.ru
- на скрытом листе TEMP макросом создаётся веб-запрос
- после получения данных из интернета веб-запрос удаляется (данные остаются)
- по каждому значению из заданного в макросе массива производится поиск характеристики с таким же названием в результатах выполненного веб-запроса
- результаты выводятся в строку с названием фильма
SearchArray = Array("год", "страна", "слоган", "режиссер", "сценарий", "продюсер", "оператор", "композитор", "художник", "жанр", "монтаж", "сборы в России", "премьера (мир)", "время")
Время работы макроса напрямую зависит от 3 величин:
- количества фильмов
- скорости доступа в интернет
- производительности компьютера
Остановить поиск фильмов можно в любой момент, нажав кнопку «Остановить» на индикаторе выполнения.
- Добавить комментарий
- 34332 просмотра
Комментарии
Высылайте заказ на почту или в скайп, - если по цене договоримся, то реанимирую этот макрос, или сделаю аналогичный новый.
Привет. Нужная вещь. Доделай. Я бы купил за разумные деньги.
это конечно хорошо, но без загрузки актеров смысла в этой программе нет, потому что мало кто будет выполнять поиск по режиссеру итд, обычно ищут или по названию или по актеру
Теперь уже работает с .WebTables = "2"
Уважаемый Игорь, данный макрос безупречно работает в Екселе 2007, но почему-то в Екселе 2013 не происходит копирования вэб-данных на лист, подскажите пожалуйста с чем может быть связана данная проблема и как ее устранить?
Да, есть такая проблема.
Видимо, они опять сайт переделали.
Поддержку бесплатных программ я не осуществляю.
Если готовы оплатить доработку программы — обращайтесь, все снова будет работать.
Добрый день.
Вместо информации, отображаются прочерки:-(
В очередной раз структура сайта поменялась.
Чтобы код заработал - надо в строке
.WebTables = "10"заменить 10 на 9
Прикрепил исправленную версию файла.
Также не работает. В данных после загрузки одни лишь прочерки.
добрый день!
Хотел еще узнать, на сколько это законно, так как возник бан на ссылки после 50 запросов:
IP адрес:
UserAgent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0; .NET CLR 1.1.4322; .NET CLR 2.0.50727; .NET CLR 3.0.4506.2152; .NET CLR 3.5.30729; .NET4.0C; .NET4.0E)
Referer:
Ht: 4
но бан, как ни странно только на создаваемые ссылки, а на сайт нету бана....
Точно///// в 2 ночи ужу голова отказывала))))))
Спасибо Вам большое))))))))))))))))))))))))
Здравствуйте.
У меня такой проблемы не наблюдается - замена производится без проблем: скриншот
Вы уверены, что в настройках поиска у вас не стоит галочка «Ячейка целиком»?
Доброго времени суток!
не могу понять, почему или где в макросе прописано про "защиту" ячеек от замен/////
хотел избавиться от ", ..." через замену...... не выходит///
Игорь, Вы мне ответите в почту насчет заказ или нет?
Запрос с логином и паролем, конечно же, сделать могу.
Только там будет не веб-запрос, а несколько иной способ получения данных.
Сложность макроса, и, соответственно, его цена, зависит от конкретного сайта.
Оформляйте заказ, прикрепив пример результата в формате Excel, и объясните, какие именно данные с сайта нужно получать (не забудьте сообщить логин и пароль)
Добрый день!
Можете ли вы сделать web запрос, который будет заходить на сайт, вводить логин и пароль и уже там переходить по ссылке и только потом будет тянуть какие-нибудь данные. Если можете, то сколько это будет стоить?
Добавить можно (кстати, если хорошо поищете, можете найти расширенную версию этой программы, где выводится необходимая вам информация. Где-то на форумах давно выкладывал, а где- уже не помню.)
Услуга по доработке программы платная.
Можете добавить еще 3 столбца ?
ID КП - ссылка на фильм в формате http://www.kinopoisk.ru/level/1/film/485401/
Imdb - рейтинг по imdb
КП - рейтинг по кинопоиску
Исправил код (на сайте изменился формат страницы - добавилась одна таблица):
потребовалось только изменить строку .WebTables = "9" на .WebTables = "10"
Прикрепил к статье исправленный файл.
К сожалению, скорость работы кода заметно снизилась - страницы сайта «Кинопоиск» разработчики перегрузили лишней информацией, и данными с внешних сайтов, поэтому полная загрузка каждой страницы длится несколько секунд (раньше, насколько я помню, работало раза в 3 быстрее)
(к сожалению, так уж устроен веб-запрос, что он не считается выполненным, пока страница не загрузится на 100%)
Не работает.