Web'den Veri Çekerken Linkleri de Almak

[G.Bale]

Selamlar,

VesselFinder sitesinden veri çekmeyi makro kaydet + web'den veri al yöntemleriyle başardım, aşağıdaki kodlar oluştu.

Şu an düz bi şekilde sayfadaki tüm yazıları olduğu gibi çekiyor.
Benim yapmak istediğim ise şu an yaptığı işlem ile beraber F sütununa da gemi isimlerinin linklerini yapıştırması. Bu konuda yardımlarınızı rica ediyorum..

With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;https://www.vesselfinder.com/ports/MERSIN-TURKEY-1232", Destination:= _
        Range("A1"))
        .Name = "MERSIN-TURKEY-1232_1"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With

İyi akşamlar.

 

[Mahmut Kök]

Kodunuzdaki ilgili satır şu şekilde değiştirip deneyebilirsiniz:

...
.WebFormatting = xlWebFormattingAll
...

 

[G.Bale]

Teşekkür ederim öncelikle,
önerinizi uyguladım ancak yazıları tıklanabilir hale getirdi, yani sanırım köprü ekledi. Ben bu linkleri ayrı bir sütuna yazdırmak istiyorum.
Bu mümkün mü?

 

[G.Bale]

Günceldir, ek olarak köprü linklerini veri çekme işleminden sonra başka sütuna yapıştırabilirsek bu da ihtiyacımı karşılayacaktır.
Fikirlerinizi bekliyorum.

 

[Mahmut Kök]

Şu şekilde bir kodla hücredeki linkleri alabilirsiniz.

Dim linkimiz
linkimiz = Range("B35").Hyperlinks(1).Address