Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Найти на сайте href и перейти по ссылке
 
#1
12.04.2018 12:35:12
Добрый день!
Прошу помочь. Есть простой код, открывающий сайт, вводящий нужное значение и переходящий к поиску. Поиск завершается тем, что получается новое окно с результатом. Результат в виде ссылке. Мне нужно перейти по этой ссылке. В этом и проблема. Код ниже.
Код
Sub test()
    
    Set ie = CreateObject("InternetExplorer.Application")
    ie.Visible = True
    ie.Navigate ("https://rosreestr.ru/wps/portal/p/cc_ib_portal_services/online_request/!ut/p/z1/pZAxb8IwEIV_Swfmu3NCgGxWqFIUREpLAXuxDDHIbZygyGrVf1-7S6fCwG339L57TwcS9iA7_WnP2tu-023YhcxUuU4fqUipKtc0Qb7gFSVUIm7GsLtqqAnkPXwwRB7_GY6Bl1cjCnbDECveChGh5EQhPXHiKavq-WaG_CXB7XLFGCLBa7xx7Ds_9G1rBhAjrA_v5ujn2uviTw-uwZzDa9WH-QZBLItSc1hpZ0Cc7LC03kSp_6VVE3BlGxAsy4nlhOME83TG4OLe9mifnZsmbvrFH34ArK5xtQ!!/p0/IZ7_01HA1A42KODT90AR30VLN22001=CZ6_GQ4E1C41KGQ170AIAK131G00T5=MEcontroller!QCPSearchController==/#Z7_01HA1A42KODT90AR30VLN22001")
    
    Do Until ie.ReadyState = 4 'For STATE as COMPLETE
        DoEvents
    Loop
  
    ie.Document.GetElementsByName("cad_num")(0).Value = "26:12:010530:492"
    ie.Document.getElementById("submit-button").Click
    
    'ie.Document.GetElementsByName("href")(0).Click
    
    Do Until ie.ReadyState = 4 'For STATE as COMPLETE
        DoEvents
    Loop

End Sub
 
 
 
#2
12.04.2018 21:03:20
Цитата
yegorovaleks написал:
Поиск завершается тем, что получается новое окно с результатом.
Получаю новую страницу в том же, на которую перекинуло после клика на кнопку.
Ссылка у вас как раз и формируется по клику на кнопку.
Та ссылка, что у вас в коде, она ничего не дает, просто перебрасывает на начальную позицию формы для поиска.
Вы лучше объясните, какой конкретно результат хотите получить на выходе.
 
 
 
#3
13.04.2018 02:03:34
Код
Sub test()

    Set ie = CreateObject("InternetExplorer.Application")
    ie.Visible = True
    ie.Navigate ("https://rosreestr.ru/wps/portal/p/cc_ib_portal_services/online_request/")

    Do Until ie.readyState = 4    'For STATE as COMPLETE
        DoEvents
    Loop

    ie.Document.GetElementsByName("cad_num")(0).Value = "26:12:010530:492"
    ie.Document.GetElementById("submit-button").Click


    Do Until Not ie.Busy And ie.readyState = 4
        DoEvents
    Loop
    a = (ie.Document.GetElementById("js_oTr0").Cells(0).ChildNodes.Item(1).href)
    ie.Navigate a

End Sub

Пробуйте
 
 
 
Страницы: 1
Наверх