(28/02/2020, 10:20)ozanakkaya yazdı: Merhaba, Excel kodunda farklı tanımlamalar yapılmış olabilir.Çok teşekkür ederim. Zahmet verdim, Elinize sağlık.
kodunu deneyiniz.Set satırlar = WebBrowser.Document.getElementById("tblOzurluDevamsizlikToplam").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
İyilik yap!
İyilik bul!
İyilik bul!