excel vba连接mysql数据库

Sub ConnectToMySQL()
    Dim conn As Object
    Dim rs As Object
    Dim strSql As String
    Dim serverName As String
    Dim dbName As String
    Dim userName As String
    Dim password As String
    
    ' 设置连接参数
    serverName = "localhost"  ' MySQL服务器地址
    dbName = "mydatabase"     ' 数据库名称
    userName = "username"     ' 用户名
    password = "password"     ' 密码
    
    ' 创建连接对象
    Set conn = CreateObject("ADODB.Connection")
    
    ' 连接到MySQL数据库
    conn.Open "Driver={MySQL ODBC 8.0 Unicode Driver};Server=" & serverName & ";Database=" & dbName & ";Uid=" & userName & ";Pwd=" & password & ";"
    
    ' 执行SQL查询语句
    strSql = "SELECT * FROM mytable"
    Set rs = conn.Execute(strSql)
    
    ' 处理查询结果
    Do Until rs.EOF
        ' 在Excel中处理查询结果
        Cells(rs.AbsolutePosition + 1, 1).Value = rs.Fields(1).Value
        ' ...
        
        rs.MoveNext
    Loop
    
    ' 关闭连接
    rs.Close
    conn.Close
    Set rs = Nothing
    Set conn = Nothing
End Sub