' La funzione estrapola la stringa numerica che identifica la provincia scelta dalla combobox
Public Function f(prov As String) As String
    Dim ie As Object, Ele As Object
    
    Dim objRegExp As Object
    Set objRegExp = CreateObject("vbscript.regexp")
    
    objRegExp.Global = True
    objRegExp.Pattern = "[^0-9]"
    
 
  Set ie = CreateObject("InternetExplorer.Application")
    
            
            With ie
                .silent = True
                .navigate "h t t p : / /www.comuni-italiani.it"
                .Visible = False
                Do While .busy Or .ReadyState <> 4
                  DoEvents
                Loop
            End With
    
            For Each Ele In ie.document.all
                    If Ele.innertext = prov Then
                        f = objRegExp.Replace(Ele.innerhtml, "")
                        Exit Function
                    End If
            Next
            
End Function



Sub EstrapolaValori()
' La routine serve per estrapolare il valore riferito al numero delle famiglie censite nel 2012
' in tutti i Comuni della Provincia scelta e memorizzata nel range("B1") del foglio di lavoro.
' poi registra il valore nel range B3 e seguenti.
    Dim ie As Object, Ele As Object
    Dim sWeb As String
    Dim w As Integer
    Dim str_w As String
    Dim i As Integer
    Dim prov As String
    Dim n_Prov As String
  
  prov = Range("B1") 'Nome della Provincia scelta
  n_Prov = f(prov) 'Restituisce la stringa che serve per comporre l'indirizzo web da aprire e da cui si può prelevare il valore cercato.
  Set ie = CreateObject("InternetExplorer.Application")
        For w = 1 To Range("C1") 'riporto manulamente il numero dei Comuni che appartengono alla provincia. Ma avrei voluto estrarlo in automatico...
        str_w = Format(w, "000")
            sWeb = " h t t p : / / www.comuni-italiani.it/" & n_Prov & "/" & str_w & "/statistiche/recenti.html"
            With ie
                .silent = True
                .navigate sWeb
                .Visible = False
                Do While .busy Or .ReadyState <> 4
                  DoEvents
                Loop
            End With
            
            For Each Ele In ie.document.all
            i = i + 1
            If i = 1 Then Range("A" & w + 2).Value = Left(Ele.innertext, InStr(Ele.innertext, ":"))
                  If Ele.offsettop < 320 And Ele.offsettop > 315 And Ele.offsetleft < 320 And Ele.offsetleft > 315 Then
                ' Non trovo altri elementi affidabili a parte la posizione per intercettare il dato che serve.
                ' Ho però verificato che, la posizione del dato nella tabella web è sempre la stessa per tutti i Comuni.
                    Range("b" & w + 2).Value = CLng(Replace((Ele.innertext), ".", ""))
                    Range("b" & w + 2).NumberFormat = "#,#"
                End If
            
            Next
          i = 0
        Next
    
End Sub