If OzurluID = "tblOzurluDevamsizlikToplam" Then
Set satırlar = WebBrowser.Document.getElementById(OzurluID).getElementsByTagName("tr")
Dim yazıyıbul As String
For Each satır In satırlar
yazıyıbul = satır.getElementsByTagName("td")(1).innertext
If Trim(yazıyıbul) = "Özürlü Devamsızlık Toplamı" Then
Me.ozurluD = Split(Trim(satır.getElementsByTagName("td")(3).innertext))(0)
End If
Next satır
End If
If OzursuzID = "tblOzursuzDevamsizlikToplam" Then
Set satırlar = WebBrowser.Document.getElementById(OzursuzID).getElementsByTagName("tr")
Dim yazıbul As String
For Each satır In satırlar
yazıbul = satır.getElementsByTagName("td")(1).innertext
If Trim(yazıbul) = "Özürsüz Devamsızlık Toplamı" Then
Me.ozursuzD = Split(Trim(satır.getElementsByTagName("td")(3).innertext))(0)
End If
Next satır
End If
kod çalışmıyor yardımcı olabilir misiniz.
örnek dosya ekliyorum.
İyilik yap!
İyilik bul!
İyilik bul!
Son Düzenleme: 22/02/2020, 12:39, Düzenleyen: xoseng.
(Sebep: dosyayı düzenledim)