vb webbrowser控件怎么取网页中表格（之间）的值？

2015-04-01 10:45:43 1.9k 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

ppt插入 html,PPT中嵌入网页的方法：使用webbrowser控件 PPT中嵌入网页的方法步骤：1.找出“控件工具栏”。2、在“控件工具栏”中，选择’更多控件‘，然后找到并选择“microsoftweb浏览器”控件。3、在ppt页面上画一个web控件。这个控件用来显示要插入到ppt中的页面。4、在同一个ppt页面上插入一个CommandButton按钮。到属性页面中将按钮的'Caption'改为你期望看到的名字,比如山东师范大学.5、双击刚才CommandButt... 阅读详情

vb webbrowser控件怎么取网页中表格的值（<div> </div>之间的内容）？

详细
http://power.baidu.com/question/1959895778651331020.html?entry=qb_browse_default

图1

图二

网页代码如下

<td headers="yui-dt7-th-Code " class="yui-dt7-col-Code yui-dt-col-Code yui-dt-sortable yui-dt-resizeable" id="yui-gen51">..</td>

<div class="yui-dt-liner" id="yui-gen50"> C0000631419 </div> </td>

<td headers="yui-dt7-th-CustomerName " class="yui-dt7-col-CustomerName yui-dt-col-CustomerName yui-dt-sortable yui-dt-resizeable" id= "yui-gen49">

<div class="yui-dt-liner" id="yui-gen48"> 深圳XXXX公司 </div> </td>

即如图片一其中表格的内容值如何获取，如 “ C0000631419” 或者 “深圳xxx公司”，这些内容是不固定的，如何取这里面他们的值（字符串）赋值于text1.text

请不要用取网页源代码，再从中截取字符患的方法，这个试过经常易出错
（如WebBrowser1.Document.body.InnerText这种）

能不能像以下的这种方法？？？

Set IDoc = WebBrowser2.Document
' Dim Acollection As IHTMLElementCollection

Set Acollection = IDoc.All.tags("input")
Dim s3 As String
Dim s33 As String
For I = 0 To Acollection.length - 1
s3 = Acollection.Item(I).Type
s33 = Acollection.Item(I).Name
Debug.Print s33
If s33 = "Decisionmaker" Then Text1.Text = Acollection.Item(I).Value

...全文