x=0
For i = 1 To 6
h = WebBrowser1.Document.All.tags("table").Item(1).rows.Item(i).cells.Item(1).innerText
If temp <> h Then
P = P + 1
'---------------删除txt文本文件中有“非数字字符”的行
If IsNumeric(h) Then
Print #1, h
else
x=x+1
endif
Print #1, h
temp = h
End If
Next
msgbox x
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024