Jump to content

2 combobox con el mismo classname en internet explorer


Recommended Posts

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"

Link to comment
Share on other sites

Hola

Como vengo comentado hace tiempo, no olvidar que Internet Explorer, y el objeto Internet Explorer, han sido dejados de lado por Microsoft y están perdiendo compatibilidad con Windows 11 y las últimas actualizaciones de Windows 10 para, dentro de poco, dejar de funcionar. Asimismo, las webs más modernas y dinámicas difícilmente pueden controlarse en su totalidad con dicho objeto. Si ves bien, si bien su ClassName es igual, mira su JSLOG ¿Notas la diferencia? Por lo que veo, para dicha web, te haría mejor usar el objeto MSXML2.XMLHTTP6, o similar, para hacer web Scraping, lo que no es tan simple como IE, lamentablemente,

Link to comment
Share on other sites

Hace 4 minutos , Abraham Valencia dijo:

Hola

Como vengo comentado hace tiempo, no olvidar que Internet Explorer, y el objeto Internet Explorer, han sido dejados de lado por Microsoft y están perdiendo compatibilidad con Windows 11 y las últimas actualizaciones de Windows 10 para, dentro de poco, dejar de funcionar. Asimismo, las webs más modernas y dinámicas difícilmente pueden controlarse en su totalidad con dicho objeto. Si ves bien, si bien su ClassName es igual, mira su JSLOG ¿Notas la diferencia? Por lo que veo, para dicha web, te haría mejor usar el objeto MSXML2.XMLHTTP6, o similar, para hacer web Scraping, lo que no es tan simple como IE, lamentablemente,

Buenas @Abraham Valencia, gracias por contestar.

Mi conocimiento de scraping es muy basico. Siempre lo he hecho con id, tag o name., por eso he preguntado.

El jslog, pues ni idea. Mirare mejor el MSXML2.XMLHTTP6, por el tema de internet explorer.

Gracias por la aclaración.

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
  • 58 ¿Te parecen útiles los tips de las funciones? (ver tema completo)

    1. 1. ¿Te parecen útiles los tips de las funciones?


      • No
      • Ni me he fijado en ellos

  • Ayúdanos a mejorar la comunidad

    • Donaciones recibidas este mes: 0.00 EUR
      Objetivo: 130.00 EUR
  • Files

  • Download Statistics

    • Files
      166
    • Comments
      89
    • Reviews
      25

    Latest File
    By pegones1

    1    0

  • Crear macros Excel

  • Posts

    • Buenos días a todos; -Con la macro que adjunto paso el valor formateado con dos decimales a la celda pero veo que si voy a la barra de fórmulas me siguen apareciendo más de dos decimales.  Hay alguna otra solución? Me interesa que solo sean dos decimales porque después estos datos los paso a Access y  me está cargando todos los decimales. Saludos  Formato.xlsm
    • Hola, tengo una consulta que no se resolver con listas desplegables y sin macros. El caso sería que cuando estemos en la hoja SUBFAMILIA si por ejemplo nos situamos en la fila 3 columna A y desplegamos la lista desplegable y elegimos 0102.BARRAS PERFORADAS, que automáticamente me llene las celdas correspondientes de Campo1, Campo2, Campo3…….. con los datos que se encuentran en la hoja CAMPOS columna C correspondientes a 0102.BARRAS PERFORADAS en este caso son 13 pero pueden llegar hasta 20. En el caso de añadir nuevas subfamilias en esta hoja previa creación de sus campos correspondientes en la hoja Campos tendría que hacer lo mismo, gracias MUESTRA.rar
    • Prueba así: '----------------------------------------- APIS ELIMINAR BARRA TITULO FORMULARIO Private Declare PtrSafe Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare PtrSafe Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Private Declare PtrSafe Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare PtrSafe Function DrawMenuBar Lib "User32" (ByVal hwnd As Long) As Long Private Sub UserForm_Initialize() 'ELIMINAR BARRA TITULO FORMULARIO Dim lStyle As Long, hMenu As Long, mhWndForm As Long mhWndForm = FindWindow("ThunderDFrame", Me.Caption) lStyle = GetWindowLong(mhWndForm, -16) lStyle = lStyle And Not &HC00000 SetWindowLong mhWndForm, -16, lStyle DrawMenuBar mhWndForm '---------------------------------------------------- End Sub  
    • Hola buenas a todos. Hace unos cuantos días estoy intentando trabajar con datos filtrados porque necesito que los datos filtrados en la columna A (No. Pre Factura) quisiera que se concatenaran, he probado varias formas, pero por desconocimiento no he logrado nada, cuando lo intento me concatena todos los datos estén visibles o no. Lo mismo con las columnas G, I, K, M, O, Q (COD1, COD2, COD3, COD4, COD5, COD6) que busco la forma de unir todos los códigos iguales y que me sume sus respectivas cantidades probando con tablas dinámicas, con la función subtotales, pero igual no lo he logrado. Les agradecería si me ayudaran a resolver mi problema. Gracias Dejo aquí el documento mi problema está en la Hoja 2. trabajo.xlsm
    • Sí, sí puedes. Solo selecciona el título en el gráfico y con él seleccionado en la barra pon "=" e indicas la celda a la que quieres hacer referencia.
  • Recently Browsing

    • No registered users viewing this page.
×
×
  • Create New...

Important Information

Privacy Policy