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 =  To Range("A65536").End(xlUp).Row

  '查询事件
  strCn = "SELECT notes FROM EMPLOYEE WHERE EMPLOYEEID='" & Cells(i, ) & " '"
  ActiveSheet.Cells(i, ).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语句必须要确定正确，一旦使用该功能，更新的数据无法撤销。