Excelde Site Başlığını Çekemiyorum

[ihih1]

Merhabalar,

Excelde 30-40 adet sitenin başlıklarını yan sütuna yazdırmak istiyorum ama günlerdir uğraşıyorum çözemiyorum.


ie.Document.title veya ie.Document.getElementsByTagName("title")(0).innertext ile çekilebiliyormuş ama makro bilgim hemen hemen sıfır. Yardımcı olabilir misiniz?


Örnek olarak;

 

[askm]

Örnek dosya eklerseniz akşam yardımcı olmaya çalışayım.

 

[turist]

Web adreslerinin bulunduğu sayfanız açıkkken aşağıdaki kodları bir butona bağlayıp deneyin.

Sub WebdenAl()
Dim title As String
Dim objHttp As Object
Set objHttp = CreateObject("MSXML2.ServerXMLHTTP")
Dim son As Long: son = Range("a65536").End(xlUp).Row
Application.ScreenUpdating = False
On Error Resume Next
Range("B1:B" & son).Clear
For i = 1 To son
webadresi = Cells(i, 1)
objHttp.Open "GET", "https://" & webadresi, False
objHttp.Open "GET", "http://" & webadresi, False
objHttp.Send ""
title = objHttp.ResponseText
If InStr(1, UCase(title), "<TITLE>") Then
    title = Mid(title, InStr(1, UCase(title), "<TITLE>") + Len("<TITLE>"))
    title = Mid(title, 1, InStr(1, UCase(title), "</TITLE>") - 1)
Else
    title = ""
End If
Cells(i, 2) = title
Next i
Set objHttp = Nothing
Application.ScreenUpdating = True
End Sub

 

[Haluk]

Bilgi:

Aşağıdaki linkte de WinHTTP nesnesi kullanılarak benzer bir konu işlenmişti.

http://www.excel.web.tr/f48/web-sitesindeki-veriye-gore-mesaj-verme-t167584.html


.