Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти  
Форумы "Планета Excel" » Пользователи » Игорь
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 115 След.
Получение HTML кода после полной загрузки страницы средствами VBA, Страница загружается динамически, сначала идет "заставка"
 
#
15 Янв 2020 13:37:20
ну так посмотрите, работает ли сайт в браузере IE
может, паузу (1-2 сек) необходимо добавить в код
 
Перейти    
Парсер importxml. Аналог importxml для excel
 
#
12 Янв 2020 20:47:04
Да мне и делать не надо, - у меня на сайте выложен готовый пример для вашей задачи
https://excelvba.ru/programmes/Parser/samples/metatags_title_description_keyw­ords
 
Перейти    
Парсер importxml. Аналог importxml для excel
 
#
12 Янв 2020 12:40:20
Увы, не готов более подробно рассказывать (это уже готовое решение тогда надо делать, а мне лень)
Может, кто из форумчан по формулам подскажет, или макрос вам готовый сделает
 
Перейти    
Ввод данных со считывателя RFID
 
#
11 Янв 2020 18:50:47
Да, можно решить
В свойствах текстбокса, в который сканируется rfid, нужно настроить обработку Enter (enter может вводиться в это же поле, или вызывать переход к следующему полю)

См. свойство текстбокса EnterFieldBehavior и свойство Multiline
Ну и, возможно, 1-2 строки кода нужно будет подкорректировать
 
Перейти    
Парсер importxml. Аналог importxml для excel
 
#
11 Янв 2020 02:45:28
У меня есть аналог этой функции на VBA

Сначала загружаем страницу
https://excelvba.ru/code/GetHTTPResponse
Потом ищем нужный тег
https://excelvba.ru/code/html

Пример использования для вашего случая:
Код
' грузим страницу по ссылке из ячейки A2
html$ = GetResponse(Range("A2"))
' ищем тег, выводим результат в ячейку B2
Range("B2") = GetTags(html$, "meta", "name", "description", "content 1")


PS: это не весь код
Нужно ещё скопировать функции из статей по ссылкам выше
Изменено: Игорь - 11 Янв 2020 02:46:31
 
Перейти    
HELP. Как закинуть 285 картинок из папки в каждую отдельную ячейку Excel по порядку
 
#
6 Янв 2020 17:30:10
Андрей, спасибо, не знал про такой вариант
Еще бы быть уверенным, что эта библиотека есть во всех последних версиях Office
(погуглил, вроде как в WindowsXP эта библиотека появилась только в составе ServicePack 1)

В будущих проектах, скорее всего, перейду на использование этой библиотеки WIA
(а то с WinAPI слишком много возни было, и отладка кода весьма непростая)
 
Перейти    
Прерывание отображения работы макроса
 
#
2 Янв 2020 04:59:48
Вопросы не очень понятны
Как можно обозвать? - обозвать что? зачем? да как хотите обзовите, что от этого поменяется..
Как от этого избавиться? - от чего конкретно? где избавиться? (в примере от Николая, или в вашем файле?)
Зачем вы от этого пытаетесь избавиться?
 
Перейти    
Получение и отправка данных на интернет ресурс VBA
 
#
24 Дек 2019 13:12:06
Да, возможно
 
Перейти    
Парсинг данных
 
#
19 Дек 2019 09:07:08
Есть готовое решение
Заказы на парсер принимаются в таком виде
https://excelvba.ru/programmes/Parser/order
Контакты в профиле
 
Перейти    
Создание файла JSON или как с помощью Power Query парсить сайты.
 
#
30 Ноя 2019 18:52:45
А зачем тут АПИ?
API - это просто список ссылок, по которым сайт выводит данные
Для Power Query нет никакой разницы, обращаться к сайту без АПИ (загружать по ссылкам страницы с HTML) или обращаться к сайту через API (загружать по другим ссылкам страницы с JSON)
Механизм настройки абсолютно идентичен, независимо от того, используете вы АПИ или нет
 
Перейти    
Взаимодействие MS Excel с Photoshop
 
#
30 Ноя 2019 18:49:31
Здравствуйте

1. Теоретически возможно. Но ОЧЕНЬ сложно. Лучше даже не пробовать
Как вариант - можно сохранить картинку в BMP формат, и использовать что-то типа этого макроса для переноса картинки на лист:
https://excelvba.ru/code/Bitmap2Sheet

2. Да, есть. Макросы. В этом случае макрос несложный (несколько строк)
На форуме есть примеры
Код
Cells(3,8).Interior.Color = 255 ' красим ячейку в красный цвет

3. Самый простой способ - вручную это сделать. Если надо сделать один раз.

4. Наверняка есть бесплатные программы, из картинки формирующие таблицу (список) со цветами отельных пикселей.
Надо только поискать.
 
Перейти    
Экспорт в txt в формате "типа" html
 
#
28 Ноя 2019 06:32:50
Техзадание - вижу
Попыток решения - нет (в интернетах достаточно подобных макросов, могли бы сами хоть что-то попробовать наваять)
Неужто сложно нагуглить примерно подходящий макрос?

PS: это не HTML код, а XML
Ищите макросы для экспорта из Excel в XML (макросы для создания XML по таблице Excel)
Изменено: Игорь - 28 Ноя 2019 06:37:14
 
Перейти    
Авторизация через msxml2.xmlhttp
 
#
27 Ноя 2019 20:47:39
надо не кусок кода показывать, а макрос целиком
как у вас создается объект oHttp?
так?
Код
 oHttp = CreateObject("MSXML2.XMLHTTP")

а надо так:
Код
 oHttp = CreateObject("WinHttp.WinHttpRequest.5.1")
 
Перейти    
Макрос для отправки писем с Gmail
 
#
23 Ноя 2019 18:58:38
Есть готовое решение для вашей задачи
Ссылку отправил в личку
 
Перейти    
Цветной API-прямоугольник на UserForm. Создаем progressbar
 
#
22 Ноя 2019 19:34:33
Цитата
Андрей VG написал:
Есть. Файл сделан в Excel 365 64bit
но у меня в Excel 2010 (64 бит) при запуске выдает ошибку (что не может загрузить компонент)
Потому, как вы правильно написали, лучше это не использовать
 
Перейти    
Цветной API-прямоугольник на UserForm. Создаем progressbar
 
#
22 Ноя 2019 19:03:38
Я вот без всяких рисований и Winapi наваял прогбессбар, причем с переменным количеством полосок:
https://excelvba.ru/programmes/Parser/manuals/interface/progress_indicator

Описание с примером кода для аналогичного прогрессбара (но попроще) есть здесь:
https://excelvba.ru/code/tools/ProgressIndicator
 
Перейти    
Как пробросить сначала данные в форму Visual Basic, а после обратно с изменениями назад в ячейки на листах?
 
#
21 Ноя 2019 18:20:42
Совет: не делать форму VBA
будет много кода, сами запутаетесь, времени много потратите
Такую форму проще нарисовать на отдельном листе в ячейках, - и кода будет меньше, и красивее / удобнее будет
(что-то типа вашего листа БЛАНК)
 
Перейти    
Парсинг VBA. Выгрузка данных из веб страницы.
 
#
21 Ноя 2019 15:27:32
Это задание?
В каком виде вы ожидаете увидеть помощь от форума?
 
Перейти    
Авторизация через msxml2.xmlhttp
 
#
20 Ноя 2019 15:09:02
Вы нашли где-то кусок кода для авторизации, но у вас не тот случай
В вашем случае (как и на 99% сайтов) авторизацию надо выполнять POST запросом
пример кода можно посмотреть здесь:
https://excelvba.ru/code/atsenergo_login

видеоинструкция, где посмотреть в браузере, какие данные нужны для POST запроса:
https://www.youtube.com/watch?v=4bRwPIX8Wc0&feature=youtu.be&t=568
 
Перейти    
Макрос передачи переменной в путь
 
#
17 Ноя 2019 23:06:53
вместо
Код
"TEXT;D:\Temp_\var_par" \ Par \ "par.txt"

попробуйте
Код
"TEXT;D:\Temp_\var_par\" & Par & "\par.txt"
 
Перейти    
Dashboard план-фактного анализа строительного проекта "под ключ"
 
#
17 Ноя 2019 16:43:59
нужен шедевр, качественнее чем то что продаётся, сверхсрочно, задания нет, да ещё и целых 50 евро?
заманчивое предложение, однако..

PS: не волшебник, потому, не претендую
PPS: волшебники не скучают от безделья)
Изменено: Игорь - 17 Ноя 2019 16:45:08
 
Перейти    
Импорт данных с сайта.
 
#
16 Ноя 2019 17:17:37
Да, Андрей, верно.
Для получения списка характеристик там выполняется отдельный запрос, на адрес вида
https://www.mvideo.ru/products/televizor-samsung-ue50ru7200u-10021620/specification?ssb_block=descriptionTabContentBlock

PS: Раньше много раз парсил этот сайт, были все данные на странице
А сделано это не в целях защиты от парсинга (любой парсер сможет взять эти данные), а просто специфика движка сайта, постоянно усложняющегося в процессе развития сайта
Изменено: Игорь - 16 Ноя 2019 19:16:37
 
Перейти    
Импорт данных с сайта.
 
#
16 Ноя 2019 15:15:55
Судя по справке по функции IMPORTXML, она может брать данные и из HTML (т.е. из невалидного XML)

Цитата
нормально составить XPatch, который это все выдернет
куда выдернет? в каком виде?
где пример результата, и ссылка на гугл документ с вашими попытками это сделать?

что и как делали? что получилось? что ожидали получить?
 
Перейти    
Парсинг данных с сайта http://avangard-agro.ru/live/, Возможен ли перенос данных с этого сайта в Excel и дублирование визуализации в виде графиков?
 
#
13 Ноя 2019 13:42:03
Здравствуйте
Спарсить - могу (выведя данные в Excel в любом нужном вам виде)
Заказы на парсер принимаются в таком виде
https://excelvba.ru/programmes/Parser/order

воссоздать диаграммы - не возьмусь
 
Перейти    
Как спарсить определённую строчку HTML кода в VBA, Нужно незаметно скопировать с сайта одну цифру в переменную VBA или хотя-бы в буфер обмена.
 
#
12 Ноя 2019 18:07:24
А когда страницу загрузите, останется скопировать эти функции в отдельный стандартный модуль
https://excelvba.ru/code/html

и добавить в ваш макрос одну строку:
Код
результат = GetTags(HTML_code$, "td", "class", "chgPer", "ConvertToText 1")
Изменено: Игорь - 12 Ноя 2019 18:07:33
 
Перейти    
Работа с Google Таблицей, 500 р.
 
#
9 Ноя 2019 14:36:14
При написании цены, нолик не пропустили?
 
Перейти    
Ранжирование процессоров по цене, скорости и многопоточности, алгоритм принятия решения, можно ли оптимизировать?
 
#
4 Ноя 2019 01:48:02
Я правильно понял, что вы на форуме по Excel спрашиваете, что важнее в процессорах — цена или скорость или что-то ещё?
Какое отношение эта тема имеет к MS Excel?
 
Перейти    
Как получить GPS координаты (широта, долгота) со встроенного сенсора GPS/GLONAS на VBA
 
#
30 Окт 2019 14:37:22
от драйвера устройства зависит, и сопутствующего софта
вопрос не имеет отношения к Excel и VBA
язык программирования тут не важен
Если координаты вообще возможно считать средствами windows или через сторонний софт, то это можно сделать и через VBA
 
Перейти    
Подключиться к запущенному IE и перейти по нужной ссылке, отличной от открытой в браузере
 
#
25 Окт 2019 18:51:36
Моих навыков телепатии недостаточно, чтобы уловить смысл в сказанном вами.
может, кто-то другой из форумчан сможет понять, что нужно сделать.
 
Перейти    
Подключиться к запущенному IE и перейти по нужной ссылке, отличной от открытой в браузере
 
#
25 Окт 2019 10:27:36
Цитата
не нашел
а вы искали?
https://excelvba.ru/code/GetRunningIE

Код
Sub ПримерИспользования()
    Dim IE As SHDocVw.InternetExplorer, URL$
 
    URL$ = "https://excelvba.ru/programmes/Parser" ' пишем сюда URL для перехода
    Set IE = GetRunningIE(URL$)
 
    If IE Is Nothing Then
        Debug.Print "Вкладка не найдена"
    Else ' вкладка найдена
       ' переход по ссылке URL
        IE.Navigate URL$
    End If
End Sub
 
Перейти    
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 115 След.
Наверх