Çözüldü Web sayfasından tablo almak Selenium

[Jeeday]

Selam herkese,

Alttaki linkteki tabloyu almak istiyorum. 2 tane farklı yol denedim;
1.si table mantığı ile aldım
2.si query ile aldım

Her ikisi de bir zaman sonra hatalı sonuçlar vermeye başladı.

Sizlerin de önerisini rica edeceğim.

Altın Fiyatları - Altın Kuru | CEPTETEB

Altın fiyatları, altın kuru ve altın alış/satış fiyatlarına buradan ulaşabilirsin. Sen de CEPTETEB'den altın fiyatları ve işlemlerini hemen gerçekleştir.

www.cepteteb.com.tr

Teşekkürler

 

[askm]

Selenium ile aşağıdaki kodlar ile çekebilirsiniz.

Sub askm()
Dim cd As Selenium.ChromeDriver
Dim t As Selenium.WebElement
    
Set cd = New Selenium.ChromeDriver
cd.AddArgument "--headless"
    
cd.Start
cd.Get "https://www.cepteteb.com.tr/altin-kurlari"
    
Set t = cd.FindElementsByCss("table")(1)
t.AsTable.ToExcel Sayfa1.Range("A1")
Sayfa1.Columns("A:D").AutoFit
End Sub

 

[Adnan]

sayın jeeday intenet explorer ile eski verileri alıyor bende selenium kurulu değil.kolay gelsin

 

[Artemis]

Ekdeki dosyada GÜNCELLE butonuna basınca web deki tablo verilerini çekiyor..banka siteleri çok dinamik olduğundan arada tutukluk yapabilir.

 

[Jeeday]

Ekdeki dosyada GÜNCELLE butonuna basınca web deki tablo verilerini çekiyor..banka siteleri çok dinamik olduğundan arada tutukluk yapabilir.

ie.Visible = False satırında patlıyor excel...

 

[Adnan]

selenium u kurun sıkıntıdan kurtulun diyorum

 

[Jeeday]

Selenium ile aşağıdaki kodlar ile çekebilirsiniz.

Sub askm()
Dim cd As Selenium.ChromeDriver
Dim t As Selenium.WebElement
   
Set cd = New Selenium.ChromeDriver
cd.AddArgument "--headless"
   
cd.Start
cd.Get "https://www.cepteteb.com.tr/altin-kurlari"
   
Set t = cd.FindElementsByCss("table")(1)
t.AsTable.ToExcel Sayfa1.Range("A1")
Sayfa1.Columns("A:D").AutoFit
End Sub

Selenium'u kurdum. Referenceslardan seçtim. kodu çalıştırdım.
Set cd = New Selenium.ChromeDriver
bu satırda excel kapanıyor...

 

[Adnan]

chrome driver i selenium un kurulduğu yere yüklediniz mi

 

[Adnan]

bir de refenceslerden selenium u seçmeniz gerekiyor

 

[Jeeday]

chrome driver i selenium un kurulduğu yere yüklediniz mi

CHROME DRIVER linki nedir?

 

[askm]

ChromeDriver - WebDriver for Chrome - Downloads chrome versiyonuna göre burdan indirebilirsiniz.

 

[Adnan]

CHROME DRIVER linki nedir?

önce chrome nin sağ üstteki üç noktaya tıkla sonra google chrome hakkında ya tıkla aşağıdaki gibi resim gelecek orada baş taraftaki numaraya bak


sonra ChromeDriver - WebDriver for Chrome linkinden baş tarafı aynı olan driver indir ve selenium kurulu dizine kopyala

 

[Jeeday]

şirkete selenium vb. uygulamalar kurmak yasak olduğu için farklı yollara ihtiyacım var

 

[burakgunes]

şirkete selenium vb. uygulamalar kurmak yasak olduğu için farklı yollara ihtiyacım var

Sub cepteteb()
Dim XMLReq As New MSXML2.ServerXMLHTTP60
Dim HTMLDoc As New MSHTML.HTMLDocument
 

url = "https://www.cepteteb.com.tr/altin-kurlari"
XMLReq.Open "GET", url, False
XMLReq.setRequestHeader "cf-cache-status", "DYNAMIC"
XMLReq.setRequestHeader "content-type", "txt/html"
XMLReq.setRequestHeader "user-agent", "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/94.0.4606.81 Safari/537.36"
XMLReq.send allbody

If XMLReq.Status <> 200 Then
    
    Sheets("Akakce").Range("C" & i) = "Fiyat Çekilemedi"

End If

HTMLDoc.body.innerHTML = XMLReq.responseText

Sheets("cepteteb").Cells(2, 1) = HTMLDoc.getElementsByClassName("altinTablo")(0).getElementsByTagName("tr")(1).getElementsByTagName("td")(0).innerText
Sheets("cepteteb").Cells(2, 2) = HTMLDoc.getElementsByClassName("altinTablo")(0).getElementsByTagName("tr")(1).getElementsByTagName("td")(1).innerText
Sheets("cepteteb").Cells(2, 3) = HTMLDoc.getElementsByClassName("altinTablo")(0).getElementsByTagName("tr")(1).getElementsByTagName("td")(2).innerText
Sheets("cepteteb").Cells(2, 4) = HTMLDoc.getElementsByClassName("altinTablo")(0).getElementsByTagName("tr")(1).getElementsByTagName("td")(3).innerText

Sheets("cepteteb").Cells(3, 1) = HTMLDoc.getElementsByClassName("altinTablo")(0).getElementsByTagName("tr")(2).getElementsByTagName("td")(0).innerText
Sheets("cepteteb").Cells(3, 2) = HTMLDoc.getElementsByClassName("altinTablo")(0).getElementsByTagName("tr")(2).getElementsByTagName("td")(1).innerText
Sheets("cepteteb").Cells(3, 3) = HTMLDoc.getElementsByClassName("altinTablo")(0).getElementsByTagName("tr")(2).getElementsByTagName("td")(2).innerText
Sheets("cepteteb").Cells(3, 4) = HTMLDoc.getElementsByClassName("altinTablo")(0).getElementsByTagName("tr")(2).getElementsByTagName("td")(3).innerText


Sheets("cepteteb").Cells(4, 1) = HTMLDoc.getElementsByClassName("altinTablo")(0).getElementsByTagName("tr")(3).getElementsByTagName("td")(0).innerText
Sheets("cepteteb").Cells(4, 2) = HTMLDoc.getElementsByClassName("altinTablo")(0).getElementsByTagName("tr")(3).getElementsByTagName("td")(1).innerText
Sheets("cepteteb").Cells(4, 3) = HTMLDoc.getElementsByClassName("altinTablo")(0).getElementsByTagName("tr")(3).getElementsByTagName("td")(2).innerText
Sheets("cepteteb").Cells(4, 4) = HTMLDoc.getElementsByClassName("altinTablo")(0).getElementsByTagName("tr")(3).getElementsByTagName("td")(3).innerText

Sheets("cepteteb").Cells(5, 1) = HTMLDoc.getElementsByClassName("altinTablo")(0).getElementsByTagName("tr")(4).getElementsByTagName("td")(0).innerText
Sheets("cepteteb").Cells(5, 2) = HTMLDoc.getElementsByClassName("altinTablo")(0).getElementsByTagName("tr")(4).getElementsByTagName("td")(1).innerText
Sheets("cepteteb").Cells(5, 3) = HTMLDoc.getElementsByClassName("altinTablo")(0).getElementsByTagName("tr")(4).getElementsByTagName("td")(2).innerText
Sheets("cepteteb").Cells(5, 4) = HTMLDoc.getElementsByClassName("altinTablo")(0).getElementsByTagName("tr")(4).getElementsByTagName("td")(3).innerText

End Sub

ekte örnek ekledim o örneğe göre şekilendirebilirsiniz

 

[oilgun]

Json alternatifini şuraya koyayım lazım olur.