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

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

   
    (3)给按钮指定宏，并新建或录制宏(可以自己编写语句实现想要实现的功能)。

   

Sub 按钮1_Click()

Dim cn As New ADODB.Connection '定义数据链接对象 ，保存连接数据库信息；请先添加ADO引用
Dim rs As New ADODB.Recordset '定义记录集对象，保存数据表
Dim strCn As String, strSQL As String, bb As String '字符串变量

strCn = "Provider=sqloledb;Server=192.168.1.222;Database=dbName;Uid=sa;Pwd=sa"

cn.Open strCn   '与数据库建立连接，如果成功，返回连接对象cn


For i = 2 To Range("A65536").End(xlUp).Row

 '查询事件
 strCn = "SELECT notes FROM EMPLOYEE WHERE EMPLOYEEID='" & Cells(i, 1) & " '"
 ActiveSheet.Cells(i, 2).CopyFromRecordset cn.Execute(strCn)
 
 'insert、update、delete事件
 'strCn = "update employee set notes='" & Cells(i, 2) & "' where employeeid='" & Cells(i, 1) & " '"
 'cn.Execute (strCn)

Next i
MsgBox ("success")
End Sub

    PS：如果宏被禁用，按以下操作：

   

   

   

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

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