Excel VBA：写入mysql数据库

我想在Excel中写一个将写入到mysql数据库的macros。 有人能让我开始呢？

Answer 1

您可以使用连接string和ADO连接到MySQL：

''http://support.microsoft.com/kb/246335 Set 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 

您也可以使用DSN连接到使用Jet驱动程序的Excel：

 Dim cn As ADODB.Connection ''Not the best way to get the name, just convenient for notes strFile = Workbooks(1).FullName strCon = "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 ''DSNName strSQL = "INSERT INTO [ODBC;DSN=DSNName;].NameOfMySQLTable " _ & "Select AnyField As NameOfMySQLField FROM [Sheet1$];" cn.Execute strSQL 

Answer 2

写入mysql数据库与写入任何其他数据库没有什么不同。

您将创build一个ADODB.Connection对象，使用适当的连接string打开它并使用.Execute方法（或ADODB.Command）来执行sql。

有关更多信息，请参见http://msdn.microsoft.com/en-us/library/ms807027.aspx 。

你必须安装一个mysql访问驱动程序（ODBC或OLEDB），并引用vba项目中的Microsoft ActiveX Data Objects 2.8。