【VBA】MySQL接続

※事前にしておくこと
MySQLのODBCドライバのダウンロードとインストール
VBAの参照設定でMicrosoft ActiveX Data Objects 2.x Library の参照

ソース例

Dim con As New ADODB.Connection

con.ConnectionString = "Driver={MySQL ODBC 5.3 Unicode Driver};" & _
                       " Server=localhost;" & _
                       " Port=3306;" & _
                       " Stmt=SET NAMES SJIS;" & _
                       " Database=root;" & _
                       " Uid=root;" & _
                       " Pwd=root;"

con.Open

'SQLでデータ取得
Dim sql As String
sql = "SELECT account_id, mail_address FROM t_account"
     
'レコードセット取得
Dim rst As ADODB.Recordset
Set rst = con.Execute(sql)

'Excelシート上にレコードセットを展開
Sheets.Add , ActiveSheet
Range("A1").Value = "account_id"
Range("B1").Value = "mail_address"
Range("A2").CopyFromRecordset rst, 65535    '（貼り付け最大行数）

'後処理
Set rst = Nothing
con.Close
Set con = Nothing