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)

— MarkP
sumber

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

— Darth Android

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