Страницы: 1
RSS
Парсер проверка по ИНН в реестре налоговой
 
Добрый день. Сталкнулся с проблемой
что бы не лазить на сайт, решил автоматизировать процесс. Но не пойму, то ли я не то делаю, то ли сайт не подходит под этот метод. Возмем несколько ИНН (3шт 2 МСП и одно нет)

6165061599- не МСП
6161085567- МСП
6165061599- не МСП
6161055347- МСП
6165061599- не МСП

При прогоне вместо необходимых МСП/Не МСП - выдает последнее удачно встреченное
6165061599- не МСП
6161085567- МСП от 67
6165061599- МСП от 67
6161055347- МСП от 47
6165061599- МСП от 47

Что я делаю не так?
Код
Private Sub inntoMSP() 'из а2 и ниже получить по ИНН данные
 Dim IE As Object
 Dim n As Integer
 Dim sAnswer As String

 On Error Resume Next ' пропуск ошибок
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = False
    
     IE.Navigate "https://ofd.nalog.ru/#"
    While IE.Busy Or (IE.ReadyState <> 4): DoEvents: Wend 'ожидание загрузки
    
 With IE.Document
 
     For n = 2 To Cells(Rows.count, 1).End(xlUp).Row ' берем по очереди ИНН
     
       .GetElementsByName("query")(0).Value = Cells(n, 1).Value
       .queryselector("#pnlSearch > div.quick-search-controls.form-layout-top-labels > div.form-field > div > div.field-value > button").Click ' нажать на найденый текст

Application.Wait Time:=Now + TimeValue("0:00:1")

Temp = IE.Document.queryselector("#tblResultData > tr > td:nth-child(2) > span").innertext
'Temp2 = IE.Document.queryselector("#tblResultData > tr > td:nth-child(1) > div.result-name > a > span").innertext

If Temp = 0 Then Sheets("ИНН").Cells(n, 2).Value = "не МСП" Else Sheets("ИНН").Cells(n, 2).Value = "МСП -" & Temp 'вставляем рядом найденное


  Next n
      End With
        
 
решил через закрытие
ie.quit
Изменено: mihail_ms - 08.09.2022 18:32:20
Страницы: 1
Наверх