誰もが次のボタンがないときにマクロ（Excel VBA）を停止する方法を知っています

Question

次のボタンがないときにマクロ（Excel VBA）を停止させる方法を知っていますボタンの値は存在しません）。

助けが必要ですか？ 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

この試し：BTN場合allLinks でBTNそれぞれについて [コード] 'FindNextButton（） セットallLinks = ie.getElementsByTagName（ "A"） これを試し

' 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