Na spodnji povezavi bi rad izluščil podatek o zadnji overitvi števca (znotraj elementa "td"). Ko v DOM preštevam vse tag-e za "td" mi jih najde 115. Zanima me zakaj mi jih funkcija prešteje precej manj in podatka o zadnji overitvi (za spodnji primer 30.9.15) sploh ne najde? Hvala za odg. in lep pozdrav.
Koda: Izberi vse
Sub test()
Dim IE As Object
Dim doc As Object
Dim colTR As Object
Dim colTD As Object
Dim tr As Object
Dim td As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate "http://www.mirs-info.si/Verification/index.php?Action=CheckInstrument"
Do Until IE.ReadyState = 4: DoEvents: Loop
Set doc = IE.Document
SerialNumber = 20967644
Set the_input_elements = doc.getElementsByTagName("input")
For Each Input_element In the_input_elements
If Input_element.getAttribute("name") = "FilterSerialNumber" Then
Input_element.Value = SerialNumber
Exit For
End If
Next Input_element
Set the_input_elements = doc.getElementsByTagName("input")
For Each Input_element In the_input_elements
If Input_element.getAttribute("value") = "Išči" Then
Input_element.Click
Exit For
End If
Next Input_element
Set colTD = doc.getElementsByTagName("TD")
For Each td In colTD
Count = Count + 1
'If Count = 70 Then
'output = td.innerText
'List4.Range("D3").Value = output
'Exit For
'End If
MsgBox td.innerText
Next td
IE.Quit
End Sub