Excel 是一個功能強大的電子表格程序，通過連接 MySQL 數據庫，可以輕松地把數據庫中的數據導入并進行分析和處理。在本文中，我們將介紹如何連接 MySQL 和 Excel，并查詢結果。

Sub MySQLConn()
' 定義變量
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
' 建立數據庫連接
Set conn = New ADODB.Connection
conn.ConnectionString = "DRIVER={MySQL ODBC 5.1 Driver};SERVER=localhost;UID=username;PWD=password;DATABASE=databasename"
conn.Open
' 執行 SQL 語句
Set rs = New ADODB.Recordset
rs.Open "SELECT column1, column2, column3 FROM tablename", conn
' 把結果導入 Excel 中
ActiveSheet.Range("A1:C1").Value = Array("Column1", "Column2", "Column3")
ActiveSheet.Range("A2").CopyFromRecordset rs
' 關閉連接
rs.Close
conn.Close
End Sub

在上面的代碼中，我們首先定義了兩個變量：conn 和 rs。其中，conn 變量是 ADODB.Connection 對象，用于建立數據庫連接；rs 變量是 ADODB.Recordset 對象，用于存儲查詢結果。

在建立數據庫連接時，我們需要指定 MySQL 數據庫的驅動程序、服務器地址、用戶名、密碼和數據庫名稱。這里我們選擇了 MySQL ODBC 5.1 驅動程序，如果您使用的是其他版本的驅動程序，應相應地進行修改。

在執行 SQL 語句時，我們使用了 rs.Open 方法，并指定了要查詢的列和表名。當查詢結果返回后，我們使用 CopyFromRecordset 方法將結果導入到 Excel 中。

最后，我們需要記得在查詢結束后關閉連接，以釋放資源。