Solución 21.2 Crear una consulta simple sobre una página web


Sub borraConsultas ()  
    Dim intQ As Integer  
    On Error Resume Next  
    For intQ = 1 To 100  
         ActiveWorkbook.Queries(intQ).Delete  
         ActiveSheet.ListObjects(intQ).Delete  
    Next intQ  
End Sub  
-----------------------------------------------------------------  
Sub Todo_IBEX35()  
    Dim qtIBEX35 As QueryTable  
    Dim strFormula As String  
    Call borraConsultas 
      
    strFormula = "let" & vbCrLf & _  
    "    Source =   ...
Si desea saber más, le proponemos el siguiente libro:
couv_TPT16EXCV.png
60-signet.svg
Versión impresa
20-ecran_lettre.svg
Versión online
41-logo_abonnement.svg
En ilimitado con la suscripción ENI
130-boutique.svg
En la tienda oficial de ENI
Anterior
Solución 21.1 Obtener datos a partir de la Web
Siguiente
Solución 21.3 Crear una consulta con filtro sobre una página web