AccessTr.neT

Merhaba, Excel kodunda farklı tanımlamalar yapılmış olabilir. 

        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

kodunu deneyiniz.

(28/02/2020, 10:20)ozanakkaya yazdı: [ -> ]Merhaba, Excel kodunda farklı tanımlamalar yapılmış olabilir. 

        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

kodunu deneyiniz.

Çok teşekkür ederim. Zahmet verdim, Elinize sağlık.

@ozanakkaya nın yardımı ile devamsızlıklığı tam olarak alan kodun olduğu dosyanın son halini ekliyorum. İncelemek ve kullanmak isteyenler için.
İyi çalışmalar dilerim.