連線前的準備工作

1、VBA連線MySql前的準備

              Tools--->References..---->引用

              勾選Microsoft ActiveX Data Objects 2.8 Librarys 和Microsoft ActiveX Data Objects Recordset 2.8 Librarys

2 安裝Mysql ODBC連線服務

             下載連線：https://dev.mysql.com/downloads/connector/odbc

             01 安裝版本選擇電腦系統和作業系統位數

             02 我的是windows  64位： 安裝 ”Windows (x86, 64-bit), MSI Installer

3 安裝和配置詳解：

（控制面板-【系統安全】-管理工具-資料來源）

注意安裝要對，詳細步驟見連結：https://blog.csdn.net/cn130404/article/details/74370377
 

4 案例 

Option Explicit
Sub TestconnecTODB()
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 8.0 Unicode Driver};Server=localhost;DB=ninthgroup;UID=root;PWD=root;OPTION=3;"
conn.Open
rs.Open "select * from `新天網`", conn
    Range("c5:d5").Value = Array("序號", "軍團")
    Range("A9").CopyFromRecordset rs
   
    rs.Close: Set rs = Nothing
    conn.Close: Set conn = Nothing
End Sub