我這邊寫了一個讀取HTML 表格里面內容 回傳到VB里 現在遇到這個問題 我只能回傳第一頁的內容 怎么修改才能讓自動點擊第二頁然后繼續回傳 因為以后頁數會越來越多 如何判斷最大頁數？
如下效果：
我當前的代碼如下：
Private Sub cc()
On Error Resume Next
Dim Tables As IHTMLElementCollection
Set Tables = WebBrowser1.Document.getElementsByTagName("Table")
Dim Table1 As HTMLTable
Dim Row As HTMLTableRow, Cell As HTMLTableCell
Call lb '這里是一個重繪MS表格控制元件的代碼 包括列名之類的
n = 0
For Each Table1 In Tables
'Next
For i = 1 To Table1.rows.length - 2 ' 逐行處理
Set Row = Table1.rows(i)
j = 0
m = 0
For Each Cell In Row.cells ' 逐列處理
If m = 0 Then
MSFlexGrid1.TextMatrix(n + 1, 0) = Trim(Row.cells(j).innerText)
ElseIf m = 1 Then
MSFlexGrid1.TextMatrix(n + 1, 1) = Trim(Row.cells(j).innerText)
ElseIf m = 2 Then
MSFlexGrid1.TextMatrix(n + 1, 2) = Trim(Row.cells(j).innerText)
ElseIf m = 3 Then
If Trim(Row.cells(j).innerText) = "等待受理" Then
MSFlexGrid1.TextMatrix(n + 1, 3) = Trim(Row.cells(j).innerText)
MSFlexGrid1.Row = n + 1 '行
MSFlexGrid1.Col = 3 ' 列
MSFlexGrid1.CellForeColor = vbRed
Else
MSFlexGrid1.TextMatrix(n + 1, 3) = Trim(Row.cells(j).innerText)
MSFlexGrid1.Row = n + 1 '行
MSFlexGrid1.Col = 3 ' 列
MSFlexGrid1.CellForeColor = vbBlack
End If
End If
j = j + 1
m = m + 1
Next
n = n + 1
Next
Next
End Sub
下面是網頁提取出來的HTML代碼
<div class="main">
<div class="main-div">
<div class="right2-bt2">申辦串列</div>
<div class="right2-l">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr class="tr">
<td>序號 </td>
<td>申辦人</td>
<td>申辦時間</td>
<td>處理狀態</td>
<td>操作</td>
</tr>
<tr>
<td>
1
</td>
<td>
潘少華
</td>
<td>
2018-01-22 09:45:55
</td>
<td class="f14_990000">
不予受理
</td>
<td class="right2-ltd">
<a href="https://bbs.csdn.net/topics/MasterAction!execute.do?id=156&pageNo=1&proceedid=424&tradeCode=Z50002" class="f14b_0069a6">查看詳情</a>
<span style="color:#dcdcdc;">申辦處理</span>
</td>
</tr>
<tr>
<td>
2
</td>
<td>
鄧微
</td>
<td>
2018-01-17 04:04:39
</td>
<td class="f14_990000">
補充材料
</td>
<td class="right2-ltd">
<a href="https://bbs.csdn.net/topics/MasterAction!execute.do?id=155&pageNo=1&proceedid=424,426,428&tradeCode=Z50002" class="f14b_0069a6">查看詳情</a>
<span style="color:#dcdcdc;">申辦處理</span>
</td>
</tr>
<tr>
<td>
3
</td>
<td>
張宣
</td>
<td>
2018-01-16 01:34:32
</td>
<td class="f14_990000">
補充材料
</td>
<td class="right2-ltd">
<a href="https://bbs.csdn.net/topics/MasterAction!execute.do?id=154&pageNo=1&proceedid=424,427,428&tradeCode=Z50002" class="f14b_0069a6">查看詳情</a>
<span style="color:#dcdcdc;">申辦處理</span>
</td>
</tr>
<tr>
<td>
4
</td>
<td>
張晶
</td>
<td>
2017-12-22 02:10:24
</td>
<td class="f14_990000">
補充材料
</td>
<td class="right2-ltd">
<a href="https://bbs.csdn.net/topics/MasterAction!execute.do?id=152&pageNo=1&proceedid=424&tradeCode=Z50002" class="f14b_0069a6">查看詳情</a>
<span style="color:#dcdcdc;">申辦處理</span>
</td>
</tr>
<tr>
<td>
5
</td>
<td>
潘少華
</td>
<td>
2017-12-05 08:30:39
</td>
<td class="f14_990000">
不予受理
</td>
<td class="right2-ltd">
<a href="https://bbs.csdn.net/topics/MasterAction!execute.do?id=151&pageNo=1&proceedid=426&tradeCode=Z50002" class="f14b_0069a6">查看詳情</a>
<span style="color:#dcdcdc;">申辦處理</span>
</td>
</tr>
<tr>
<td>
6
</td>
<td>
潘少華
</td>
<td>
2017-12-04 02:44:02
</td>
<td class="f14_990000">
不予受理
</td>
<td class="right2-ltd">
<a href="https://bbs.csdn.net/topics/MasterAction!execute.do?id=150&pageNo=1&proceedid=427&tradeCode=Z50002" class="f14b_0069a6">查看詳情</a>
<span style="color:#dcdcdc;">申辦處理</span>
</td>
</tr>
<tr>
<td>
7
</td>
<td>
潘少華
</td>
<td>
2017-12-04 02:41:22
</td>
<td class="f14_990000">
不予受理
</td>
<td class="right2-ltd">
<a href="https://bbs.csdn.net/topics/MasterAction!execute.do?id=149&pageNo=1&proceedid=431&tradeCode=Z50002" class="f14b_0069a6">查看詳情</a>
<span style="color:#dcdcdc;">申辦處理</span>
</td>
</tr>
<tr>
<td>
8
</td>
<td>
潘少華
</td>
<td>
2017-12-01 04:24:59
</td>
<td class="f14_990000">
不予受理
</td>
<td class="right2-ltd">
<a href="https://bbs.csdn.net/topics/MasterAction!execute.do?id=148&pageNo=1&proceedid=431&tradeCode=Z50002" class="f14b_0069a6">查看詳情</a>
<span style="color:#dcdcdc;">申辦處理</span>
</td>
</tr>
<tr>
<td>
9
</td>
<td>
潘少華
</td>
<td>
2017-12-01 03:46:06
</td>
<td class="f14_990000">
不予受理
</td>
<td class="right2-ltd">
<a href="https://bbs.csdn.net/topics/MasterAction!execute.do?id=147&pageNo=1&proceedid=431&tradeCode=Z50002" class="f14b_0069a6">查看詳情</a>
<span style="color:#dcdcdc;">申辦處理</span>
</td>
</tr>
<tr>
<td>
10
</td>
<td>
潘少華
</td>
<td>
2017-12-01 03:30:37
</td>
<td class="f14_990000">
不予受理
</td>
<td class="right2-ltd">
<a href="https://bbs.csdn.net/topics/MasterAction!execute.do?id=146&pageNo=1&proceedid=429&tradeCode=Z50002" class="f14b_0069a6">查看詳情</a>
<span style="color:#dcdcdc;">申辦處理</span>
</td>
</tr>
<tr>
<td colspan="5">
<div class="sabrosus">
<table border="0" align="center" cellpadding="0" cellspacing="0" style="border:none; background:none">
<tr>
<td colspan="2" align="center" style="border:none; background:none">
<input type="hidden" name="pageNo" id="pageNo" value="https://bbs.csdn.net/topics/1"/>
<div class="pages">
<a href="javascript:pageSub('1')" class="a1">首頁</a>
<a href="javascript:pageSub('1');" class="coolbg">上一頁</a>
<a href="javascript:pageSub('1');" style="color:#8f0000" class="a2">第1頁</a>
<a href="javascript:pageSub('2');">第2頁</a>
<a href="javascript:pageSub('3');">第3頁</a>
<a href="javascript:pageSub('2');" class="coolbg">下一頁</a>
<a href="javascript:pageSub('3');" class="a1">尾頁</a> 共3頁
</div>
</td>
</tr>
</table>
</div></td>
</tr>
</table>
</div>
</div>
<div class="clear"></div>
</div>
uj5u.com熱心網友回復：
pageSub('3')你只給了div里面的，這個方法還沒找到呢，找到看看？
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/50026.html
標籤：網絡編程