Descargar archivos usando el navegador VB

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

End If

Next i

End Sub

Vea la parte comentada, debería ser lo que desea.

Modifíquelo usted mismo