在 Excel VBA 中与 MySQL 数据库进行交互时，通常需要使用 ADODB 连接来执行 SQL 语句。以下是一个完整的示例，展示了如何将 Excel 表格中的数据插入到 MySQL 数据库的表中。这个示例假设你已经设置好了 MySQL 数据库，并且已经建立了与数据库的连接。

1. 准备工作

首先，确保你已经安装了 MySQL ODBC 驱动程序，并且在 VBA 中引用了 Microsoft ActiveX Data Objects x.x Library。

2. 连接 MySQL 数据库

在 VBA 中，你可以使用以下代码来连接 MySQL 数据库：

VBA

Dim conn As Object
Set conn = CreateObject("ADODB.Connection")

' 连接字符串
Dim connStr As String
connStr = "DRIVER={MySQL ODBC 8.0 Unicode Driver};" & _
          "SERVER=your_server_name;" & _
          "DATABASE=your_database_name;" & _
          "USER=your_username;" & _
          "PASSWORD=your_password;" & _
          "OPTION=3;"

' 打开连接
conn.Open connStr

假设你有一个 Excel 表格，其中包含以下数据：

你可以使用以下 VBA 代码将这些数据插入到 MySQL 数据库的表中：

VBA

Sub InsertDataIntoMySQL()
    Dim conn As Object
    Set conn = CreateObject("ADODB.Connection")
    
    ' 连接字符串
    Dim connStr As String
    connStr = "DRIVER={MySQL ODBC 8.0 Unicode Driver};" & _
              "SERVER=your_server_name;" & _
              "DATABASE=your_database_name;" & _
              "USER=your_username;" & _
              "PASSWORD=your_password;" & _
              "OPTION=3;"
    
    ' 打开连接
    conn.Open connStr
    
    ' 获取 Excel 表格中的数据
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1") ' 假设数据在 Sheet1 中
    
    Dim lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    
    Dim i As Long
    For i = 2 To lastRow ' 假设第一行是标题
        Dim id As Long
        Dim name As String
        Dim age As Long
        
        id = ws.Cells(i, 1).Value
        name = ws.Cells(i, 2).Value
        age = ws.Cells(i, 3).Value
        
        ' 构建 SQL 插入语句
        Dim sql As String
        sql = "INSERT INTO your_table_name (ID, Name, Age) VALUES (" & id & ", '" & name & "', " & age & ");"
        
        ' 执行 SQL 语句
        conn.Execute sql
    Next i
    
    ' 关闭连接
    conn.Close
    Set conn = Nothing
    
    MsgBox "数据已成功插入到 MySQL 数据库中！"
End Sub

4. 解释代码

• 连接字符串：connStr 是连接 MySQL 数据库的字符串，你需要根据你的 MySQL 服务器设置进行修改。
• 获取 Excel 数据：代码从 Excel 表格中读取数据，并逐行插入到 MySQL 数据库中。
• SQL 插入语句：sql 变量存储了插入数据的 SQL 语句。
• 执行 SQL 语句：conn.Execute sql 执行 SQL 语句，将数据插入到 MySQL 数据库中。

5. 注意事项

• 确保 MySQL 数据库中的表结构与 Excel 表格中的数据结构一致。
• 如果数据量较大，建议使用事务来批量插入数据，以提高性能。
• 在实际应用中，建议添加错误处理机制，以捕获并处理可能出现的错误。

6. 错误处理

你可以使用 On Error 语句来捕获并处理错误：

VBA

On Error GoTo ErrorHandler

' 你的代码

Exit Sub

ErrorHandler:
    MsgBox "发生错误: " & Err.Description
    conn.Close
    Set conn = Nothing
End Sub

通过这种方式，你可以确保在发生错误时，程序能够优雅地处理并关闭数据库连接。

7. 概括

通过上述步骤，你可以使用 VBA 将 Excel 表格中的数据插入到 MySQL 数据库中。你可以根据需要扩展这个示例，例如添加更新、删除等操作。