Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant) Dim i As Integer, j As Integer, S As String, Tz As String, Rs As String Dim Vdoc On Error Resume Next For i = 0 To WebBrowser1.Document.All.length - 1
Set Vdoc = WebBrowser1.Document.All(i)
If UCase(Vdoc.Type) = "TD" T...
