使用webbrower控件，然后在代碼中遍歷所有的html對象，取得值即可。setvdoc=webbrower.documentfori=0tovdoc.all.length-1setvtag=vdoc.all(i)'msgboxvtag.value'有的是取值'msgboxvtag.innerhtml'有的是取內容next