Makro ile veri çekme

[G.Bale]

Selamlar, aşağıdaki linkteki, resimde belirttiğim tabloyu excel'e çekmek istiyorum. Bir buton aracılığı ile çalıştıracağım

Link: https://www.marinetraffic.com/tr/da...in|begins|MERSIN|recognized_next_port_in=1687

Tablo ektedir.
Teşekkürler.

 

[G.Bale]

Konu güncel, bir fikri olan yok mudur?

 

[G.Bale]

Konu hala güncel, bir çözüm bulamadım..

 

[G.Bale]

Spamlemek istemiyorum ama günlerdir bir çözüme ulaşamadım. Aşağıda denediğim son kodları yapıştırdım. Boş dönüyor. Fikir bile vermek isteyen olursa çok sevinirim;

Sub test()
'Get ship info

Dim ie As Object

Dim html As MSHTML.HTMLDocument
Dim HTMLSCRAPE As MSHTML.IHTMLElementCollection
Dim HTMLSCR As MSHTML.IHTMLElement

Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = False

ie.navigate "https://www.marinetraffic.com/tr/data/?asset_type=expected_arrivals&columns=shipname,recognized_next_port,reported_eta,arrived,show_on_live_map,dwt,ship_type&recognized_next_port_in|begins|DILISKELESI|recognized_next_port_in=3504"

Do While ie.readyState <> READYSTATE_COMPLETE

Application.StatusBar = "Veri çekiliyor..."

DoEvents

Loop

Set html = ie.document

Set HTMLSCRAPE = html.getElementsByTagName("div")


i = 0
For Each HTMLSCR In HTMLSCRAPE
   Debug.Print HTMLSCR.className, HTMLSCR.tagName, HTMLSCR.ID, HTMLSCR.innerText
Next HTMLSCR




Set ie = Nothing

Application.StatusBar = ""

End Sub