mozdem
Altın Üye
- Katılım
- 11 Kasım 2005
- Mesajlar
- 446
- Excel Vers. ve Dili
-
Windows 2011 TR
MS Office 2021 TR - 64bit
VBA, Selenium ve VBS
- Altın Üyelik Bitiş Tarihi
- 08-04-2026
Merhabalar,
Bir videoyu izleyerek aynı çalışmayı yaptığım halde, benim çalışmamda "Runtime Error 13 Type Mismatch" hatası alıyorum.
Video linki ayrıntıları Excel dosyamda mevcut. Ayrıca kodları aşağı yazdım.
Yadımcı olursanız memnun olurum.
Bir videoyu izleyerek aynı çalışmayı yaptığım halde, benim çalışmamda "Runtime Error 13 Type Mismatch" hatası alıyorum.
Video linki ayrıntıları Excel dosyamda mevcut. Ayrıca kodları aşağı yazdım.
Yadımcı olursanız memnun olurum.
Kod:
Option Explicit
Private cd As Selenium.ChromeDriver
Sub amazon_select1()
Dim ddl As Selenium.WebElement
Dim ops As Selenium.WebElements
Dim op As Selenium.WebElement
Set cd = New Selenium.ChromeDriver
cd.Start
cd.Get "https://www.amazon.co.uk/"
cd.FindElementByCss("#sp-cc-accept").Click
Set ddl = cd.FindElementByCss("#searchDropdownBox")
'Set ddl = cd.FindElementByXPath("//*[@id='searchDropdownBox']")
'//*[@id="searchDropdownBox"]
'------------------------------------
'Alt satırda Runtime Error 13 Type Mismatch Hatası
Set ops = ddl.FindElementByCss("option")
'------------------------------------------
For Each op In ops
Debug.Print op.Text, op.Value
Next op
End Sub
Ekli dosyalar
-
16.9 KB Görüntüleme: 5