DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
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
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
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