AccessTr.neT
Accesste Web Tarayıcısından Devamsızlık Toplamı Almak - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Accesste Web Tarayıcısından Devamsızlık Toplamı Almak (/konu-accesste-web-tarayicisindan-devamsizlik-toplami-almak.html)

Sayfalar: 1 2

Cvp: Accesste Web Tarayıcısından Devamsızlık Toplamı Almak - ozanakkaya - 28/02/2020

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.

Cvp: Accesste Web Tarayıcısından Devamsızlık Toplamı Almak - xoseng - 28/02/2020

(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.

Cvp: Accesste Web Tarayıcısından Devamsızlık Toplamı Almak - xoseng - 29/02/2020

@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.