使用webbrower控件，然后在代码中遍历所有的html对象，取得值即可。set vdoc=webbrower.documentfor i=0 to vdoc.all.length-1 set vtag=vdoc.all(i) 'msgbox vtag.value '有的是取值 'msgbox vtag.innerhtml '有的是取内容next