Excel是常用的电子表格软件，支持多种操作和数据处理。而MySQL则是流行的关系型数据库，支持高效的数据存储和查询。将Excel中的数据导入到MySQL数据库中，可以方便地统计和管理数据。这里介绍如何使用Excel将数据导入到MySQL数据库。
首先需要确定MySQL的连接信息，如主机名、用户名、密码、端口号等，以及需要导入的数据库、数据表和字段。可以使用Excel中的“数据”选项卡，选择“从其他来源”中的“从SQL Server”选项。这里选择MySQL数据库，并填入相应的连接信息。
Sub Connect_to_MySQL()Dim conn As ADODB.ConnectionSet conn = New ADODB.Connectionconn.Open "DRIVER={MySQL ODBC 8.0 Unicode Driver};SERVER=localhost;DATABASE=mydatabase;PORT=3306;UID=user;PWD=password;"End Sub
连接成功后，可以使用SQL语句创建数据表，并设置字段和数据类型。其中，数据表的结构应该与Excel中的数据相对应，以确保导入的准确性和完整性。
Sub Create_Table()Dim conn As ADODB.ConnectionSet conn = New ADODB.Connectionconn.Open "DRIVER={MySQL ODBC 8.0 Unicode Driver};SERVER=localhost;DATABASE=mydatabase;PORT=3306;UID=user;PWD=password;"Dim strSQL As StringstrSQL = "CREATE TABLE mytable (id INT NOT NULL PRIMARY KEY AUTO_INCREMENT, name VARCHAR(255) NOT NULL, age INT)"conn.Execute strSQLEnd Sub
随后，需要遍历Excel中的数据表格，并将数据逐行导入到MySQL数据库中。可以使用范围对象对单元格进行循环，获取每个单元格的值，然后使用SQL语句将数据插入到MySQL数据库中。
Sub Insert_Data()Dim conn As ADODB.ConnectionSet conn = New ADODB.Connectionconn.Open "DRIVER={MySQL ODBC 8.0 Unicode Driver};SERVER=localhost;DATABASE=mydatabase;PORT=3306;UID=user;PWD=password;"Dim rng As RangeSet rng = Range("A2:C5")For Each row In rng.RowsDim name As StringDim age As Integername = row.Cells(1, 1).Valueage = row.Cells(1, 2).ValuestrSQL = "INSERT INTO mytable (name, age) VALUES ('" & name & "', " & age & ")"conn.Execute strSQLNext rowEnd Sub
通过以上代码，即可将Excel中的数据导入到MySQL数据库中。需要注意的是，在导入过程中应该避免重复插入数据，可以使用验证主键或唯一索引等方式来保证数据的唯一性。同时，应该注意数据类型的一致性，特别是日期、时间等数据类型的转换。
