veri,
Kod:
<DIV align="right">
<span id="lblDevamsizlikTanim"></span></DIV>
</TD>
</TR>
</TABLE>
</TD>
</TR>
<TR>
<TD height="10"></TD>
</TR>
<TR>
<TD height="10">
<TABLE id="Table3" cellSpacing="0" cellPadding="0" width="100%" border="0">
<TR>
<TD vAlign="top" align="left">
<table id="tblOzurluDevamsizlikToplam">
<tr>
<td><TABLE class="frmDis" id="Table3" cellSpacing="0" cellPadding="0" width="250" border="0"> <TR class="frmListBaslik" >
<TD height="20"></TD> <TD colspan = "3">Özürlü Devamsızlıklar</TD>
<TD ></TD> </TR> <TR bgcolor = "#f5f5f5" > <TD height="20"></TD>
<TD> İzinli </TD> <TD> </TD> <TD> 3 </TD>
<TD> </TD> </TR> <TR > <TD height="20"></TD>
<TD> Raporlu </TD><TD> </TD><TD> 5 </TD>
<TD> </TD> </TR>
<TR bgcolor = "#eeeeee"> <TD height="20"></TD> <TD> Özürlü Devamsızlık Toplamı </TD><TD> </TD><TD> 8 gün </TD>
<TD> </TD> </TR>If OzurluID = "tblOzurluDevamsizlikToplam" Then
Set satırlar = WebBrowser.Document.getElementById(OzurluID).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
End Ifkodu yazdım, hata vermiyor ama bilgiyi, değeri de çevirmiyor (almıyor). kod satırlarındaki hatamı düzeltmeme yardım edebilir misiniz.
