任何人都知道如何获得macros（Excel VBA），当没有下一个button时停止

任何人都知道如何获得一个macros（Excel VBA），当没有下一个button存在（所以它应该刮x页，直到下一个button值不再存在）停止。

任何帮助？ 循环直到e.Value <>“下一结果”

Sub Test() Dim ie As Object Dim i As Long Dim strText As String Dim doc As Object Dim hTable As Object Dim hBody As Object Dim hTR As Object Dim hTD As Object Dim tb As Object Dim bb As Object Dim tr As Object Dim td As Object Dim y As Long, z As Long, wb As Excel.Workbook, ws As Excel.Worksheet Set wb = Excel.ActiveWorkbook Set ws = wb.ActiveSheet Set ie = CreateObject("InternetExplorer.Application") ie.Visible = True y = 1 'Column A in Excel z = 1 'Row 1 in Excel variable = 0 Here: ie.navigate "http://games.espn.com/ffl/tools/projections?&seasonTotals=true&seasonId=2016&slotCategoryId=0&startIndex=" & variable Do While ie.Busy: DoEvents: Loop Do While ie.ReadyState <> 4: DoEvents: Loop Set doc = ie.document Set hTable = doc.getElementsByClassName("playerTableTable tableBody") For Each tb In hTable Set hBody = tb.getElementsByTagName("tbody") For Each bb In hBody Set hTR = bb.getElementsByTagName("tr") For Each tr In hTR Set hTD = tr.getElementsByTagName("td") y = 1 ' Resets back to column A For Each td In hTD ws.Cells(z, y).Value = td.innerText y = y + 1 Next td DoEvents z = z + 1 Next tr Exit For Next bb Exit For Next tb variable = variable + 40 GoTo Here: End Sub 

我读了一些地方，增加（下）可能会帮助，虽然它还没有为我工作。

 buttonFound = True While buttonFound Set allLinks = ie.getElementsByTagName("a") buttonFound = False For Each btn In allLinks If btn.innerText = "Next" buttonFound = True Set btnNext = btn Exit For End If Next btn btn.Click End Sub 

Answer 1

尝试这个：

 ' FindNextButton() Set allLinks = ie.getElementsByTagName("a") For Each btn In allLinks If btn.innerText = "Next" btn.Click Goto Here Exit For End If Next btn