主题：每100行执行一次。。。

Dim tb As Table = Tables("表A")
Dim prs As Integer = 20 '每页20行
For p As Integer = 0 To math.Ceiling(tb.Rows.Count / prs) - 1
    For r As Integer = p * prs To math.min(tb.Rows.Count - 1,( p + 1) * prs - 1)
        output.show(r)
    Next
    output.show("--------------")
Next

msgbox弹出返回的内容，看报什么错？

贴出你本来写的代码。你每次都要重新 New HttpClient 的。

报什么错？

改代码，照着下面的代码修改，如

 

Dim tb As Table = Tables("表A")
Dim prs As Integer = 5 '每页5行
For p As Integer = 0 To math.Ceiling(tb.Rows.Count / prs) - 1
    For r As Integer = p * prs To math.min(tb.Rows.Count - 1,( p + 1) * prs - 1)
        output.show(tb.rows(r)("第一列"))
    Next
    output.show("--------------")
Next

 

 

第一个循环是页数；第二个循环是每页循环多少行（主要是处理最后一页的情况）