Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

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

 

= Мир MS Excel/Ограничение String (скрапинг c VBA + Selenium ChromeDriver) - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Ограничение String (скрапинг c VBA + Selenium ChromeDriver) (Макросы/Sub)
Ограничение String (скрапинг c VBA + Selenium ChromeDriver)
industriya4rus Дата: Суббота, 09.10.2021, 00:21 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Приветствую! Делаю код для скрапинга информации с сайта СБИС о контрагентах по ИНН

Сам код выглядит так и в принципе работает:

[vba]
Код
Public Sub ScrapeSBIS_2()
Dim SBIS As New WebDriver, Link As String, xrow As Integer, Text0, Text1, Text2 As String * 2048

SBIS.Start "chrome"

Sheets("ИНН_").Select
xrow = 2
Do While Cells(xrow, 1).Value <> ""

Link = "https://sbis.ru/contragents/" & Cells(xrow, 1).Text
SBIS.Get Link

Cells(xrow, 2).Value = SBIS.FindElementByClass("cCard__MainReq-Name").Text
Cells(xrow, 3).Value = SBIS.FindElementByClass("cCard__Contacts-Address").Text

SBIS.FindElementByName("TabContent0").Click
Text0 = SBIS.FindElementByClass("cCard__EconomyResult-Mobile-Chart").Text
Cells(xrow, 4).Value = Text0
SBIS.FindElementByName("tab1").Click
Text1 = SBIS.FindElementByClass("cCard__EconomyResult-Mobile-Chart").Text
Cells(xrow, 5).Value = Text1
SBIS.FindElementByName("tab2").Click
Text2 = SBIS.FindElementByClass("cCard__EconomyResult-Mobile-Chart").Text
Cells(xrow, 6).Value = Text2

xrow = xrow + 1

Loop

SBIS.Quit

End Sub
[/vba]

Не понятно по какой причине VBA берет только часть данных от драйвера Selenium ChromeDriver. С чем это может быть связано?
Ограничение размера String или его содержимого? Попробовал явно указать размер String ничего не меняется.
К сообщению приложен файл: 6495672.jpg (79.8 Kb) · 3690512.jpg (72.9 Kb)


Сообщение отредактировал industriya4rus - Суббота, 09.10.2021, 00:26
 
Ответить
СообщениеПриветствую! Делаю код для скрапинга информации с сайта СБИС о контрагентах по ИНН

Сам код выглядит так и в принципе работает:

[vba]
Код
Public Sub ScrapeSBIS_2()
Dim SBIS As New WebDriver, Link As String, xrow As Integer, Text0, Text1, Text2 As String * 2048

SBIS.Start "chrome"

Sheets("ИНН_").Select
xrow = 2
Do While Cells(xrow, 1).Value <> ""

Link = "https://sbis.ru/contragents/" & Cells(xrow, 1).Text
SBIS.Get Link

Cells(xrow, 2).Value = SBIS.FindElementByClass("cCard__MainReq-Name").Text
Cells(xrow, 3).Value = SBIS.FindElementByClass("cCard__Contacts-Address").Text

SBIS.FindElementByName("TabContent0").Click
Text0 = SBIS.FindElementByClass("cCard__EconomyResult-Mobile-Chart").Text
Cells(xrow, 4).Value = Text0
SBIS.FindElementByName("tab1").Click
Text1 = SBIS.FindElementByClass("cCard__EconomyResult-Mobile-Chart").Text
Cells(xrow, 5).Value = Text1
SBIS.FindElementByName("tab2").Click
Text2 = SBIS.FindElementByClass("cCard__EconomyResult-Mobile-Chart").Text
Cells(xrow, 6).Value = Text2

xrow = xrow + 1

Loop

SBIS.Quit

End Sub
[/vba]

Не понятно по какой причине VBA берет только часть данных от драйвера Selenium ChromeDriver. С чем это может быть связано?
Ограничение размера String или его содержимого? Попробовал явно указать размер String ничего не меняется.

Автор - industriya4rus
Дата добавления - 09.10.2021 в 00:21
industriya4rus Дата: Суббота, 09.10.2021, 00:29 | Сообщение № 2
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Здесь прикладываю сам файл.
Драйвер Selenium ChromeDriver брал тут https://sites.google.com/a/chromium.org/chromedriver/downloads
К сообщению приложен файл: 8966044.xlsm (40.5 Kb)
 
Ответить
СообщениеЗдесь прикладываю сам файл.
Драйвер Selenium ChromeDriver брал тут https://sites.google.com/a/chromium.org/chromedriver/downloads

Автор - industriya4rus
Дата добавления - 09.10.2021 в 00:29
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Ограничение String (скрапинг c VBA + Selenium ChromeDriver) (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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