1、GetElementsByTagName返回的是一个数组，需要判断2个东西，这个数组是否是空对象，这个数组的个数是否大于0。所有使用到这个函数的地方都需要判断
Dim tdelems As object = elem.GetElementsByTagName("td")
if tdelems isnot nothing andalso tdelems.length > 0 ..........
2、Tables("表A").Current(Cols(i)) = tdelems(i).Innertext
网站的td个数和Cols数组的个数并不是一一对应的，不能使用i来进行索引，建议还是老老实实使用笨办法赋值
If dr Is Nothing Then
dim r as row = Tables("表A").AddNew
r("指令编号") = tdelems(0).Innertext
r("修正案号") = tdelems(1).Innertext
……
加好友 
发短信
Post By：2019/4/2 23:11:00 [显示全部帖子]
