Excel、VBA與Mysql交互

轉載自 https://www.cnblogs.com/wuzhiblog/p/VBA_Excel_Mysql.html，感謝原博主

 

本文主要涉及：

1. VBA中的MySQL環境配置
2. VBA連接MySQL數據庫
3. VBA讀寫MySQL數據
4. 在Excel中連接MySQL數據庫及數據讀寫

系統環境：

• Windows 10
• Excel 2010

1. VBA連接MySQL前的環境配置

系統中必須先安裝有MySQL服務，這個就不多說了。可以選擇使用官方安裝包，或者使用PHP集成環境中的數據庫都可以。

1.1 啟用腳本支持

在使用前，需要先在VBE中啟動數據庫連接支持。按下Alt+F11打開VBE，在菜單欄選擇“工具”－“引用”，在彈出的引用窗口中，找到"Microsoft ActiveX Data Objects 6.1 Library"和"Microsoft ActiveX Data Objects Recordset 6.0 Library"，把前面的框勾選上，點擊確定即可。

1.2 安裝MySQL ODBC 連接服務

下載地址：Download Connector/ODBC

選擇操作系統及系統版本，下載對應的MSI文件安裝即可。
這里應當注意的是，在下載安裝ODBC連接器時，要選擇和你的數據庫相同位數的版本，而不是系統位數，否則安裝完后依然會提示找不到數據庫驅動。（查看mysql版本位數，mysql --version，https://www.cnblogs.com/kzwrcom/p/6014544.html）
（我試過在64bit的系統上裝的64bit的connector，裝完后連接提示找不到驅動，然后裝上32bit的connector才成功）

 

1.3 添加ODBC數據源

打開“控制面板”－“管理工具”－“ODBC 數據源”，在彈出的窗口中的“用戶DSN”選項卡右側，選擇“添加”，在新數據庫源中會出現兩個MySQL驅動，分別為“MySQL ODBC 5.3 ANSI Driver”及"MySQL ODBC 5.3 Unicode Driver"，很明顯兩者的區別在於編碼標准。我選擇的是Unicode版本。選中其中一個，點完成即可

1.1和1.2的配置順序可以隨意，但1.3必須在1.2之后，否則在ODBC數據源中添加新數據源時，是找不到MySQL選項的。

 

2. VBA連接MySQL

在按照1.1步驟配置了環境支持后，就可以在VBA中使用代碼連接MySQL了。

先定義連接對象

Dim conn as ADODB.Connection Set conn = new ADODB.Connection

連接數據庫

conn.ConnectionString = "Driver={MySQL ODBC 5.3 Unicode Driver};Server=localhost;DB=test;UID=root;PWD=root;OPTION=3;" conn.Open

連接字符串ConnectionString中的各個參數應該很明了，就不一一解釋了。最后一個OPTION，按MySQL官方的說法是用於指定ODBC Connector的工作方式的，但是我在他們官方文檔中並沒有找到有哪個選項是的值對應是3的。所以這里只有照寫了。
這里可以看到，Driver變量的值是必須要和數據源中添加的新數據源一致的，否則會提示找不到數據源。

致此，數據庫連接成功！

可以使用連接對象的State屬性和Version屬性查看數據庫狀態和版本（檢查是否連接成功）

MsgBox("數據庫狀態：" & conn.State & vbCrLf & "數據庫版本：" & conn.Version)

最后關閉數據庫連接

conn.Close
Set conn = Nothing

3. VBA讀寫MySQL數據表

3.1 讀取MySQL數據到Excel

代碼如下：

Sub db() Dim conn As ADODB.Connection Dim rs As ADODB.Recordset Set conn = New ADODB.Connection Set rs = New ADODB.Recordset conn.ConnectionString = "Driver={MySQL ODBC 5.3 Unicode Driver};Server=localhost;DB=test;UID=root;PWD=root;OPTION=3;" conn.Open rs.Open "select * from `test`", conn Range("a1:b1").Value = Array("ID", "Name") Range("A2").CopyFromRecordset rs rs.Close: Set rs = Nothing conn.Close: Set conn = Nothing End Sub

相比前面的代碼，以上代碼多了ADODB.Recordset和rs.Open，ADODB.Recordset用於執行SQL語句並接收查詢語句返回的結果集。

這里需要提一下的是，在VBA中執行SQL語句有兩種方式，其一是使用連接對象執行：conn.Execute，其第一個參數就是SQL語句；另一種則使用結果集對象執行：rs.Open，這種方式有兩個必要參數，分別是SQL語句和連接對象，如上例中的rs.Open "select * from `test`", conn。

接下來的兩行Range是用於把查詢結果復制到Excel表格中的。

3.2 寫入數據到MySQL

其實寫入數據，只需要把上例中的SQL語句改成UPDATE或者INSERT即可，就不多說了。