******************************************************************************************************************
<tr><td width='150px'><strong>报告期</strong></td><td>2009-06-30</td><td>2009-03-31</td><td>2008-12-31</td><td>2008-09-30</td></tr><tr><td colspan='5'><strong>资产</strong></td></tr><tr><td colspan='5'><strong>流动资产</strong></td></tr><tr><td width='150px'><a target='_blank' href='/corp/view/vFD_FinanceSummaryHistory.php?stockid=600827&type=hbzj'>货币资金</a></td><td>7,107,315,888</td><td>7,461,738,198</td><td>7,102,736,371</td><td>6,074,186,310</td></tr><tr><td width='150px'><a target='_blank' href='/corp/view/vFD_FinanceSummaryHistory.php?stockid=600827&type=dqtz'>短期投资</a></td><td>0</td><td>0</td><td>0</td><td>0</td></tr><tr><td width='150px'><a target='_blank' href='/corp/view/vFD_FinanceSummaryHistory.php?stockid=600827&type=dqtzdjzb'>短期投资跌价准备</a></td><td>0</td><td>0</td><td>0</td><td>0</td></tr><tr><td width='150px'><a target='_blank' href='/corp/view/vFD_FinanceSummaryHistory.php?stockid=600827&type=dqtzje'>短期投资净额</a></td><td>0</td><td>98,145</td><td>27,804,145</td><td>98,145</td></tr><tr><td width='150px'><a target='_blank' href='/corp/view/vFD_FinanceSummaryHistory.php?stockid=600827&type=yspj'>应收票据</a></td><td>0</td><td>72,488</td><td>50,000</td><td>0</td></tr><tr><td width='150px'><a target='_blank' href='/corp/view/vFD_FinanceSummaryHistory.php?stockid=600827&type=ysgl'>
************************************************************************************************
    我想从上面的文件中提取7,461,738,198和98,145这两个数字，这两个数字都是跟在“货币资金”和“短期投资净额”后的第一个数字，然后分别导入text1.text和text2.text中。
    请高手帮忙解答下哦

[ 本帖最后由 tjhyzg 于 2009-9-5 16:15 编辑 ]

刚刚重新拾起VB，不会，
帮你顶帖～我也想知道。

Option Explicit
Const 货币资金0630 = 8
Const 短期投资净额0331 = 24

Private Sub Command1_Click()
Dim vdoc As Object, vTag As Object
Dim i As Long
Set vdoc = WebBrowser1.Document
For i = 0 To vdoc.All.Length - 1 '检测所有标签
    If LCase(vdoc.All(i).tagname) = "table" Then     '找到htmltable标签
        Set vTag = vdoc.All(i)
      
        If vTag.cells(0).innertext = "报告期" Then      '因为这个表格没有名字,所以就判断第一格的数据
            MsgBox "货币资金2009-06-30=" & vTag.cells(货币资金0630).innertext
            MsgBox "短期投资净额2009-03-31=" & vTag.cells(短期投资净额0331).innertext
        End If
    End If
Next i
End Sub
Private Sub Form_Load() '
    WebBrowser1.Navigate App.Path & "\2.htm"
End Sub

预定义指定单元格的编号,直接读单元格的数据就是了.
如果是在网页里,如果需要读所有的单元格,需要事先知道表格的组成.
如,从第几格到几格是什么.
或者说,读到什么标题,是什么.

用XPath或者使用软件工具MetaSeeker

介绍篇文章: http://www.