Menggunakan Excel untuk mengambil arahan ulang URL

Di Excel apakah mungkin untuk memiliki daftar URL di kolom A dan memiliki kolom B secara otomatis mengisi dengan URL halaman yang Anda dapatkan jika Anda mengklik tautan di Kolom A.

(Saya ingin mengaudit semua pengalihan 301/302 yang saat ini ada di salah satu situs saya)

microsoft-excel redirection url vbscript MarkP
sumber

Excel bukan alat untuk ini. Anda menginginkan sesuatu seperticurl $1 -s -L -I -o /dev/null -w '%{url_effective}'

Darth Android

Jawaban:

Linux akan sangat membantu di sini:

Buat file skrip bernama 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}"

_{Pastikan untuk menandainya executable}

Kemudian, diberi daftar url, satu per baris urls.txt, jalankan:

cat urls.txt | fetch_redirects > redirects.csv

Anda kemudian dapat membuka redirects.csvdi Excel atau alat lain yang mendukung file CSV.

Darth Android
sumber

Solusi batch yang setara menggunakan curl.exe juga dapat dimasak tentu saja jika diperlukan.

Karan

@Karan Dengan segala cara harap edit menjadi jawaban di samping skrip bash! :) Saya tidak terlalu berpengalaman dalam skrip batch. >. <

Darth Android

Mungkin akan melakukannya nanti, meskipun dengan mengedit di atas baru-baru ini sepertinya OP akan lebih memilih solusi VBScript / VBA.

Karan

Ya, tolong Karen.

MarkP

Saya telah menemukan yang berikut memeriksa untuk melihat apakah URL ada (yaitu mencari kode status 200)

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