详细信息请参考《MySQL 6.0 Reference Manual》的以下章节
28.1.5.7. Connector/ODBC Programming
28.1.5.7.1. Using Connector/ODBC with Visual Basic Using ADO, DAO and RDO

首先当然是安装MySQL ODBC Connector，然后是在VBA中添加引用
Microsoft ActiveX Data Objects 2.8 Library
Microsoft ActiveX Data Objects Recordset 2.8 Library


Sub Export2Mysql()
'将Excel当中的数据转入数据库中
    Dim conn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim fld As ADODB.Field
    Dim sql As String
    Set conn = New ADODB.Connection
    '这里要换成你的服务器 库名 用户名 密码
    conn.ConnectionString = "DRIVER={MySQL ODBC 5.1 Driver};" & "SERVER=server_ip;" & " DATABASE=dbname;" & "UID=user_idWD=password; OPTION=3"
    conn.Open
    '准备创建表
    conn.Execute "drop table if exists test"
    '注意这里的各列类型设定
    conn.Execute "create table test(name text,pass text)"
    '按行导入,这里假设第一列存的是name，第二列存的是pass
    For i = 1 To 20
        conn.Execute "insert into test(name,pass) values('" & Cells(i, 1).Text & "','" & Cells(i, 2) & "')"
    Next i
    Set rs = New ADODB.Recordset
    rs.CursorLocation = adUseServer
    '使用下面的代码验证
    rs.Open "select * from test", conn
    rs.MoveFirst
    Do Until rs.EOF
        For Each fld In rs.Fields
            Debug.Print fld.Value,
        Next
        rs.MoveNext
        Debug.Print
    Loop
    rs.Close
    conn.Close
End Sub

楼主的方法不错，试试看。

看似不错