【Excel】Excel VBA连接PostgreSQL数据库

---

【Excel】Excel VBA连接PostgreSQL数据库

在VBA中连接PostgreSQL数据库，你可以使用ADO (ActiveX Data Objects) 库。以下是一个简单的示例，展示如何使用VBA连接PostgreSQL数据库并执行一个查询。

首先，确保你的Excel启用了对ADO的支持。在Excel选项中，找到“信任中心”并启用“宏设置”中的“信任对VBA项目对象模型的访问”。

接下来，你需要添加对ADODB的引用。在VBA编辑器中，点击“工具” -> “引用”，然后勾选“Microsoft ActiveX Data Objects x.x Library”。

以下是VBA代码示例：

Sub ConnectToPostgreSQL()
    ' 定义变量
    Dim conn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim serverName As String
    Dim databaseName As String
    Dim userName As String
    Dim password As String
    
    ' 初始化数据库连接信息
    serverName = "localhost" ' PostgreSQL服务器地址
    databaseName = "your_database" ' PostgreSQL数据库名
    userName = "your_username" ' PostgreSQL用户名
    password = "your_password" ' PostgreSQL密码
    
    ' 创建ADO连接对象
    Set conn = New ADODB.Connection
    With conn
        .Provider = "MSDASQL"
        .Properties("Driver").Value = "{PostgreSQL ANSI}" ' 或者 "{PostgreSQL Unicode}" 根据需要
        .Properties("ServerName").Value = serverName
        .Properties("Database").Value = databaseName
        .Properties("User ID").Value = userName
        .Properties("Password").Value = password
        .Open
    End With
    
    ' 创建ADO记录集对象
    Set rs = New ADODB.Recordset
    
    ' SQL查询
    Dim sql As String
    sql = "SELECT * FROM your_table LIMIT 10" ' 替换为你的SQL查询
    
    ' 执行查询并操作结果
    rs.Open sql, conn
    If Not rs.EOF Then
        ' 在这里处理你的结果
        ' 例如，输出到Excel的第一个工作表
        Sheets(1).Cells.Clear
        Sheets(1).Range("A1").CopyFromRecordset rs
    End If
    
    ' 关闭记录集和连接
    rs.Close
    Set rs = Nothing
    conn.Close
    Set conn = Nothing
End Sub

请确保替换serverName, databaseName, userName, password, your_table和your_database为你的实际信息。

注意：确保你的计算机上安装了PostgreSQL的ODBC驱动程序，并且在连接字符串中使用正确的驱动程序名称。