LoginRegistrati
Stai vedendo 1 articolo (di 1 totali)
  • Autore
    Articoli
  • #30240 Risposta

    Buongiorno, sto cercando di modificare il codice che riporto sotto per prelevare dati dal ns sito aziendale protetto.

    la pagina si carica perfettamente ma mi sono bloccato quando devo cliccare sul pulsante visualizza che apre la tabella con i dati.

    Sub TEST2()
    
    
    Dim IE As New SHDocVw.InternetExplorer
        Dim Doc As MSHTML.HTMLDocument
        Dim HTMLAs As MSHTML.IHTMLElementCollection
        Dim HTMLA As MSHTML.IHTMLElement
        Dim Elem As MSHTML.IHTMLElement
        
        IE.navigate "http://ip1web02/ip1web/M_Elaborazioni/BuoniPasto/Contenitore.asp"
       ' IE.Visible = True
    '    Do While IE.Busy: DoEvents: Loop 'Attesa not busy
     '   Do While IE.readyState <> READYSTATE_COMPLETE: DoEvents: Loop 'Attesa documento
    
    
       ' Set Doc = IE.document
        Doc.forms("btnVISUALIZZA").elements("search").Value = "Scraping web"
        Doc.forms("btnVISUALIZZA").elements("go").Click
        Do While IE.Busy: DoEvents: Loop 'Attesa not busy
        Do While IE.readyState <> READYSTATE_COMPLETE: DoEvents: Loop 'Attesa documento
    
        Set HTMLAs = Doc.getElementsByClassName("btnVISUALIZZA")
        For Each HTMLA In HTMLAs
            For Each Elem In HTMLA.getElementsByTagName("li")
                Debug.Print Elem.innerText
            Next Elem
        Next HTMLA
    End Sub
    
LoginRegistrati
Stai vedendo 1 articolo (di 1 totali)
Rispondi a: Scraping vba
Gli allegati sono permessi solo ad utenti REGISTRATI
Le tue informazioni:



vecchio frac - 2750 risposte

patel
patel - 1073 risposte

albatros54
albatros54 - 1058 risposte

Marius44
Marius44 - 970 risposte

Luca73
Luca73 - 766 risposte