Поиск текста в Google Chrome и закрытие вкладок Google Chrome

[Jaroslav]

Добрый день.
Пишу такой макрос для Internet Explorer:
Public lRow As Integer

Sub Sajt()
'
'
Dim k As String, povid As String
Dim i As Integer, lCol As Integer, lLastrowInSelectedRange As Integer
Dim WebBrowser As Object
Dim hlnk As Hyperlink


Sheets("посилання").Select
Range("A2", Range("A2").End(xlDown)).Select
    On Error Resume Next
    lRow = Selection.Row 'первая строка
    lCol = Selection.Column
    lLastrowInSelectedRange = Selection.Row + Selection.Rows.Count - 1
    kilk = Selection.Rows.Count
    Do While lRow <= lLastrowInSelectedRange
        Cells(lRow, lCol).Select
        Application.Run "PERSONAL.XLS!Giperssulka_IE"
        lRow = lRow + 1
    Loop
    lRow = 0   
End Sub
Sub Giperssulka_IE()
'
'
Dim k As String, povid As String
Dim i As Integer, lCol As Integer
Dim IE As Object
Dim hlnk As Hyperlink, sAnswer As String


    On Error Resume Next

        Set IE = CreateObject("InternetExplorer.Application")

        IE.Navigate Cells(lRow, 3)
        While IE.busy Or (IE.readyState <> 4): DoEvents: Wend
        sAnswer = IE.Document.body.innerText
        If sAnswer Like "*не может отобразить*" Or sAnswer Like "*cannot display*" _
          Or sAnswer Like "*была отменена*" Or sAnswer Like "*canceled*" Then
            Cells(lRow, 4) = "не откывается ссылка"
            IE.Quit
        ElseIf sAnswer Like Cells(lRow, 2) Then
                Cells(lRow, 4) = ""
        Else
            Cells(lRow, 4) = "Измененная редакция"
        End If
        Application.Wait Time:=Now + TimeValue("0:00:07")
        IE.Quit
End Sub

Файл прилагаю.
Нужен макрос для Google Chrome - не знаю как искать нужный текст во вкладке, открытой с помощью Chrome и как закрывать вкладки в Chrome.

Начал писать макрос:

Sub Giperssulka_Chrome()
'
'
Dim k As String, povid As String
Dim i As Integer, lCol As Integer
Dim IE As Object
Dim hlnk As Hyperlink, sAnswer As String

    On Error Resume Next
        WebUrl = Cells(lRow, 3).Value
        Shell ("C:\Documents and Settings\Yaroslav\Local Settings\Application Data\Google\Chrome\Application\chrome.exe -url " & WebUrl)
        Application.Wait Time:=Now + TimeValue("0:00:04")
' здесь должен идти поиск нужного текста (Like Cells(lRow, 2))
        SendKeys "%{F4}" ' не работает закрытие вкладки в Chrome
End Sub

И еще вопрос: можно ли открывать сайты в хром без их отображения на экране (как в IE)?

[Alex11223]

Какая конечная цель?
Для автоматизации браузеров намного проще взять Selenium, там есть вебдрайверы для всех браузеров.

Чтобы не отображать есть headless Chrome или PhantomJS.

[Jaroslav]

Alex, цель - проверить нет ли изменений в законодательстве. На компе стоит гугл хром, вот и пишу макрос под него

[EducatedFool]

Нет простых решений для управления Chrome из VBA
Просто открыть страницу в новой вкладке - легко, одна строка кода
А вот что-то потом сделать со вкладкой, или с содержимым страницы, - это уже никак.

[IgorGO]

Jaroslav,
если описывать не способ, которым Вы решили решать свою задачу и зашли в глухой тупик, а задачу, которая перед Вами стоит - то можно получить простой, короткий и точный ответ, а не выслушивать поучения типа этого

[Jaroslav]

Ребята, несколько дней некоректно работал Internet Explorer, вот и решил переписать макрос под хром. Заработал Explorer, поэтому моя задача решена.

Спасибо Всем.

[IgorGO]

слава Microsoft!!! их эксплоер-таки работает