Перенос информации из сайта - Мир MS Excel

Регистрация

Напомнить пароль

= Мир MS Excel/Перенос информации из сайта - Мир MS Excel

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Перенос информации из сайта (Макросы/Sub)

Перенос информации из сайта

Дата: Воскресенье, 15.03.2015, 21:48 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 36

Репутация: 0 ±

Замечаний: 40% ±

Excel 2013

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

)... Например как у меня из лота под ячейкой Е23 в листе "Автомобиль"

К сообщению приложен файл: 1557204.xls (97.0 Kb)

Сообщение отредактировал mishayakimenko - Воскресенье, 15.03.2015, 21:53

Ответить

Дата: Понедельник, 16.03.2015, 02:06 | Сообщение № 2

Группа: Проверенные

Ранг: Обитатель

Сообщений: 362

Репутация: 64 ±

Замечаний: 0% ±

Цитата

автоматически через интернет вставлялась в таблицу соответствующим образом

Тут попробуй понять вопрос...что ни слово, то ребус!
В какую таблицу? Какой это соответствующий образ?

Цитата

Например как у меня из лота под ячейкой Е23 в листе "Автомобиль"

Под ячейкой Е23 находится ячейка Е24 и она пуста!
Куда эту пустоту вставить надо?
Попробуй задать вопрос на русском языке

Могу помочь в VB6, VBA
Alex77755@mail.ru

Сообщение отредактировал alex77755 - Понедельник, 16.03.2015, 02:07

Ответить

Дата: Понедельник, 16.03.2015, 18:29 | Сообщение № 3

Группа: Друзья

Ранг: Старожил

Сообщений: 2348

Репутация: 997 ±

Замечаний: 0% ±

Excel 2007,2010,2013

как-то так...
наименование лота

Цитата

=ЕСЛИОШИБКА(ФИЛЬТР.XML(ПОДСТАВИТЬ(ПСТР(ВЕБСЛУЖБА(E21);ПОИСК("<table";ВЕБСЛУЖБА(E21);ПОИСК(">"&ЗАМЕНИТЬ(ЗАМЕНИТЬ(E21;1;ПОИСК("=";E21););7;14;)&"<";ВЕБСЛУЖБА(E21)));ПОИСК("</table";ВЕБСЛУЖБА(E21);ПОИСК(">"&ПРАВБ(E21;7)&"<";ВЕБСЛУЖБА(E21)))-ПОИСК("<table";ВЕБСЛУЖБА(E21);ПОИСК(">"&ЗАМЕНИТЬ(ЗАМЕНИТЬ(E21;1;ПОИСК("=";E21););7;14;)&"<";ВЕБСЛУЖБА(E21)))+8);" ";" ");"//tr[4]/td[2]");"")

начальная цена

Цитата

=ЕСЛИОШИБКА(--ПОДСТАВИТЬ(ПОДСТАВИТЬ(ФИЛЬТР.XML(ПОДСТАВИТЬ(ПСТР(ВЕБСЛУЖБА(E21);ПОИСК("<table";ВЕБСЛУЖБА(E21);ПОИСК(">"&ЗАМЕНИТЬ(ЗАМЕНИТЬ(E21;1;ПОИСК("=";E21););7;14;)&"<";ВЕБСЛУЖБА(E21)));ПОИСК("</table";ВЕБСЛУЖБА(E21);ПОИСК(">"&ПРАВБ(E21;7)&"<";ВЕБСЛУЖБА(E21)))-ПОИСК("<table";ВЕБСЛУЖБА(E21);ПОИСК(">"&ЗАМЕНИТЬ(ЗАМЕНИТЬ(E21;1;ПОИСК("=";E21););7;14;)&"<";ВЕБСЛУЖБА(E21)))+8);" ";" ");"//tr[6]/td[2]");".";ПСТР(1/2;2;1));" ";);"")

описание

Цитата

=ЕСЛИОШИБКА(ФИЛЬТР.XML(ПОДСТАВИТЬ(ПСТР(ВЕБСЛУЖБА(E21);ПОИСК("<table";ВЕБСЛУЖБА(E21);ПОИСК(">"&ЗАМЕНИТЬ(ЗАМЕНИТЬ(E21;1;ПОИСК("=";E21););7;14;)&"<";ВЕБСЛУЖБА(E21)));ПОИСК("</table";ВЕБСЛУЖБА(E21);ПОИСК(">"&ПРАВБ(E21;7)&"<";ВЕБСЛУЖБА(E21)))-ПОИСК("<table";ВЕБСЛУЖБА(E21);ПОИСК(">"&ЗАМЕНИТЬ(ЗАМЕНИТЬ(E21;1;ПОИСК("=";E21););7;14;)&"<";ВЕБСЛУЖБА(E21)))+8);" ";" ");"//tr[5]/td[2]");"")

К сообщению приложен файл: 1557204-1-.xlsb (37.3 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Понедельник, 16.03.2015, 18:50

Ответить

Дата: Вторник, 17.03.2015, 16:07 | Сообщение № 4

Группа: Проверенные

Ранг: Обитатель

Сообщений: 362

Репутация: 64 ±

Замечаний: 0% ±

_xlfn.WEBSERVICE это что?
У меня аолучилось UDF (если я правильно понял)
=Название_лота(E21)
=Начальная_цена(E21)
=Описание(E21)
Но, видимо, ТС потерял интерес к теме

К сообщению приложен файл: 9482867.jpg (15.9 Kb)

Могу помочь в VB6, VBA
Alex77755@mail.ru

Ответить

Дата: Среда, 18.03.2015, 01:06 | Сообщение № 5

Группа: Друзья

Ранг: Старожил

Сообщений: 2348

Репутация: 997 ±

Замечаний: 0% ±

Excel 2007,2010,2013

alex77755, это функция ВЕБСЛУЖБА, там еще есть функция ФИЛЬТР.XML эти функции были введены с excel 2013

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Среда, 18.03.2015, 01:22

Ответить

Дата: Среда, 18.03.2015, 20:07 | Сообщение № 6

Группа: Пользователи

Ранг: Новичок

Сообщений: 36

Репутация: 0 ±

Замечаний: 40% ±

Excel 2013

Я прошу прощения, не мог быть у компьютера предыдущие дни. alex77755, Да, по скриншоту все правильно, только я не могу понять, при чем здесь udf? И я имел ввиду лот - в смысле то, что показывается при переходе по самой ссылке, а "под ячейкой Е23" - всмысле, то, что в самой ячейке Е23))) И еще раз уточню, мне нужно, чтобы автоматически, когда, я копирую ссылку в таблицу, у меня из лота в интернете, копировалась нужная мне информация в соответствующие ячейки по названию столбцов. То есть "название лота", "начальная цена" и "описание"

Ответить

Дата: Среда, 18.03.2015, 20:26 | Сообщение № 7

Группа: Друзья

Ранг: Старожил

Сообщений: 2348

Репутация: 997 ±

Замечаний: 0% ±

Excel 2007,2010,2013

mishayakimenko, udf - это user defigned function (пользовательская функция)
мой файл смотрели? там все правильно работает?

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Ответить

Дата: Среда, 18.03.2015, 22:25 | Сообщение № 8

Группа: Пользователи

Ранг: Новичок

Сообщений: 36

Репутация: 0 ±

Замечаний: 40% ±

Excel 2013

krosav4ig, вы файла не скидывали, только 2 ссылки...

Ответить

Дата: Четверг, 19.03.2015, 05:09 | Сообщение № 9

Группа: Друзья

Ранг: Старожил

Сообщений: 1347

Репутация: 249 ±

Замечаний: 0% ±

Excel 2010

Цитата mishayakimenko, 18.03.2015 в 22:25, в сообщении № 8

krosav4ig, вы файла не скидывали, только 2 ссылки...

mishayakimenko, а чуть выше посмотреть?

Цитата krosav4ig, 16.03.2015 в 18:29, в сообщении № 3

К сообщению приложен файл: 1557204-1-.xlsb(37Kb)

Ответить

Дата: Четверг, 19.03.2015, 08:53 | Сообщение № 10

Группа: Пользователи

Ранг: Новичок

Сообщений: 36

Репутация: 0 ±

Замечаний: 40% ±

Excel 2013

извиняюсь, затупил)
krosav4ig, нет, высвечивается только минимальная цена, а всего остального нет...

Ответить

Дата: Четверг, 19.03.2015, 11:37 | Сообщение № 11

Группа: Проверенные

Ранг: Обитатель

Сообщений: 362

Репутация: 64 ±

Замечаний: 0% ±

2013
Ну, извините, Я и 2010 пользуюсь крайне редко: не нравятся мне линейчатые версии.
Старый, добрай 2003 надёжней. Из-за пары новых функций, коиторые мне никогда не понадобятся ставить сверх новые версии?! Нет! пусть пройдёт хотя бы лет 5 пока из него всех блох не вычешут.
Нужные мне функции я лучше сам напишу

К сообщению приложен файл: 6750851.rar (26.8 Kb)

Могу помочь в VB6, VBA
Alex77755@mail.ru

Ответить

Дата: Четверг, 19.03.2015, 18:37 | Сообщение № 12

Группа: Друзья

Ранг: Старожил

Сообщений: 2348

Репутация: 997 ±

Замечаний: 0% ±

Excel 2007,2010,2013

Цитата mishayakimenko, 19.03.2015 в 08:53, в сообщении № 10

высвечивается только минимальная цена, а всего остального нет...

mishayakimenko, скорее всего у вас блокируется активное содержимое
если под лентой при открытии показывает такое

или такое

предупреждение, то нужно нажать на кнопку Включить содержимое и переоткрыть файл

К сообщению приложен файл: 1047568.jpg (7.6 Kb) · 2771389.jpg (8.8 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Ответить

Дата: Четверг, 19.03.2015, 19:11 | Сообщение № 13

Группа: Пользователи

Ранг: Новичок

Сообщений: 36

Репутация: 0 ±

Замечаний: 40% ±

Excel 2013

krosav4ig, открыл документ - чудом все вставилось. Но я скопировал новую ссылку и все равно ничего не высвечивается

К сообщению приложен файл: 4514466.xlsb (37.5 Kb)

Ответить

Дата: Четверг, 19.03.2015, 19:14 | Сообщение № 14

Группа: Пользователи

Ранг: Новичок

Сообщений: 36

Репутация: 0 ±

Замечаний: 40% ±

Excel 2013

alex77755, с вашим файлом такая же ситуация... А информация мгновенно должна вбиваться?

Ответить

Дата: Четверг, 19.03.2015, 20:25 | Сообщение № 15

Группа: Друзья

Ранг: Старожил

Сообщений: 2348

Репутация: 997 ±

Замечаний: 0% ±

Excel 2007,2010,2013

mishayakimenko, а у вас случайно не ручное вычисление формул установлено?

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Ответить

Дата: Четверг, 19.03.2015, 20:28 | Сообщение № 16

Группа: Пользователи

Ранг: Новичок

Сообщений: 36

Репутация: 0 ±

Замечаний: 40% ±

Excel 2013

krosav4ig, вроди, автоматическая http://prntscr.com/6irf6a

Ответить

Дата: Четверг, 19.03.2015, 23:28 | Сообщение № 17

Группа: Друзья

Ранг: Ветеран

Сообщений: 770

Репутация: 255 ±

Замечаний: 0% ±

Excel 2013

mishayakimenko, проверь.
немного переделал формулы и, заодно :), поправил код в событии Worksheet_SelectionChange, чтобы значения в D5 и G4 подставлялись при выборе ячейки любого столбца (A-D) в диапазоне A21:D1000, а не только столбца A, как было раньше (ИМХО, так удобнее :)).

К сообщению приложен файл: 4514466.zip (32.9 Kb)

KSV.VBA@gmail.com
Яндекс.Деньги: 410011921213333

Ответить

Дата: Пятница, 20.03.2015, 09:39 | Сообщение № 18

Группа: Пользователи

Ранг: Новичок

Сообщений: 36

Репутация: 0 ±

Замечаний: 40% ±

Excel 2013

KSV, Спасибо большое, вроде все работает!)

Ответить

Перенос информации из сайта (Макросы/Sub)

Страница 1 из 1
1

© 2010-2025 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!