Código
Private Sub web_NavigateComplete2(ByVal pDisp As Object, URL As Variant) On Error Resume Next Dim sNombreCorto As String Dim i As Integer For i = 0 To web.Document.links.Length - 1 If Left(web.Document.links.Item(i), 24) = "http://goear.com/listen/" Then sNombreCorto = Mid(web.Document.links.Item(i), 33) With lvwBusqueda.ListItems.Add(, , sNombreCorto) .SubItems(1) = web.Document.links.Item(i) End With End If Next DoEvents EliminarDuplicados lvwBusqueda iPaginaBusqueda = iPaginaBusqueda + 1 End Sub
Lo que quería hacer era que en cuanto acabase de cargar los enlaces, pasase a la siguiente página de resultados, pero directamente intenta cargar la siguiente y no añade nada.
¿Cómo podría hacerlo?
Gracias de antemano.