vb获取html表格数据,vb中如何读取网页中Table的数据

Private Sub Command1_Click()Dim vDoc, vTag, collDim i As IntegerDim j As Integer

Set vDoc = ie.DocumentDim mstrcell As StringSet coll = vDoc.All(\"19\")

For i = 0 To coll.rows.length - 1For j = 0 To coll.rows(i).cells.length - 1

mstrcell = mstrcell & Space(4) & coll.rows(i).cells(j).innertextNext j

Debug.Print mstrcellmstrcell = \"\"Next iEnd Sub

Private Sub Form_Load()ie.Navigate \"E:\\1.htm\"End Subhtm内容

Heading 1Heading 2

Row 1, Column 1 text.Row 1, Column 2 text.Row 2, Column 1 text.Row 2, Column 2 text.