EXCEL数据自动web网页查询----高效工作，做个监工-Toy模板网

这篇具有很好参考价值的文章主要介绍了EXCEL数据自动web网页查询----高效工作，做个监工。希望对大家有所帮助。如果存在错误或未考虑完全的地方，请大家不吝赐教，您也可以点击"举报违法"按钮提交疑问。

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

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

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

缺点效率没那么快

演示

宏环境

http://t.csdn.cn/DRAC2

宏按钮

EXCEL数据自动web网页查询----高效工作，做个监工,自动化运维,excel,vba,web,办公

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

需要修改的 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文章来源地址https://www.toymoban.com/news/detail-615332.html

到了这里，关于EXCEL数据自动web网页查询----高效工作，做个监工的文章就介绍完了。如果您还想了解更多内容，请在右上角搜索TOY模板网以前的文章或继续浏览下面的相关文章，希望大家以后多多支持TOY模板网！