Excel中添加并使用宏實作批量更新資料

一、狀況描述

    當我們需要背景更新大量資料的時候，可以使用該功能。

二、解決方案

    (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語句必須要确定正确，一旦使用該功能，更新的資料無法撤銷。

如果您看了本篇部落格,覺得對您有所收獲，請點選右下角的

[推薦]

如果您想轉載本部落格，

請注明出處

如果您對本文有意見或者建議，歡迎留言

感謝您的閱讀，請關注我的後續部落格