Excel-VBA-Skript finden Sie 404-Fehler in einer Liste von URLs?

So, ich habe diese Tabelle mit einer Liste von über 5000 URLs. (Alle Seiten, die auf unserer Unternehmens-intranet).

Wir wissen, dass einige der links sind gebrochen, aber nicht weiß, der ein guter Weg, um zu bestimmen, welche, ohne auf alle 5000 links.

Normalerweise wäre dies eine einfache Angelegenheit: Erstellen Sie eine web-Seite mit links zu den 5000 Seiten, und überprüfen Sie dann die links mit einem tool wie Xenu Link Sleuth.

Aber das wird nicht funktionieren, in diesem Fall, weil viele der links umgeleitet werden, und die redirect-code fälscht HTTP.Antwort 200, die tricks, die Xenu in der Behandlung von es als eine gültige URL.

Jedoch, es gibt einige gute Nachrichten: Die redirect-Skript läuft nicht in Excel. Wenn Sie auf einen schlechten link in Excel, die redirect-Skript nicht ausgeführt wird und die HTTP-Antwort wird berichtet, zurück zu Excel. Ich glaube Excel sollte in der Lage sein zu identifizieren, den richtigen HTTP-response-code (404) - oder zumindest, ob der link gültig war oder nicht.

Das bringt mich zu meiner Frage:

Gibt es eine Möglichkeit mit VBA ein script schreiben, dass würde durch das klicken auf jeden link und erfassen das Ergebnis? Das Ergebnis erfasst werden konnten, in form von HTTP-response-code oder irgendetwas anderes, die Sie denken, wäre hilfreich bei der Suche nach dem bad links in dieser Liste von 5000 Seiten. Idealerweise wäre das Ergebnis geschrieben werden, um eine Zelle im Arbeitsblatt neben dem link.

Wenn jemand wenn Sie vertraut genug mit VBA vorschlagen, eine Lösung für dieses problem, ich wäre ewig dankbar!

InformationsquelleAutor John Cherry | 2016-03-17
  1. 3

    Hier ist ein Beispiel, um zu überprüfen der status-Zeile aus einer Liste von URL mit Excel:

    Sub TestLinks()
  Dim source As Range, req As Object, url$
  Set req = CreateObject("Msxml2.ServerXMLHTTP.6.0")

  ' define were the links and results are
  Set source = Range("A1:B2")

  ' clear the results
  source.Columns(2).Clear

  ' iterate each row
  For i = 1 To source.Rows.count
    ' get the link from the first column
    url = source.Cells(i, 1)

    ' send the request using a HEAD to check the status line
    req.Open "HEAD", url, False
    req.setRequestHeader "Accept", "image/webp,image/*,*/*;q=0.8"
    req.setRequestHeader "Accept-Language", "en-GB,en-US;q=0.8,en;q=0.6"
    req.setRequestHeader "Accept-Encoding", "gzip, deflate"
    req.setRequestHeader "Cache-Control", "no-cache"
    req.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
    req.setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 6.3; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/47.0.2526.111 Safari/537.36"
    req.Send

    ' write the result in the second column
    source.Cells(i, 2) = req.Status
  Next

  MsgBox "Finished!"
End Sub
    • Mithilfe von Xmlhttp ist ebenfalls möglich. Für mich fand ich über WinHttpRequest, um ein bisschen mehr robust.
    • Vielen Dank, @florentbr! Ich bin immer noch lernen, meinen Weg in der Visual Basic-Fenster in Excel. Ich werde versuchen Sie zu bekommen, @bioschaf-Skript zu arbeiten und erst dann versuchen, dir zu arbeiten. Ich Schätze die Hilfe!
    InformationsquelleAutor Florent B.
  2. 2

    Verwenden einer benutzerdefinierten Funktion zum zurückgeben der HTML-Status Codes, und ziehen Sie es nach unten neben den links. Könnte eine Weile dauern, für Excel, um zu überprüfen 5000 links, aber.

    Public Function CheckURL(url As String) As String
Dim request As New WinHttpRequest
request.Open "GET", url
request.Send
CheckURL = request.Status
End Function

    Müssen Sie wahrscheinlich fügen Sie einen Verweis auf "Microsoft WinHTTP Services" unter "Extras" -> "Referenzen"

    • Hi bioschaf, ich danke Ihnen sehr für die Hilfe! Ich habe kaum je berührt Excel-VBA. Würden Sie mir, dass Sie mir ein wenig Anleitung? In meiner Tabelle habe ich aktiviert, die Registerkarte "Entwicklertools", und dann öffnete Sie den visual basic-Fenster. Von dort habe ich eingefügt, den code in den code-Bereich. Dann zurück in der Tabelle, ich habe versucht, führen Sie die Funktion mit =CheckURL(A2). Aber dies führt zu einem Fehler. Keine Ahnung, was ich falsch mache? (Ich habe damit Microsoft WinHTTP Services" vorgeschlagen.)
    • Hallo, müssen Sie die Funktion in ein Modul zu machen, damit es funktioniert. Also in der VBA-Fenster, rechts klicken Sie auf Ihr Projekt, wählen Sie "Einfügen -> Module" und fügen den code dort ein. Dann sollten Sie in der Lage sein, verwenden Sie die Funktion in excel-Zellen.
    • Genial, ich danke Ihnen sehr viel. Das hat geklappt. Getestet habe ich auf 3 Zeilen und bekam Ergebnisse - jetzt bin ich nach unten kopieren 5000 Zeilen und Excel ist "beschäftigt". 🙂
    • Ja, es wird viel Zeit in Anspruch nehmen. Vielleicht wäre es eine gute Idee, um zu testen, mit einigen hyperlinks, 404 zurückgeben sollte - nur um sicherzustellen, dass das makro erzeugt die richtigen Ergebnisse.
    • Gute denken. Ich habe mit ihm zu spielen; die Ergebnisse sind gemischt, so weit. Getestet habe ich mit einigen ungültigen URLs, sondern bekam 401 statt 404. Getestet habe ich mit einigen umgeleitete URLs als gut, und diese auch wieder 401. Und die meisten verwirrend, getestet habe ich ein paar GÜLTIGE URLs und Sie kehrten 401. Aber nicht alles ist wieder 401. Es gibt eine Handvoll von 200, ein paar 403 und 404 s 503 s, und einige, die zeigen, dass #WERT! Alle den #WERT! - 's entsprechen Seiten auf Websites, die nicht mehr existieren.
    • Basierend auf Fiddler Ergebnisse, die Ergebnisse zeigen #WERT! in Excel sind HTTP 502 Bad Gateway.
    • Tut mir Leid zu hören, dass es nicht funktioniert wie erwartet. Wenn ich es selber getestet habe, fand ich, dass, da wir einen proxy haben, es würde produzieren seltsame Ergebnisse für externe Seiten. Intranet funktioniert wie erwartet.
    • Oh, keine Sorge, ich sehr zu schätzen Ihre Hilfe. Diese produziert einige nützliche Informationen, aber auch einige Ergebnisse, erfordern weitere Analysen. Alle diejenigen, die zeigen #WERT kann richtig erkannt als schlechte links. Ich habe gerade realisiert, (mit Fiddler), dass der Grund für die 404 zeigen, 401, denn unsere Server sind so konfiguriert, um alle HTTP-Anfragen zunächst anonym. In den browser, wird die Anfrage sofort erneut mit Anmeldeinformationen, so dass der Benutzer nie bemerkt einen Fehler, aber in Excel sind wir nur immer die ersten 401-Antwort und nicht die tatsächlichen Ergebnisse von den re-request mit Anmeldeinformationen.
    • Auch über die Hilfe mit dem unmittelbaren problem, ich Schätze Ihr mir helfen erfahren Sie ein wenig über VBA in Excel!
    • Sie sind herzlich willkommen. Vielleicht könnten Sie versuchen, mit einem browser-Objekt (oder XML-server aus der anderen Antwort), um aussagekräftigere Ergebnisse, aber ich bin mir nicht sicher, was server-codes, die es führen könnte, wenn diese Methoden würden erneut die ursprüngliche Anforderung.
    • Mit einem HEAD Anfrage statt GET Dinge beschleunigen wird. Sie brauchen nicht den Inhalt der URL, nur ob es vorhanden ist.

    InformationsquelleAutor Sebastian B
Schreibe einen Kommentar