- Katılım
- 6 Ekim 2020
- Mesajlar
- 16
- Excel Vers. ve Dili
-
Microsoft Office Professionel Plus 2013
Türkçe
Merhabalar elimde şöyle bir kod var, kod tamamen stabil şekilde çalışıyor ama 3,400 olan veriyi 3400 olarak yazıyor, bunu nasıl düzeltebiliriz.
/1000 yapmak işe yaramıyor çünkü çekeceğim veri her zaman 3,400 değil bazen 421,2 oluyor bunu /1000 yapınca olmuyor, yardımcı olabilir misiniz?
Kod
Sub veri_al()
Dim baglan As New Selenium.WebDriver
baglan.Start "chrome"
baglan.Get "https://www.paribu.com/#/market/btc-tl"
baglan.Wait 3000
baglan.FindElementByXPath("//*[@id='app']/div[1]/div[2]/div[1]/div/div/div[1]/button").Click
veri = baglan.FindElementByXPath("//*[@id='app']/div[1]/div[2]/div[2]/div/div[3]/div/div/ul/a[1]/div[3]").TextAsNumber
Range("A1") = veri
End Sub
/1000 yapmak işe yaramıyor çünkü çekeceğim veri her zaman 3,400 değil bazen 421,2 oluyor bunu /1000 yapınca olmuyor, yardımcı olabilir misiniz?
Kod
Sub veri_al()
Dim baglan As New Selenium.WebDriver
baglan.Start "chrome"
baglan.Get "https://www.paribu.com/#/market/btc-tl"
baglan.Wait 3000
baglan.FindElementByXPath("//*[@id='app']/div[1]/div[2]/div[1]/div/div/div[1]/button").Click
veri = baglan.FindElementByXPath("//*[@id='app']/div[1]/div[2]/div[2]/div/div[3]/div/div/ul/a[1]/div[3]").TextAsNumber
Range("A1") = veri
End Sub