Verwenden von Excel zum Erfassen von URL-Weiterleitungen

In Excel ist es möglich, eine Liste von URLs in Spalte A und eine Spalte B mit der URL der Seite, zu der Sie gelangen, automatisch aufzufüllen, wenn Sie auf den Link in Spalte A klicken.

(Ich möchte alle 301/302 Weiterleitungen überprüfen, die sich derzeit auf einer meiner Websites befinden.)

— MarkP
quelle

Excel ist dafür nicht das Werkzeug. Sie wollen etwas wiecurl $1 -s -L -I -o /dev/null -w '%{url_effective}'

— Darth Android

Linux wird hier eine große Hilfe sein:

Erstellen Sie eine Skriptdatei mit dem Namen fetch_redirects:

#!/bin/bash
while read url
do
    echo -n "$url,"
    curl "$url" -s -L -I -o /dev/null -w '%{url_effective}'
done < "${1:-/proc/${$}/fd/0}"

_{Stellen Sie sicher, dass Sie es als ausführbar markieren}

Führen Sie dann unter Angabe einer Liste von URLs (eine pro Zeile) Folgendes aus urls.txt:

cat urls.txt | fetch_redirects > redirects.csv

Sie können dann redirects.csvin Excel oder einem anderen Tool öffnen , das CSV-Dateien unterstützt.

— Darth Android
quelle

Bei Bedarf kann natürlich auch eine äquivalente Batch-Lösung mit curl.exe erstellt werden.

— Karan

@ Karan Auf jeden Fall bitte in die Antwort neben dem Bash-Skript eintragen! :) Ich bin nur nicht so gut in Batch-Scripting. >. <

— Darth Android

Möglicherweise später, obwohl es so aussieht, als würde das OP eine VBScript / VBA-Lösung vorziehen.

— Karan

Ja bitte Karen.

— MarkP

Ich habe Folgendes gefunden, das prüft, ob eine URL existiert (dh nach einem Statuscode von 200 sucht)

Function HttpExists(sURL As String) As String  Dim oXHTTP As Object  Set oXHTTP = CreateObject("MSXML2.XMLHTTP")    If Not UCase(sURL) Like "HTTP:*" Then  sURL = "http://" & sURL  End If    On Error GoTo haveError  oXHTTP.Open "HEAD", sURL, False  oXHTTP.send  HttpExists = IIf(oXHTTP.Status = 200, "Page is Live", "redirects or  missing")  Exit Function  haveError:  HttpExists = "redirects or missing"  End Function

— MarkP