Link Sorgusu Aktif-Pasif Öğrenme

[yasin85]

Herkese Merhaba,

Excel'de "A2" ( Link ) sütunundan başlayarak sırası ile linklerimiz var.
"B2" ( Durumu ) Sütunundan da başlayarak bu linklerin aktif / pasif oldukları yazmasını istiyoruz.
Linklerin durumunu makro ile sorgulata bilmemiz mümkünmüdür?
MS Excelde fonksiyon var ise veya google e-tablolarda böyle bir fonksiyon varsa tüm alternatif çözümlere açığız.

Destekleriniz için şimdiden teşekkürler.

indirme linki..
https://s5.dosya.tc/server4/dkxkor/Link_Sorgusu_Aktif-Pasif.xlsm.html

 

[Haluk]

Sub Test()
'   Haluk - 15/06/2021
'   sa4truss@gmail.com
'   https://excelhaluk.blogspot.com/

    Dim NoA As Integer, HTTP As Object, i As Integer
    
    NoA = Range("A" & Rows.Count).End(xlUp).Row
    Range("B2:B" & NoA) = ""
    
    Set HTTP = CreateObject("MSXML2.XMLHTTP")
    
    For i = 2 To NoA
        HTTP.Open "GET", Range("A" & i).Text, False
        HTTP.send
        Range("B" & i) = IIf(HTTP.Status = 200, "Aktif", "Pasif")
    Next
    Set HTTP = Nothing
End Sub

.

 

[yasin85]

@Haluk Bey Merhaba,

Öncelikle ilginiz için teşekkür ederiz.

Örnek dosya ekliyorum. link aktif olmadığı halde aktif gösteriyor kontrol etmeniz mümkün müdür.

https://s6.dosya.tc/server2/mvk003/Link_Sorgusu_Aktif-Pasif.xlsm.html

 

[Haluk]

"Link çalışmıyor" diye belirttiğiniz linkler çalışıyor .....

.

 

[yasin85]

@Haluk Bey Merhaba,

Çok haklısınız, Linki değiştirip ekledim fakat yanlış örnek oldu kusura bakmayınız başka bir örnek ekliyorum ve bu örneği test ettim lütfen kontrol etmeniz mümkün müdür.

Teşekkürler.

https://s5.dosya.tc/server4/258wzj/Link_Sorgusu_Aktif-Pasif.xlsm.html

 

[Haluk]

Son eklediğiniz dosyada, çalışmadığını belirttiğiniz link de çalışıyor..... Aşağıda ekran görüntüsünü verdim;

İstediğiniz sayfa o değilse, onu bilemem.....

.

 

[veyselemre]

Bu işlemi site bazında test ederseniz, daha iyi sonuç alırsınız.
Örneğinizdeki siteler hatalı urller için farklı cevaplar gönderiyor.
Bence site bazında yöntem geliştirmeniz gerekir. Direkt hata gönderen siteler için Haluk Beyin kodu çok pratik.
Fabio sitesi yönlendirme yaparak genel bir sayfa gösteriyor. Aşağıdaki kodla ne dediğimi daha iyi anlayacaksınız.
Selenium yüklü olması gerekir.

Sub test2()
' 1- Selenium Basic bilgisayarda yüklü olması gerekir.
' 2- "Selenium Type Library" Eklenmesi gerekir.

    With New WebDriver
        .AddArgument ("--headless")
        .Start "Chrome"
        For i = 2 To Cells(Rows.Count, 1).End(3).Row
            .get Cells(i, 1).Text
            Cells(i, 4).Value = Trim(.ExecuteScript("return document.title"))
            Cells(i, 5).Value = Trim(.ExecuteScript("return window.location.href"))
        Next i
        .Quit
    End With

End Sub