Webbrowser Den Radiogroup Ta Seçili Değeri Alma

1 2
10/01/2021, 15:12

mustinba

İyi çalışmalar arkadaşlar.
Örneğimde  websitede radiogrup var ve ben bu radiogruptaki  seçili olan verinin değerini nasıl alabilirim.

örneğin
Sağ / Ölü elementinin Sağ mı Ölü mü Seçili.
10/01/2021, 20:32

feraz

Merhaba.
Eğer selenium kullanırsanız alttaki kod işinize yarayabilir.
Başka yöntem bilmiyorum.

Private Sub Komut0_Click()
    Dim baglan As New Selenium.WebDriver
    Dim olu As Boolean, sag As Boolean
   
    baglan.AddArgument "-headless"
    baglan.Start "chrome"
    baglan.Get CurrentProject.Path & "\radiogrupal.html"
    olu = baglan.FindElementByXPath("//*[@id='rdOlu']").IsSelected
    sag = baglan.FindElementByXPath("//*[@id='rdSag']").IsSelected
    If olu = True Then MsgBox "isaretli olan: Ölü"
    If sag = True Then MsgBox "isaretli olan: Sag"
    baglan.Close
    Set baglan = Nothing
End Sub
11/01/2021, 00:19

feraz

Selenium Basic kurulum videosuda videoda.Adam Excel için anlatmış lakin Access içinde aynısı.
11/01/2021, 21:26

mustinba

cevabınız için teşekkürler.
Harici bir kütüphane kullanmadan yapmaya çalışıyorum.
11/01/2021, 21:41

feraz

Rica ederim,siz bilirsiniz abey.
12/01/2021, 00:02

feraz

Alttaki kodu dener misiniz?

Private Sub Komut1_Click()
    Dim ie As Object, sag As Object, olu As Object
    Set ie = CreateObject("internetexplorer.application")
   
    With ie
        .Visible = False
        .Navigate CurrentProject.Path & "\radiogrupal.html"
        Do While .Busy: DoEvents: Loop
        Do While .ReadyState <> 4: DoEvents: Loop
    End With
    Set sag = ie.Document.getelementbyid("rdSag")
    Set olu = ie.Document.getelementbyid("rdOlu")
    If sag.Checked Then MsgBox "Sag secili"
    If olu.Checked Then MsgBox "Ölü secili"
    ie.Quit
    Set ie = Nothing: Set sag = Nothing: Set olu = Nothing
End Sub
1 2