如何将VBA脚本循环执行1000次以读取不同单元格URL并提取数据？

核心修改思路 #

原代码仅处理单一行（A2）的数据，要实现循环1000次，只需添加循环结构，每次迭代对应工作表的不同行：

1. 循环范围设为第2行到第1001行（共1000行，对应A2到A1001的URL）
2. 每次循环读取当前行A列的URL地址
3. 抓取数据后写入当前行的B、C、D、E列
4. 优化页面加载等待逻辑，避免因页面未完全加载导致的错误
5. 循环结束后释放IE资源，避免内存占用

修改后的完整代码 #

Private Sub CommandButton1_Click()
    Dim ie As InternetExplorer
    Dim ht As HTMLDocument
    Dim i As Integer ' 循环计数器
    
    ' 初始化IE对象，避免每次循环新建
    Set ie = New InternetExplorer
    ie.Visible = True ' 若不需要看页面，可设为False提升速度
    
    ' 循环1000次：从第2行到第1001行
    For i = 2 To 1001
        ' 读取当前行A列的URL
        ie.navigate Workbooks("FINAL-1").Worksheets("sheet1").Range("A" & i).Value
        
        ' 等待页面完全加载（同时判断readyState和Busy，更可靠）
        Do While ie.readyState <> READYSTATE_COMPLETE Or ie.Busy
            DoEvents ' 让出CPU资源，避免假死
        Loop
        
        Set ht = ie.document
        
        ' 将抓取的数据写入当前行对应列
        With Workbooks("FINAL-1").Worksheets("sheet1")
            .Range("B" & i).Value = ht.getElementById("idNo").Value
            .Range("C" & i).Value = ht.getElementById("addr1").Value
            .Range("D" & i).Value = ht.getElementById("dob").Value
            .Range("E" & i).Value = ht.getElementById("applyDte").Value
        End With
        
        ' 可选：每次循环后短暂延迟，避免请求过于频繁被网站拦截
        ' Application.Wait Now + TimeValue("00:00:01")
    Next i
    
    ' 关闭IE并释放资源
    ie.Quit
    Set ie = Nothing
    Set ht = Nothing
    
    MsgBox "批量处理完成！"
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub

关键细节说明 #

• 循环范围：For i = 2 To 1001 对应1000次迭代，若你的URL起始行或数量不同，可自行调整数值
• 单元格引用：用"A" & i、"B" & i来动态指定当前行的单元格，避免硬编码行号
• 页面等待优化：加入ie.Busy判断和DoEvents，解决原代码可能出现的页面未加载完成就执行后续代码的问题
• 资源释放：循环结束后关闭IE并设置对象为Nothing，防止IE进程残留
• 可选延迟：如果目标网站有反爬机制，可取消注释Application.Wait行，每次请求后暂停1秒

内容的提问来源于stack exchange，提问作者piece work