Descargar archivos usando el navegador VB
Sub gourl(canshu1)
For i = 1 To WebBrowser1.Document.All.length - 1
'If InStr(WebBrowser1.Document.All(i).innertext, "Consulta Mi lista" ) luego
'WebBrowser1.Document.All(i).Click
Si UCase(WebBrowser1.Document.All(i).tagName) = "A" entonces
Si WebBrowser1.Document.All(i).H = "H" Entonces
Si WebBrowser1.Document.All(i).H = "H
WebBrowser1.Document.All(i).HREF = canshu1 Luego
WebBrowser1.Document.All(i).Haga clic en
Salir sub
Finalizar si p>
End If
Next i
End Sub
Vea la parte comentada, debería ser lo que desea.
Modifíquelo usted mismo