一、状况描述
当我们需要后台更新大量数据的时候，可以使用该功能。
二、解決方案
(1)新建一个Excel文件，并另存为启用宏的Excel工作簿，扩展名为.xlsm。
(2)在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：如果宏被禁用，按以下操作：
(4)工具-》引用，添加以下引用
(5)保存，完成，点击按钮更新
三、使用注意与时机
宏里面的SQL语句必须要确定正确，一旦使用该功能，更新的数据无法撤销。
如果您看了本篇博客,觉得对您有所收获，请点击右下角的 [推荐]
如果您想转载本博客，请注明出处
如果您对本文有意见或者建议，欢迎留言
感谢您的阅读，请关注我的后续博客
