2 combobox con el mismo classname en internet explorer
publicado
Buenos dias a todos. Estoy intentando desde excel meter datos en una página web, y me encuentro con dos combobox con el mismo classname. En el primero meto los datos bien, pero en el segundo, no se como hacerlo, no veo el id o alguna otra forma de identificarlo.
Sub vuelos()
Dim IE As Object
Set IE = CreateObject("InternetExplorer.application")
IE.Visible = True
IE.Navigate "https://www.google.com/travel/flights?tcfs&ved=2ahUKEw jD1eu2kcH6AhWJ2tUKHdTsAGIQyJAB egQIABAY&ictx=2&authuser=0"
Do
DoEvents
Loop Until IE.ReadyState = 4
Dim inputfield As Object
Set inputfield = IE.Document.getElementsByClassName("II2One j0Ppje zmMKJ LbIaRd")
If inputfield.Length > 0 Then
inputfield(0).Value = "BUENOS AIRES"
End If
End Sub
La idea es meter los datos de busqueda y descargar los resultados. El segundo combobox (Destino) tambien tiene el classname "II2One j0Ppje zmMKJ LbIaRd"
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Buenos dias a todos. Estoy intentando desde excel meter datos en una página web, y me encuentro con dos combobox con el mismo classname. En el primero meto los datos bien, pero en el segundo, no se como hacerlo, no veo el id o alguna otra forma de identificarlo.
Sub vuelos() Dim IE As Object Set IE = CreateObject("InternetExplorer.application") IE.Visible = True IE.Navigate "https://www.google.com/travel/flights?tcfs&ved=2ahUKEw jD1eu2kcH6AhWJ2tUKHdTsAGIQyJAB egQIABAY&ictx=2&authuser=0" Do DoEvents Loop Until IE.ReadyState = 4 Dim inputfield As Object Set inputfield = IE.Document.getElementsByClassName("II2One j0Ppje zmMKJ LbIaRd") If inputfield.Length > 0 Then inputfield(0).Value = "BUENOS AIRES" End If End Sub
La idea es meter los datos de busqueda y descargar los resultados. El segundo combobox (Destino) tambien tiene el classname "II2One j0Ppje zmMKJ LbIaRd"