幾次更新失敗，我已經放棄在這里更新了，有需要可以到博客園看：

################################################################

本文主要涉及：

VBA中的MySQL環境配置

VBA連接MySQL數據庫

VBA讀寫MySQL數據

在Excel中連接MySQL數據庫及數據讀寫

系統環境：

Windows 10

Excel 2013

XAMPP。其中集成的數據庫是MariaDB 10.1.13(如果不懂MariaDB為何物，可把它當成是MySQL。事實上它的使用和MySQL也幾乎完全一致)

————————————————————————————————————————

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

系統中必須先安裝有MySQL服務，這個就不多說了?？梢赃x擇使用官方安裝包，或者使用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 連接服務

選擇操作系統及系統版本，下載對應的MSI文件安裝即可

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

在這里可以看到，Driver變量的值是必須要和數據源中添加的新數據源一致的，否則會提示找不到數據源。

致此，數據庫連接成功！

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

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

最后關閉數據庫連接

conn.Close

Set conn = Nothing

3. VBA讀寫MySQL數據表

3.1 讀取MySQL數據到Excel

代碼如下：

總結

以上是生活随笔為你收集整理的vba与MySQL交互_Excel、VBA与MySQL交互的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。