Astalavista58
Altın Üye
- Katılım
- 20 Ocak 2020
- Mesajlar
- 239
- Excel Vers. ve Dili
- Office 2016 TR 64 Bit
- Altın Üyelik Bitiş Tarihi
- 20-02-2025
Kod:
Sub vericek()
Dim baglan As New Selenium.WebDriver
Dim tablo As TableElement
Dim lastRow As Long
baglan.Start "chrome"
baglan.Get "http://deneme.aspx"
baglan.FindElementById("login-username").SendKeys "123"
baglan.FindElementById("login-password").SendKeys "123"
baglan.FindElementById("login-btn").Click
Application.Wait Now + TimeValue("00:00:05")
lastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To lastRow
baglan.FindElementById("txtSicilTCNO").SendKeys Cells(i, 1).Value
baglan.FindElementById("btnSicilTCNO").Click
Application.Wait Now + TimeValue("00:00:05")
Set tablo = baglan.FindElementById("grdHizmetKontrol").AsTable
.
.
.
.
.
baglan.FindElementById("txtSicilTCNO").Clear
Next i
Benim takıldığım nokta;
TC ile sorguladığımda açılan sayfada “grdHizmetKontrol” ID’si ile gelen bu tabloda , yazı fontu kırmızı olan satırlar var. Ben tablodaki bu kırmızı satırları, sorguladığım TC’nin yanındaki sütunlara sırayla yazdırmak istiyorum.
Sağ tık yapıp “İncele” dediğimde kırmızı renk ile yazılan satırların kodu ““<tr style=”color:Red;”> bu şekilde, alt sekmesinde de açıklaması “td” içerisinde yazıyor.
Yardımcı olabilirseniz veyahut bir yol gösterebilirseniz çok mutlu olurum.