Excel VBA 连接 MySQL 数据库：读取和写入数据教程

要使用 VBA 读取和写入 MySQL 数据库，需要安装 MySQL ODBC 驱动程序并在 Excel 中创建 ODBC 连接。以下是一些基本步骤：

安装 MySQL ODBC 驱动程序：下载并安装适合您的操作系统的 MySQL ODBC 驱动程序。
创建 ODBC 连接：在 Windows 控制面板中打开 ODBC 数据源管理器，创建一个新的 ODBC 数据源并配置连接参数。
在 Excel 中使用 VBA：在 Excel 中打开 Visual Basic 编辑器，使用 ADO 连接到 MySQL 数据库。以下是一个示例代码：

Sub ConnectToMySQL()

    Dim cn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim sql As String
    
    Set cn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    
    cn.ConnectionString = "DRIVER={MySQL ODBC 5.3 ANSI Driver};SERVER=localhost;DATABASE=mydatabase;UID=myuser;PWD=mypassword;"
    cn.Open
    
    sql = "SELECT * FROM mytable"
    rs.Open sql, cn
    
    ' 读取数据
    Do While Not rs.EOF
        Debug.Print rs('field1').Value
        rs.MoveNext
    Loop
    
    ' 写入数据
    sql = "INSERT INTO mytable (field1, field2) VALUES ('value1', 'value2')"
    cn.Execute sql
    
    rs.Close
    cn.Close
    
End Sub

在这个示例中，我们使用 ADO 连接到 MySQL 数据库，并执行一个 SELECT 查询来读取数据，然后执行一个 INSERT 语句来写入数据。您需要将连接字符串中的服务器名称、数据库名称、用户名和密码替换为您自己的值。