試圖從Visual Basic中循環搜索

Question

我想用visual basic在excel中執行幾行數據搜索。

基本上，搜索每個產品的網站...並不重要，如果它打開多個窗口或選項卡或任何...沒有什麼需要與網頁做。這是我當前的嘗試：

Private Sub CommandButton1_Click() 

    Dim index As Integer 
    index = 1 
    Dim searchme As String 


    While Worksheets("Sheet1").Cells(index, 1).Value <> Null   
     searchme = worsheets("Sheet1").Cells(index, 1).Value   
     searchmelink = "https://www.grainger.com/search?" & _ 
        "searchBar=true&searchQuery=" & searchme 

     ThisWorkbook.FollowHyperlink Address:=searchmelink, NewWindow:=True 

     index = index + 1   
    End While 

End Sub 

我得到一個錯誤的End While出於某種原因。

"Compile error:

Expected: If or Select or Sub or Function or Property or Type or With or Enum or end of statement"

請幫助我，可能很簡單，但我是新來的。

Answer 1

而實現這樣的：

While {test} 
    {actions} 
Wend 

或更典型：

Do While {test} 
    {actions} 
Loop