vba将数据写入mysql

可以使用ADO连接MySQL数据库，并使用SQL语句将数据插入到MySQL表中。以下是一个示例代码：

Sub WriteToMySQL()

    Dim conn As New ADODB.Connection
    Dim cmd As New ADODB.Command
    Dim rs As New ADODB.Recordset

    '连接MySQL数据库
    conn.ConnectionString = "DRIVER={MySQL ODBC 8.0 Unicode Driver};SERVER=localhost;DATABASE=testdb;UID=root;PWD=password;"
    conn.Open

    '设置SQL语句
    cmd.ActiveConnection = conn
    cmd.CommandText = "INSERT INTO mytable (col1, col2, col3) VALUES (?, ?, ?)"
    cmd.CommandType = adCmdText

    '设置参数
    cmd.Parameters.Append cmd.CreateParameter("col1", adVarChar, adParamInput, 50, "value1")
    cmd.Parameters.Append cmd.CreateParameter("col2", adVarChar, adParamInput, 50, "value2")
    cmd.Parameters.Append cmd.CreateParameter("col3", adVarChar, adParamInput, 50, "value3")

    '执行SQL语句
    cmd.Execute

    '关闭连接
    conn.Close

End Sub

在上面的示例代码中，需要将连接字符串中的服务器名、数据库名、用户名和密码更改为您自己的信息。并将表名和列名更改为您要插入数据的表和列。然后，设置参数并执行SQL语句来将数据插入到MySQL表中。