Блог

Я пытаюсь создать автоматизацию отслеживания FedEx, но мне не удается нажать кнопку отслеживания. есть идеи, пожалуйста?

 Sub Fedex()
    
    Dim IE As Object
    Dim doc As HTMLDocument
    
    Set IE = New InternetExplorerMedium
    IE.Visible = True
    IE.navigate "https://www.fedex.com/en-us/home.html"
    
    Do While IE.Busy Or IE.READYSTATE = 4
    Loop
    
    Application.Wait (Now   TimeValue("0:00:07"))
    
    Set searchbx = IE.document.getElementsByName("trackingnumber")(0)
    searchbx.Value = "Howdy!"

    IE.document.getElementById("btnSingleTrack").Click

End Sub
  

Редактировать — сделайте это напрямую через параметр url

Вы можете управлять URL-адресом, по которому вы перемещаетесь. Посмотрите на следующий пример. Измените значение последнего параметра YourTrackingNumberHere на рабочий номер отслеживания и протестируйте его вручную:

https://www.fedex.com/apps/fedextrack/?action=trackamp;cntry_code=usamp;locale=en_USamp;trackingnumber=YourTrackingNumberHere

Первый ответ, чтобы заставить его работать по-вашему

В окне поиска есть события. Вы должны запустить событие изменения после установки вашего номера отслеживания. Я никогда не видел этого раньше, но после запуска события изменения вы должны подождать несколько секунд, чтобы нажатие кнопки сработало.

 Sub Fedex()
  Dim ie As Object
  Dim searchBox As Object
  
  'Initialize Internet Explorer, set visibility,
  'call URL and wait until page is fully loaded
  Set ie = CreateObject("InternetExplorer.Application")
  ie.Visible = True
  ie.navigate "https://www.fedex.com/en-us/home.html"
  Do While ie.READYSTATE <> 4: DoEvents: Loop
  
  Set searchBox = ie.document.getElementsByName("trackingnumber")(0)
  searchBox.Value = "Howdy!"
  'Trigger the change event of the input box
  Call TriggerEvent(ie.document, searchBox, "change")
  'I don't know why, but you have to wait a few seconds
  'Otherwise the button click will not work
  'In my tests, I need 5 seconds to make it work in every case
  'You can make your own tests for your environment
  Application.Wait (Now   TimeValue("0:00:05"))
  
  ie.document.getElementById("btnSingleTrack").Click
End Sub
  

С помощью этой процедуры вы можете запускать каждое событие:

 Private Sub TriggerEvent(htmlDocument As Object, htmlElementWithEvent As Object, eventType As String)

  Dim theEvent As Object

  htmlElementWithEvent.Focus
  Set theEvent = htmlDocument.createEvent("HTMLEvents")
  theEvent.initEvent eventType, True, False
  htmlElementWithEvent.dispatchEvent theEvent
End Sub