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

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

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

 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中添加并使用宏实现批量更新数据

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

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

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

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

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

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

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

相关推荐