Добрый день. Сталкнулся с проблемой
что бы не лазить на сайт, решил автоматизировать процесс. Но не пойму, то ли я не то делаю, то ли сайт не подходит под этот метод. Возмем несколько ИНН (3шт 2 МСП и одно нет)
6165061599- не МСП
6161085567- МСП
6165061599- не МСП
6161055347- МСП
6165061599- не МСП
При прогоне вместо необходимых МСП/Не МСП - выдает последнее удачно встреченное
6165061599- не МСП
6161085567- МСП от 67
6165061599- МСП от 67
6161055347- МСП от 47
6165061599- МСП от 47
Что я делаю не так?
что бы не лазить на сайт, решил автоматизировать процесс. Но не пойму, то ли я не то делаю, то ли сайт не подходит под этот метод. Возмем несколько ИНН (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 |