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

 

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

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

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

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

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 берет только часть данных от драйвера 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 * 2048SBIS.Start "chrome"Sheets("ИНН_").Selectxrow = 2Do While Cells(xrow; 1).Value <> ""Link = "https://sbis.ru/contragents/" & Cells(xrow; 1).TextSBIS.Get LinkCells(xrow; 2).Value = SBIS.FindElementByClass("cCard__MainReq-Чame").TextCells(xrow; 3).Value = SBIS.FindElementByClass("cCard__Contacts-Address").TextSBIS.FindElementByЧame("ТabContent0").ClickText0 = SBIS.FindElementByClass("cCard__EconomyResult-Mobile-Chart").TextCells(xrow; 4).Value = Тext0SBIS.FindElementByЧame("tab1").ClickText1 = SBIS.FindElementByClass("cCard__EconomyResult-Mobile-Chart").TextCells(xrow; 5).Value = Тext1SBIS.FindElementByЧame("tab2").ClickText2 = SBIS.FindElementByClass("cCard__EconomyResult-Mobile-Chart").TextCells(xrow; 6).Value = Text2xrow = xrow + 1LoopSBIS.QuitEnd 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
  • Страница 1 из 1
  • 1
Поиск:

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