首先上面的代码非常好了,我要说说如果找不到的话可以用循环来找找For i = 0 To 100ClsPrint iWebBrowser1.Document.All.tags("input")(i).ClickNext查看之后填选入I