Visualizzazione dei risultati da 1 a 2 su 2

Discussione: Scaricare dati da web

  1. #1

    Scaricare dati da web

    Ci sono alcuni siti da cui non si può scaricare attraverso la query web di excel. E' il mio caso: quando vado su questo indirizzo
    http://stats.betradar.com/s4/?clientid=5&language=it#2_1,3_17,22_1,5_41264,9_fi xtures,231_full,23_1

    mi esce il messaggio, nella cella dove avrei dovuto importare i dati:
    JavaScript might have been turned off. Please check your browser settings in order to access and use this site.

    Ho capito che bisogna agire tramite il codice Html.Ho provato con questa macro sottostante e mi carica i dati normalmente. Ciò che però non riesco a vedere sono i link per tutte le partite presenti. Vorrei pertanto chiedervi:

    Se vi indicassi l'indirizzo sottostante, mi sapreste dire come devo modificare la macro affinchè mi compaiano i link delle varie partite presenti nella pagina scaricata? Vi ringrazio immensamente

    Sub Macro1()

    Application.Calculation = xlCalculationManual

    myURL = "http://stats.betradar.com/s4/?clientid=5&language=it#2_1,3_17,22_1,5_41264,9_fi xtures,231_full,23_1"

    Set ie = CreateObject("InternetExplorer.Application")

    With ie
    .navigate myURL
    .Visible = True
    Do While .Busy: DoEvents: Loop
    Do While .readyState <> 4: DoEvents: Loop
    End With
    '
    myStart = Timer
    Do
    DoEvents
    If Timer > myStart + 2 Or Timer < myStart Then Exit Do
    Loop

    I = 1
    Worksheets("Foglio1").Activate
    Range("A:G").Clear
    Set mycoll = ie.document.getElementsByTagName("TABLE")
    For Each myItm In mycoll
    For Each trtr In myItm.Rows
    For Each tdtd In trtr.Cells
    Cells(I + 1, J + 1) = tdtd.innerText
    J = J + 1
    Next tdtd
    I = I + 1: J = 0
    Next trtr
    I = I + 1
    Next myItm

    ie.Quit
    Set ie = Nothing
    Calculate

    End Sub

  2. #2
    Moderatore di XHTML e HTML L'avatar di Vincent.Zeno
    Registrato dal
    May 2003
    residenza
    Emilia-Romagna (tortellini und cappelletti land!)
    Messaggi
    18,613
    sposto nella sezione windows software

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2018 vBulletin Solutions, Inc. All rights reserved.