Índice

Solución 21.3 Crear una consulta con filtro sobre una página web

Sub CreaConsultaIBEX_35()  
    Dim qtIBEX35 As QueryTable  
    Dim strFormula As String  
    Call borraConsultas  
      
    ’ Fórmula de creación de la consulta web Criterio de selección sobre el 
volumen de transacciones  
    strFormula = "let" & vbCrLf & _  
    "    Source =   
Web.Page(Web.Contents(""https://es.finance.yahoo.com/q/cp?s=%5EIBEX""))," &   
vbCrLf & _  
    "    Data1 = Source{1}[Data]," & vbCrLf & _  
    "    #""Tipo modificado"" =   
Table.TransformColumnTypes(Data1,{{""Símbolo"", ...