Приветствую! Делаю код для скрапинга информации с сайта СБИС о контрагентах по ИНН
Сам код выглядит так и в принципе работает:
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 ничего не меняется.