Приветствую! Делаю код для скрапинга информации с сайта СБИС о контрагентах по ИНН
Сам код выглядит так и в принципе работает:
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 ничего не меняется.
Возможно это особенность самого драйвера, буду проверять, но надеюсь на помощь от бывалых специалистов.
Источник_данных.jpg 110,08К
0 Количество загрузок:
Результат_в_Excel.jpg 124,11К
0 Количество загрузок:
Прикрепленные файлы
-
Книга2.7z 36,98К
0 Количество загрузок:
