将手工制作的Excel表格中的数据输入链接到数据库的VBA代码

Sub ImportDataToDatabase()
    Dim conn As Object
    Dim rs As Object
    Dim strSQL As String
    Dim i As Integer
    
    ' 创建数据库连接
    Set conn = CreateObject("ADODB.Connection")
    conn.ConnectionString = "DRIVER={MySQL ODBC 8.0 Unicode Driver};SERVER=数据库服务器地址;DATABASE=数据库名称;UID=用户名;PWD=密码;"
    conn.Open
    
    ' 创建记录集对象
    Set rs = CreateObject("ADODB.Recordset")
    
    ' 遍历Excel表格中的数据
    For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
        ' 构造插入数据的SQL语句
        strSQL = "INSERT INTO 表名 (字段1, 字段2, 字段3) VALUES ('" & Cells(i, 1).Value & "', '" & Cells(i, 2).Value & "', '" & Cells(i, 3).Value & "')"
        
        ' 执行SQL语句
        conn.Execute strSQL
    Next i
    
    ' 关闭连接和记录集
    rs.Close
    conn.Close
    
    ' 释放对象
    Set rs = Nothing
    Set conn = Nothing
    
    MsgBox "数据导入成功！"
End Sub