Kod:
If ozurluId = "tblOzurluDevamsizlikToplam" Then
Set satırlar = doc.getElementById(ozurluId).getElementsByTagName("tr")
Dim yazı As String
For Each satır In satırlar
yazı = satır.getElementsByTagName("td")(1).innertext
If Trim(yazı) = "Özürlü Devamsızlık Toplamı" Then
Me.UzurluD = Split(Trim(satır.getElementsByTagName("td")(3).innertext))(0)
End If
Next satır
End If
........ excel