Excel是一款强大的办公软件，经常被用作数据分析和管理。而MySQL则是一种流行的关系型数据库管理系统。如果想将Excel数据导入MySQL，传统的做法是通过复制粘贴或手动输入，但这种方法存在一定的风险和错误率。本文将介绍一种简单的方式，即通过使用VBA代码将Excel数据一键导入MySQL。
Sub ImportMySQLData()'定义变量Dim conn As ObjectDim rs As ObjectDim strSQL As StringDim sSERVER As StringDim sDB As StringDim sUSER As StringDim sPASSWORD As String'连接信息，请根据实际情况进行修改sSERVER = "localhost"sDB = "mydatabase"sUSER = "root"sPASSWORD = "mypassword"'建立连接Set conn = CreateObject("ADODB.Connection")conn.Open "DRIVER={MySQL ODBC 8.0 Driver};" _& "SERVER=" & sSERVER & ";" _& "DATABASE=" & sDB & ";" _& "USER=" & sUSER & ";" _& "PASSWORD=" & sPASSWORD & ";" _& "OPTION=16427;"Set rs = CreateObject("ADODB.Recordset")'要导入的表格名，请根据实际情况进行修改strSQL = "SELECT * FROM mytable"rs.Open strSQL, conn, 3, 3'要导入的工作表名，请根据实际情况进行修改LastRow = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).RowFor i = 2 To LastRowrs.AddNewrs.Fields("col1").Value = Sheets("Sheet1").Range("A" & i).Valuers.Fields("col2").Value = Sheets("Sheet1").Range("B" & i).Valuers.UpdateNext i'关闭连接rs.CloseSet rs = Nothingconn.CloseSet conn = Nothing'导入完成MsgBox "数据导入成功！"End Sub
首先需要定义一些变量，包括连接对象、记录集对象和SQL语句等。然后建立连接，同时打开要导入的表格和工作表。使用循环遍历Excel表格中的数据，并通过AddNew和Fields方法向MySQL数据库中插入数据。最后关闭连接并提示导入完成。完成以上代码后，通过点击运行(Press F5)或单击运行按钮即可将Excel数据一键导入MySQL。
