如何在VBA中循环至Excel最后非空行以填充内网表单

核心修改思路 #

1. 定位Feuil1工作表的最后非空行（以A列为基准，若你的主键列不是A，自行修改列标）
2. 用For循环遍历从第2行（假设第1行是表头）到最后非空行的所有数据行
3. 将原代码中固定单元格引用（如Range("A2")）替换为动态行号引用（如Cells(i, "A")，i为当前循环行号）

完整VBA代码示例 #

Sub AutoFillWebForm()
    Dim ie As Object
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 初始化IE对象
    Set ie = CreateObject("InternetExplorer.Application")
    ie.Visible = True ' 设为False可后台运行
    
    ' 引用Feuil1工作表
    Set ws = ThisWorkbook.Sheets("Feuil1")
    
    ' 获取A列最后非空行号（若数据起始列不是A，修改引号内的列标）
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 遍历第2行到最后一行（第1行是表头的情况）
    For i = 2 To lastRow
        ' 打开内网站点（替换为你的目标网址）
        ie.Navigate "http://你的内网站点地址"
        
        ' 等待页面加载完成
        Do While ie.Busy Or ie.ReadyState <> 4
            DoEvents
        Loop
        
        ' --------------------------
        ' 以下是表单填充核心代码，根据你的实际表单元素修改
        ' --------------------------
        ' 示例：填充用户名（假设表单元素ID为"username"）
        ie.Document.getElementById("username").Value = ws.Cells(i, "A").Value
        
        ' 示例：填充手机号（假设表单元素ID为"phone"）
        ie.Document.getElementById("phone").Value = ws.Cells(i, "B").Value
        
        ' 示例：填充邮箱（假设表单元素ID为"email"）
        ie.Document.getElementById("email").Value = ws.Cells(i, "C").Value
        
        ' 示例：提交表单（假设提交按钮ID为"submitBtn"）
        ' ie.Document.getElementById("submitBtn").Click
        
        ' 提交后等待页面跳转/刷新（按需调整等待时间）
        ' Application.Wait Now + TimeValue("00:00:03")
    Next i
    
    ' 关闭IE并释放对象
    ie.Quit
    Set ie = Nothing
    Set ws = Nothing
    
    MsgBox "所有数据已完成填充！", vbInformation
End Sub

关键注意事项 #

• 替换代码中的内网站点地址为实际目标网址
• 根据表单实际元素的ID/Name/XPath等，修改表单填充部分的代码（若元素没有ID，可改用getElementsByName或getElementsByTagName定位）
• 若提交后需要返回表单页面重新填充，可在循环内添加页面跳转逻辑，或每次循环重新打开表单页面
• 若页面加载较慢，可适当延长等待时间，或添加更精准的元素等待判断

内容的提问来源于stack exchange，提问作者MAHDI HSSAINI