使用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