Я пытаюсь узнать цену модели S-cross на сайте для конкретной модели и конкретного города.После выбора данных с помощью Excel Marcro, я хочу получить цену этой модели.Я написал код, чтобы открыть веб-сайт и ввести необходимые данные, но при этом отображается ошибка 424
Ниже приведен требуемый код
', чтобы запустить новую подпрограмму под названием SearchBot Sub SearchBot ()
'dimension (declare or set aside memory for) our variables
Dim objIE As InternetExplorer 'special object variable representing the IE browser
Dim aEle As HTMLLinkElement 'special object variable for an <a> (link) element
Dim y As Integer 'integer variable we'll use as a counter
Dim result As String 'string variable that will hold our result link
'initiating a new instance of Internet Explorer and asigning it to objIE
Set objIE = New InternetExplorer
'make IE browser visible (False would allow IE to run in the background)
objIE.Visible = True
'navigate IE to this web page (a pretty neat search engine really)
objIE.navigate "https://www.nexaexperience.com/s-cross.html"
'wait here a few seconds while the browser is busy
Do While objIE.Busy = True Or objIE.readyState <> 4: DoEvents: Loop
'click the 'go' button
objIE.document.getElementById("car-model") = "Smart Hyrbid Delta"
objIE.document.getElementById("location") = "Mumbai"
objIE.document.getElementById("check price").Click
End Sub
Я ожидал, что код откроет веб-сайт и выберет модель Smart Hybrid Delta для города Мумбаи.Однако я не смог этого сделать.
Любая помощь будет принята с благодарностью.