Удаленный сервер не существует или недоступен для определенного веб-сайта.

Question

Я пытался открыть веб-сайт, используя приведенный ниже код VBA:

Dim IE As Object
Dim doc As Object
Dim strURL As String

Set IE = CreateObject("InternetExplorer.Application")

With IE '
    .Visible = True
    .navigate "https://Google.com"

    Do Until .readyState = 4
        DoEvents
    Loop

Он работает для веб-сайтов, таких как "Google" и т. Д.

Но когда я пытался открыть конкретный сайт, например, мою компанию PLM"Agile (https://agileplm.XXXX.com/Agile/default/login-cms.jsp)" throwing error" Удаленный сервер не существует или недоступен "

Я мог открыть веб-страницу в проводнике, но выдавал ошибку при выполнении строки снизу

Do Until .readyState = 4
    DoEvents
Loop  

Это связано с защитой сайта или нет?

Answer 1

Попробуйте выполнить тест с приведенным ниже примером кода, который может помочь вам решить вашу проблему.

Sub Automate_IE_Load_Page()
'This will load a webpage in IE
    Dim i As Long
    Dim URL As String
    Dim IE As Object
    Dim objElement As Object
    Dim objCollection As Object

    'Create InternetExplorer Object
    Set IE = CreateObject("InternetExplorer.Application")

    'Set IE.Visible = True to make IE visible, or False for IE to run in the background
    IE.Visible = True

    'Define URL
    URL = "https://agileplm.xxxx.com/Agile/default/login-cms.jsp"

    'Navigate to URL
    IE.Navigate URL

    ' Statusbar let's user know website is loading
    Application.StatusBar = URL & " is loading. Please wait..."

    ' Wait while IE loading...
    'IE ReadyState = 4 signifies the webpage has loaded (the first loop is set to avoid inadvertently skipping over the second loop)
    Do While IE.ReadyState = 4: DoEvents: Loop   'Do While
    Do Until IE.ReadyState = 4: DoEvents: Loop   'Do Until

    'Webpage Loaded
    Application.StatusBar = URL & " Loaded"

    'Unload IE
    Set IE = Nothing
    Set objElement = Nothing
    Set objCollection = Nothing

End Sub

Ссылка:

Автоматизация Internet Explorer (IE) с использованием VBA

Если проблема не устранена, попробуйте предоставить подробную информацию, если у вас возникли проблемы с открытием страницы или вы получили ошибку при проверке состояния готовности IE.Мы постараемся предоставить дополнительные предложения.