Text Üzerindeki Hyperlink'i yazdırma

[Kemal Demir]

İyi akşamlar,

Cells(son, 1) = MyTable.Rows(x).Cells(0).InnerText

Yukarıdaki kod ile ilgili Table'dan verileri revize etmekte kullanıyorum.
Mevcut text'lerin linklerini almak için nasıl revize işlem gerekmektedir.

Bu konuda yardımcı olabilirmisiniz.

Teşekkurler.

 

[Kemal Demir]

İyi geceler,

Konu hakkında bilgisi olan varmı arkadaslar yada benzer çalışmaya sahip birileri varsa konu hakkında yardımcı olabilirmisiniz.

Teşekkurler.

 

[Kemal Demir]

İyi akşamlar,

Aşagıdaki gibi bir kod buldum ama bu koddda webbrowser daki linkleri listeliyor.

.Document.Links(x).href

Oysa istediğim ilgili satırdaki link.

Teşekkurler.

 

[Haluk]

Sorunuzu bir örnekle açınız...

Siz HTML sayfası üzerinde mi çalışıyorsunuz?

.

 

[Haluk]

Sayın Rakkas;

Sanırım HTML sayfası üzerinde çalışıyorsunuz. Eğer öyle ise, "Cells" nesnelerinin "Links" özelliği yoktur. Sadece "DOM" bu özelliğe sahiptir.

Buradan yola çıkarak, yapmanız gereken.... tıpkı arzu edilen "Table" hangisi ise, onu sayarak buluyorsanız, sizin de mesajınızda verdiğiniz örnekte de belirtildiği gibi sözkonusu "Link" i de aynı şekilde sayarak bulacaksınız.

www.mrexcel.com sayfasındaki "MrExcel Online Store" linkinin Text değerini ve linkini aşağıdaki kodla şu şekilde bulabiliriz.

Const URL As String = "[URL]http://www.mrexcel.com/forum/index.php[/URL]"
'
Sub Test()
    '
    '
    ' 22/08/2008 - Haluk ®
    '
 
    Dim IE As Object
    Dim HTML_Body As Object, HTML_Tables As Object, MyTable As Object
 
    Set IE = CreateObject("InternetExplorer.Application")
    With IE
        .Navigate URL
        Do Until IE.ReadyState = 4: DoEvents: Loop
 
        Set HTML_Body = IE.Document.Body
        Set HTML_Tables = HTML_Body.GetElementsByTagName("Table")
        Set MyTable = HTML_Tables(3)
 
        MsgBox MyTable.Rows(0).Cells(6).InnerText
        MsgBox IE.Document.Links(9).OuterHtml
        MsgBox IE.Document.Links(9).InnerText
        MsgBox IE.Document.Links(9).href
    End With
 
    Set HTML_Body = Nothing
    Set HTML_Tables = Nothing
    Set MyTable = Nothing
    Set IE = Nothing
End Sub

.

 

[Kemal Demir]

Günaydın Haluk hocam,

Cevabınız için teşekkur ederim.
Bu konuda net bir cevap aldım.İlgili Satırları saydırmadan bu işlemi sonlandıramam.

Teşekkurler.