La siguiente información explica cómo usar VBA para obtener el siguiente botón en la página web.
Primero, asegúrese de tener instalada la referencia de Microsoft Internet Controls. En el Editor VBA, haga clic en Herramientas > Referencias y seleccione Controles de Internet de Microsoft.
Luego, inserte el siguiente código en el módulo de código:
Opción explícita
Sub GetNextPageButton()
Atenuar IE como InternetExplorer
Marcar HTMLdoc como HTMLDocument
Atenuar nextPageButton como HTMLAnchorElement
Crear una instancia de Internet Explorer
Establecer IE = nuevo InternetExplorer
Ingrese la URL de la página web que desea rastrear.
Eso es. Explorar""
Espera a que se cargue la página.
Hazlo sobre la marcha. Ocupado o IE. ReadyState & lt& gtReadyState_Complete
Múltiples actividades
Anillo
Obtener el contenido HTML de la página web
Establecer HTMLdoc = IE. Archivo
Botón Buscar siguiente
establecer botón de página siguiente = selector de consulta html(" a . cambiar página[página = ' 2 ']")
Muestra el texto del siguiente botón.
Si no es nextPageButton, no es nada
MsgBox "Siguiente botón:" & nextPageButton.innerText
Otro
MsgBox" Botón Siguiente no encontrado"
Terminará si...
Cierra la instancia de Internet Explorer.
Eso es. Renunciar
Establecer IE = Ninguno
Conector final
Modifique la URL de la página web en el código y reemplácela con la URL real que desea rastrear .
Ejecute el código y obtendrá el siguiente botón y mostrará un cuadro de mensaje que contiene el texto del botón.
Nota: Dado que VBA para Internet Explorer está desactualizado y es posible que no funcione correctamente en algunos casos, puede considerar el uso de tecnologías de rastreo web más modernas, como BeautifulSoup de Python o la biblioteca Selenium.