Нужна аналогичная программа (надстройка, макрос) для Excel?

Оформите заказ, не забыв прикрепить примеры файлов, и описать, что и как должно работать.

Поиск информации о фильмах, и импорт данных из интернета

Характеристики фильмов с сайта Кинопоиск

Эта программа позволяет найти в интернете (на сайте kinopoisk.ru), и вывести в таблицу Excel характеристики фильмов

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

Исходными данными для программы является столбец с названиями фильмов.

 

Принцип работы программы:

  • для каждого фильма берётся русское название, и преобразуется в URLEncode
  • во вторую ячейку строки вставляется гиперссылка, ведущая на результаты поиска по сайту
  • формируется ссылка для поиска очередного фильма по сайту kinopoisk.ru
  • на скрытом листе TEMP макросом создаётся веб-запрос
  • после получения данных из интернета веб-запрос удаляется (данные остаются)
  • по каждому значению из заданного в макросе массива производится поиск характеристики с таким же названием в результатах выполненного веб-запроса
  • SearchArray = Array("год", "страна", "слоган", "режиссер", "сценарий", "продюсер", "оператор", "композитор", "художник", "жанр", "монтаж",  "сборы в России", "премьера (мир)", "время")

  • результаты выводятся в строку с названием фильма

 

Время работы макроса напрямую зависит от 3 величин:

  • количества фильмов
  • скорости доступа в интернет
  • производительности компьютера

Остановить поиск фильмов можно в любой момент, нажав кнопку «Остановить» на индикаторе выполнения.

Вложения:

Комментарии

Высылайте заказ на почту или в скайп, - если по цене договоримся, то реанимирую этот макрос, или сделаю аналогичный новый.

Привет. Нужная вещь. Доделай. Я бы купил за разумные деньги.

это конечно хорошо, но без загрузки актеров смысла в этой программе нет, потому что мало кто будет выполнять поиск по режиссеру итд, обычно ищут или по названию или по актеру

Теперь уже работает с .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%)

Не работает.