Acquista i nostri libri consigliati su Amazon.it
+ Rispondi al messaggio
Visualizzazione dei risultati da 1 a 4 su 4

script per verificare l'esistenza di pagine web (EXCEL 2007)

  1. #1
    giuliodc non è in linea Novello
    Post
    1
    Like Inviati  
    0
    Like Ricevuti  
    0
    Buonasera a tutti, sono nuovo del gruppo. Avrei uno scoglio enorme che non riesco a superare. Premetto che non sono esperto di programmazione codici vba: su un foglio excel ho una lista di circa 25000 indirizzi web; gli indirizzi riportano tutti alla stessa piattaforma (Nuvola.it). Molti di essi oramai non esistono più (sono stati cancellati dalla piattaforma) mentre altri si. Esiste un modo per a verificare l'esistenza di ciascun link in maniera automatica?
    Es. ho due indirizzi

    1)indirizzo NON VALIDO in cella A2: https://nuvola.madisoft.it/mad/ATIC80100B/inserisci --> la pagina non esiste
    2)indirizzo VALIDO in cella A3: https://nuvola.madisoft.it/mad/BOIC824007/inserisci --> la pagina esiste
    Vorrei inserire un un valore accanto ad ogni indirizzo , nella cella B: 1 se l'indirizzo esiste, 0 altrimenti.
    mi hanno passato questo codice per capire come far connettere excel ai link, ma non funziona
    Sub Esistenza_URL()
        Dim http As Object, topics As Object, titleElem As Object, i As Integer
        Set http = CreateObject("MSXML2.XMLHTTP")
        On Error GoTo fine
        'http.Open "GET", "https://nuvola.madisoft.it/mad/ATIC80100B/inserisci", False
        http.Open "GET", "https://nuvola.madisoft.it/mad/BOIC824007/inserisci", False
        http.send
    Exit Sub
    fine:
    MsgBox "Il sito non esiste"
    End Sub
    
    Grazie per l'aiuto

  2. #2
    L'avatar di willy55
    willy55 non è in linea Scribacchino
    Post
    730
    Like Inviati  
    0
    Like Ricevuti  
    0
    Una soluzione è impostare nei Riferimenti disponibili "Microsoft WinHTTP Services" in modo da impiegare la seguente funzione:

    Public Function CheckURL(url As String) As String
    ' Funzione di verifica validità della pagina URL
    ' viene restituito il valore:
    ' 404 in caso di pagina non esistente (in inglese page not found)
    ' 200 qualora una pagina, dal sito della URL, sia fornita
    
    Dim request As Object
    Set request = CreateObject("WinHttp.WinHttpRequest.5.1")
    request.Open "GET", url
    request.Send
    CheckURL = request.Status
    
    End Function
    
    ℹ️ Leggi di più su willy55 ...

  3. #3
    Ferrari_and non è in linea Scolaretto
    Post
    310
    Like Inviati  
    2
    Like Ricevuti  
    3
    Una curiosità cosa tene fai di 25000 indirizzi di pagine di un portale web di un registro elettronico utilizatto in tutta Italia?

  4. #4
    L'avatar di @Alex
    @Alex non è in linea Moderatore Globale
    Post
    16,806
    Like Inviati  
    0
    Like Ricevuti  
    23
    Quote Originariamente inviato da willy55 Visualizza il messaggio
    Una soluzione è impostare nei Riferimenti disponibili "Microsoft WinHTTP Services" in modo da impiegare la seguente funzione:

    Public Function CheckURL(url As String) As String
    ' Funzione di verifica validità della pagina URL
    ' viene restituito il valore:
    ' 404 in caso di pagina non esistente (in inglese page not found)
    ' 200 qualora una pagina, dal sito della URL, sia fornita
    
    Dim request As Object
    Set request = CreateObject("WinHttp.WinHttpRequest.5.1")
    request.Open "GET", url
    request.Send
    CheckURL = request.Status
    
    End Function
    
    Questa funzione non richiede i riferimenti è in associazione tardiva.
    ℹ️ Leggi di più su @Alex ...

+ Rispondi al messaggio

Potrebbero interessarti anche ...

  1. Verificare esistenza url da visual basic
    Da visualbasicpro6 nel forum Visual Basic 6
    Risposte: 5
    Ultimo Post: 27-02-2014, 22:24
  2. Access - Verificare l'esistenza tabella
    Da Primeros nel forum Microsoft Access
    Risposte: 3
    Ultimo Post: 28-01-2011, 12:13
  3. [vb6] verificare l'esistenza di un nodo figlio
    Da daddylee nel forum Visual Basic 6
    Risposte: 1
    Ultimo Post: 09-10-2007, 07:47
  4. verificare esistenza campo in tabella
    Da franciros nel forum Microsoft Word
    Risposte: 4
    Ultimo Post: 13-05-2006, 16:19
  5. Verificare esistenza file
    Da Cis nel forum Visual Basic 6
    Risposte: 17
    Ultimo Post: 26-04-2006, 00:03