Excel中添加并使用宏实现批量更新数据

时间:2024-03-29 13:46:44

一、状况描述
    当我们需要后台更新大量数据的时候,可以使用该功能。
二、解決方案
    (1)新建一个Excel文件,并另存为启用宏的Excel工作簿,扩展名为.xlsm。
    (2)在Excel中添加按钮。点击开发工具选项卡-》插入控件-》选择表单控件中的“按钮”,添加按钮。如果没有开发工具选项卡,则按下图步骤添加。

    Excel中添加并使用宏实现批量更新数据
    (3)给按钮指定宏,并新建或录制宏(可以自己编写语句实现想要实现的功能)。

    Excel中添加并使用宏实现批量更新数据

 1 Sub 按钮1_Click()
 2 
 3 Dim cn As New ADODB.Connection '定义数据链接对象 ,保存连接数据库信息;请先添加ADO引用
 4 Dim rs As New ADODB.Recordset '定义记录集对象,保存数据表
 5 Dim strCn As String, strSQL As String, bb As String '字符串变量
 6 
 7 strCn = "Provider=sqloledb;Server=192.168.1.222;Database=dbName;Uid=sa;Pwd=sa"
 8 
 9 cn.Open strCn   '与数据库建立连接,如果成功,返回连接对象cn
10 
11 
12 For i = 2 To Range("A65536").End(xlUp).Row
13 
14  '查询事件
15  strCn = "SELECT notes FROM EMPLOYEE WHERE EMPLOYEEID='" & Cells(i, 1) & " '"
16  ActiveSheet.Cells(i, 2).CopyFromRecordset cn.Execute(strCn)
17  
18  'insert、update、delete事件
19  'strCn = "update employee set notes='" & Cells(i, 2) & "' where employeeid='" & Cells(i, 1) & " '"
20  'cn.Execute (strCn)
21 
22 Next i
23 MsgBox ("success")
24 End Sub

    PS:如果宏被禁用,按以下操作:

    Excel中添加并使用宏实现批量更新数据

    Excel中添加并使用宏实现批量更新数据

    Excel中添加并使用宏实现批量更新数据

    (4)工具-》引用,添加以下引用

    Excel中添加并使用宏实现批量更新数据
    (5)保存,完成,点击按钮更新
三、使用注意与时机
    宏里面的SQL语句必须要确定正确,一旦使用该功能,更新的数据无法撤销。

 

 

如果您看了本篇博客,觉得对您有所收获,请点击右下角的 [推荐]

如果您想转载本博客,请注明出处

如果您对本文有意见或者建议,欢迎留言

感谢您的阅读,请关注我的后续博客