Índice

Solución 21.4 Generalizar una consulta con filtro sobre una página web

Sub FiltradoConsultaIBEX35() 
    Dim dblVolumen As Double 
    Dim strFormula As String 
  
    ’ Entrada del volumen mínimo de transacciones
    dblVolumen = Application.InputBox(Prompt:="Introduzca el volumen mínimo 
", Type:=2)  
      
    ’ Actualización de la fórmula de la consulta web, que incluye dblVolumen  
    strFormula = "let" & vbCrLf & _  
    "    Source =   
Web.Page(Web.Contents(""https://es.finance.yahoo.com/q/cp?s=%5EIBEX ...