EXCEL数据自动web网页查询----高效工作，做个监工_excel实现自动复制到百度查询 csdn-CSDN博客

本文链接：https://blog.csdn.net/qq_56095985/article/details/131981315

文章介绍了如何利用Excel宏模块和24KB的鼠标连点器软件实现Excel数据自动填充到网页，并将网页反馈数据安全、稳定地粘贴回Excel表格。这种方法无需编程知识，避免了web验证和爬虫的风险，但效率相对较慢。用户需设置起始单元格，宏会按顺序处理数据，当达到最后一行时会返回第一行，形成循环。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

目的自动将excel将数据填充到web网页，将反馈的数据粘贴到excel表

准备 24KB的鼠标连点器软件（文末附链接）、Excel 宏模块

优势不需要编程、web验证、爬虫等风险提示。轻量、稳定、安全。

缺点效率没那么快

演示

宏环境

http://t.csdn.cn/DRAC2

宏按钮

宏代码-----粘贴到宏代码编写

需要修改的 1、起始单元格

2、如果到达最后一行,则回到第一行

Dim rng As Range

Sub 切换并复制()
    Dim data As String
    
    If rng Is Nothing Then ' 第一次运行宏时，记录起始单元格
        Set rng = Range("A1")
    End If
    
    ' 如果选定单元格有值，则复制到剪贴板
    If Not IsEmpty(rng) Then
        rng.Copy
        data = rng.Value
        Application.CutCopyMode = False
        ' 将数据复制到剪贴板
        With New MSForms.DataObject
            .SetText data
            .PutInClipboard
        End With
    End If
    
    ' 向下移动到下一个单元格
    Set rng = rng.Offset(1, 0)
    
    ' 如果已经到达最后一行，则回到第一行重新开始
    If rng.Row > ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row Then
        Set rng = Range("A1")
    End If
    
    ' 将选定单元格设置为下一个单元格
    rng.Select
End Sub

插入新模块后，再复制粘贴如下代码

Dim rng As Range

Sub 切换并粘贴()
    Dim data As String
    Dim dataObj As New MSForms.DataObject
    If rng Is Nothing Then ' 第一次运行宏时，记录起始单元格
        Set rng = Range("B1")
    End If
    
     dataObj.GetFromClipboard ' 从剪贴板获取数据
    If dataObj.GetFormat(1) Then ' 检查剪贴板是否包含文本数据
        rng.Value = dataObj.GetText(1) ' 将文本数据粘贴到当前单元格
    End If

    
    ' 向下移动到下一个单元格
    Set rng = rng.Offset(1, 0)
    
    ' 如果已经到达最后一行，则回到第一行重新开始
    If rng.Row > ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row Then
        Set rng = Range("B1")
    End If
    
    ' 将选定单元格设置为下一个单元格
    rng.Select
End Sub

最后鼠标连点器，录制操作行为、然后播放

https://wwa.lanzoub.com/i6wFj13ps6ba
密码:epp3