Halkbank Kur

[Biray3550]

Merhaba Arkadaşlar,
Halkbank internet sitesindeki kur bilgilerini Excel'e Macro ile alabilir miyiz?
Şimdiden teşekkür ederim.

 

[Necdet]

Merhaba,

Eğer halkbankası sitesine girildiğinde aşağıdaki USD ve EUR bilgilerinden söz ediyorsanız, Selenium ve Google Driver kullanarak basit bir şey yaptım.
Bunu kullanmak için selenium u bilgisayarınıza yüklemeniz gerek, ayrıca driver'ları da sürekli güncel tutmak gerek.

Bilgi olsun diye örnek dosyayı yüklüyorum.

Sub WebHalkBank()

' https://www.guru99.com/excel-vba-selenium.html#4
    Dim driver As New WebDriver
    Dim Text As Variant
    Dim adr As String
    Dim d As Variant
    
    With Application
        .ScreenUpdating = False
        .EnableEvents = False
    End With
    
    driver.AddArgument ("headless")
    driver.Start "chrome"
    

    adr = "https://www.halkbank.com.tr/"
    driver.Get adr
    Application.Wait Now + TimeValue("00:00:03")

    On Error Resume Next
    
    Text = driver.FindElementByXPath("//*[@id='borsaSlider-item0']/div/div[2]/div[2]").Text
    d = Split(Text, "-")
    
    Range("B2") = Trim(d(0)) + 0
    Range("C2") = Trim(d(1)) + 0
    
    Text = driver.FindElementByXPath("//*[@id='borsaSlider-item1']/div/div[2]/div[2]").Text
    d = Split(Text, "-")
    
    Range("B3") = Trim(d(0)) + 0
    Range("C3") = Trim(d(1)) + 0
    
    With Application
        .CutCopyMode = False
        .ScreenUpdating = True
        .EnableEvents = True
    End With
        
    driver.Close

End Sub

 

[Biray3550]

Teşekkür ederim. Evet Halkbank sitesinin altındaki kurlar. Selenium nereden hangi dosyasını indirmem gerekiyor? Bilgi verebilir misiniz.

 

[Biray3550]

Sanırım link vermişsiniz. Oradan bakayım. Teşekkürler

 

[Necdet]

Merhaba,

Linki de inceleyebilirsiniz.

 

[Biray3550]

Başardım çok teşekkür ederim. Emeğinize sağlık.

 

[1mak1mak]

Teşekkürler aynı yöntemle ben bile XP Pro SP3 32 de başardım.
Zira Kur Güncellemeler IE üzerinden olduğu için hiçbiri çalışmıyordu.

 

[Biray3550]

Necdet Bey Tekrar Merhaba, Google USD Kur yazınca çıkan Kur'u Excel'e almama yardımcı olabilir misiniz?

 

[Necdet]

Merhaba,
İçime tam olarak sinmedi ama, yine de bir deneyiniz.

Public Sub GoogleUsd()

Dim drv As New Selenium.WebDriver
Dim t As Variant

drv.Start "chrome"
'drv.Get "https://www.millipiyangoonline.com/sayisal-loto/cekilis-sonuclari.126.2022"
drv.Get "https://www.google.com.tr/"

drv.FindElementByName("q").SendKeys "usd kur"
drv.Wait 1000
drv.FindElementByName("btnK").Click
t = Split(drv.FindElementById("knowledge-currency__updatable-data-column").Text, Chr(10))
Range("A1") = Split(t(1), " ")(0) + 0
drv.Close

End Sub

 

[veyselemre]

Public Sub GoogleUsd()

    With New Selenium.WebDriver
        .AddArgument "--headless"
        .Start "chrome"
        .Get "https://www.google.com.tr/search?q=usd+kur"
        Range("A1").Value = .FindElementByCss("span.DFlfde.SwHCTb").Text
        .Close
    End With

End Sub

 

[Necdet]

Teşekkürler Veysel bey,
FindElementByCss("span.DFlfde.SwHCTb" olayını daha sindiremediğim için verdiğim kodda içime sinmedi demiştim.

 

[Biray3550]

Teşekkür ederim. Necdet Bey ve Veysel Bey Emeğinize sağlık.