#excel #vba #internet-explorer
Вопрос:
Здравствуйте, ребята, у меня возникла проблема с тем, что я создал код для открытия Internet Explorer…откройте URL — адрес, размещенный в столбце А листа Excel… прокрутите вниз до определенного раздела окна браузера и сделайте снимок экрана. Я не знаю почему, но мой код не зацикливается во время ie.занято или т. е. состояние готовности lt;gt; 4 Я получаю ошибку 462 во время выполнения Удаленная серверная машина не существует. и другая проблема связана с ieb.Document.parentWindow.прокрутите 0amp;, 200amp; заявление, поскольку его страница не прокручивается. Я проверил много интернет-ресурсов, но все напрасно.
Sub Test() Dim str As String, Win As Object For rowno = 2 To 3 str = Sheet1.Cells(rowno, 1).Text Dim ieb As Object Dim IEdoc As HTMLDocument Dim Item As Variant Set ieb = CreateObject("InternetExplorer.application") ieb.Visible = True ieb.FullScreen = True ieb.Navigate str Do While ieb.Busy Do events Loop ieb.Document.parentWindow.scroll 0amp;, 200amp; Call timee Set ieb = Nothing Next rowno End Sub Комментарии:
1. Не могли бы вы, пожалуйста, попытаться заменить
Set ieb = CreateObject("InternetExplorer.application")наSet ieb = New InternetExplorerMediumилиSet ieb = GetObject("new:{D5E8041D-920F-45e9-B8FB-B1DEB82C6E5E}")посмотреть, исчезнет ли ошибка? Кроме того, я тестирую функцию прокрутки, и она хорошо работает.2. Я пытался, но без разницы
3. Пожалуйста, проверьте, включен ли защищенный режим в Настройках IE -gt; Параметры Интернета -gt;gt; Безопасностьgt;gt; . Пожалуйста, снимите этот флажок и проверьте еще раз.