VBA 连接数据库 批量写入表格

VBA (Visual Basic for Applications) 是一种用于自动化 Microsoft Office 应用程序的脚本语言，例如 Excel、Word 和 Access 等。通过 VBA，你可以编写宏或脚本来执行复杂的数据处理任务，包括连接到数据库并批量写入数据。

### 连接数据库的基本步骤：

#### 步骤 1: 安装 OLE DB 驱动

首先需要安装适用于目标数据库类型的 OLE DB 驱动。例如，如果你的目标数据库是 SQL Server，则需要安装 SQL Server 的 OLE DB 驱动。

#### 步骤 2: 编写 VBA 代码连接数据库

以下是使用 VBA 连接到 SQL Server 数据库并执行查询的基本示例：

Sub ConnectToDatabase()
    Dim conn As ADODB.Connection
    Dim rs As ADODB.Recordset
    
    ' 创建一个新的连接对象实例
    Set conn = New ADODB.Connection
    
    ' 设置连接字符串，包含服务器名、数据库名称、登录凭据等信息
    conn.ConnectionString = "Provider=SQLOLEDB;Data Source=myServer;Initial Catalog=myDatabase;User ID=myUsername;Password=myPassword;"
    
    ' 尝试建立连接
    If Not conn.Open Then
        MsgBox ("无法打开连接：" & conn.Error.Description)
        Exit Sub
    End If
    
    ' 执行 SQL 查询并将结果存储在记录集对象中
    Set rs = New ADODB.Recordset
    rs.Open "SELECT * FROM MyTable", conn
    
    ' 打印查询结果到控制台
    Do While Not rs.EOF
        Debug.Print rs.Fields("Column1").Value & ", " & rs.Fields("Column2").Value
        rs.MoveNext
    Loop
    
    ' 关闭记录集和连接
    rs.Close
    conn.Close
End Sub

#### 步骤 3: 使用 VBA 写入数据到数据库

要将数据从 Excel 表格批量写入数据库表中，可以使用以下 VBA 函数：

Function WriteDataToDatabase(tableRange As Range, tableName As String, connectionString As String)
    Dim i As Integer, j As Integer, dataRow() As Variant
    Dim dbConnection As ADODB.Connection
    Dim dbCommand As ADODB.Command
    
    ReDim dataRow(UBound(tableRange.Columns), UBound(tableRange.Rows))
    
    For i = tableRange.Row to tableRange.Rows.Count Step 1
        For j = tableRange.Column to tableRange.Columns.Count Step 1
            dataRow(j - tableRange.Column + 1, i - tableRange.Row + 1) = tableRange.Cells(i, j).Value
        Next j
    Next i
    
    ' 初始化数据库连接
    Set dbConnection = New ADODB.Connection
    dbConnection.Open connectionString
    
    ' 创建一个存储过程（如果还没有）
    ' 运行 SQL 命令创建存储过程（需根据实际需求修改）
    ' dbCommand.ActiveConnection = dbConnection
    ' dbCommand.CommandText = "CREATE PROCEDURE InsertData @Col1 VARCHAR(255), @Col2 VARCHAR(255) AS INSERT INTO " & tableName & "(Col1, Col2) VALUES(@Col1, @Col2)"
    ' dbCommand.Execute
    
    ' 创建一个命令执行 INSERT INTO 存储过程的操作
    dbCommand.ActiveConnection = dbConnection
    dbCommand.CommandText = "INSERT INTO " & tableName & " VALUES (?, ?)" ' 根据实际情况调整列名
    
    ' 绑定参数，并逐行插入数据
    For Each row In dataRow
        dbCommand.Parameters.Append dbConnection.CreateParameter("@Col1", adParamText, adVariable, , row(1)) ' 调整参数名和类型
        dbCommand.Parameters.Append dbConnection.CreateParameter("@Col2", adParamText, adVariable, , row(2))
        
        dbCommand.Execute
        
        ' 清空参数避免内存泄漏
        For Each param In dbCommand.Parameters
            param.Value = Nothing
        Next param
    Next row
    
    ' 关闭连接
    dbConnection.Close
End Function

在上述 `WriteDataToDatabase` 函数中，你需要提供 Excel 中数据所在范围 (`tableRange`)、目标数据库表名 (`tableName`) 及数据库连接字符串 (`connectionString`)。此函数遍历指定范围内的所有数据，并将其逐条插入到目标数据库表中。

### 相关问题:

1. **如何优化 VBA 对数据库的访问性能**？
- 考虑缓存数据查询结果或使用批处理写操作以减少对数据库的频繁访问。

2. **VBA 中如何处理数据库错误**？
- 使用 `Try...Catch` 结构捕获并处理数据库连接和操作过程中可能出现的异常。

3. **VBA 如何安全地处理敏感数据**？
- 使用环境变量或配置文件存储敏感信息（如数据库用户名、密码），避免直接硬编码在脚本中。

请注意，在实际应用中，确保按照最佳实践进行代码编写，包括良好的注释、适当的错误处理以及确保代码的安全性和效率。