遍历Excel单元格

时间:2019-05-29 20:10:01

标签: excel vba web-scraping

我有一个Excel电子表格-第一列包含ID号,第二列包含应将特定ID号分配给的名称。

我的宏的目的是从A2复制ID号,将其输入到Web应用程序中,从Web应用程序中刮除与ID号相关联的名称,然后将该名称输入到第三栏中。

我已经使用A2中的第一个值成功完成了此操作。

我的问题是我无法终生搞清楚如何使用循环,以便宏在A列中的每个单元格之间循环,直到到达空白单元格为止。我是VBA的新手,请原谅我的无知。 下面的代码是我必须循环的宏的一部分。

  IE.document.getElementById("caseId").Value = ThisWorkbook.Sheets("StarsID").Range("A2").Value

'Tells macro to click on 'Search Cases' Button
       IE.document.getElementById("_eventId_search").Click

'Tells macro to wait for browser to load completely
       Do While IE.Busy = True Or IE.readyState <> 4: DoEvents: Loop

'Tells macro that first search result will be entered into row 2
       y = 2
        currentQueue = IE.document.getElementById("results").Children(1).Children(0).Children(3).Children(0).innerText
        Sheets("StarsID").Cells(y, 3).Value = currentQueue
         ActiveCell.Offset(1, 0).Select

1 个答案:

答案 0 :(得分:0)

尝试

/* HERE >>*/

可能会增加一些等待时间,具体取决于网站的响应。