Excel VBA：写入mysql数据库

您可以使用连接字符串和ADO连接到MySQL：

''http://support.microsoft.com/kb/246335Set cn = CreateObject("ADODB.Connection")Set rs = CreateObject("ADODB.Recordset")strCon = "Driver={MySQL ODBC 3.51 Driver};Server=localhost;Database=MyDB;" _& "User=root;Password=pw;Option=3;"cn.Open strCon

您还可以使用Jet驱动程序将DSN与Excel连接使用：

Dim cn As ADODB.Connection''Not the best way to get the name, just convenient for notesstrFile = Workbooks(1).FullNamestrCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strFile _    & ";Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"";"Set cn = CreateObject("ADODB.Connection")''For this to work, you must create a DSN and use the name in place of ''DSNNamestrSQL = "INSERT INTO [ODBC;DSN=DSNName;].NameOfMySQLTable " _& "Select AnyField As NameOfMySQLField FROM [Sheet1$];"cn.Execute strSQL