Skip to main content

AccessTr.neT


Accesste Web Tarayıcısından Devamsızlık Toplamı Almak

Accesste Web Tarayıcısından Devamsızlık Toplamı Almak

#7
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.
Cevapla
#8
(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.
İyilik yap!
                  İyilik bul!
Cevapla
#9
@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.
.rar Accesste Web Tarayıcısından Devamsızlık Toplamı Almak.v.2.rar (Dosya Boyutu: 617,21 KB | İndirme Sayısı: 5)
İyilik yap!
                  İyilik bul!
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task