VBAを使用してExcelをPostgreSQLに接続する

Question

SELECTのようなクエリをExcelのVBAから作成することは可能ですか？ExcelからPostgreSQL DBをクエリできますか？

可能であれば、データベースへの接続方法を教えてください。私はGoogleで探していたが、結果が見つかりませんでした。

Answer 1

PostgreSQLで必要なデータを記述したテーブルまたはビューを作成します。

VBAのODBCまたはADO接続を使用してPostgreSQLに接続します。 ODBCを使用している場合は、odbcad32.exe経由でDSNを作成し、VBでDSNを使用する必要があります。直接接続するのは簡単ではありません。

参照してください：

• Using ADO in VBA to connect to PostgreSQL
• PostgreSQL Query to Excel Sheet
• http://jackdebear.blogspot.com.au/2011/11/connecting-to-postgres-from-excel.html
• Enabling import/export flows between a remote postgres database and excel workbooks
• Does ADO work with ODBC drivers or only OLE DB providers?
• How to put query results into a datatable with Excel VBA and ADO?

Better written eample that uses Oracleただし、原則は同じです - ODBC/ADO。

Answer 2

参考として使用できるコードは次のとおりです。それが役に立てば幸い。

Sub SelectBasic() 

     Dim objDb_con 
     Dim strSomeValue As String 

     Set objDb_con = CreateObject("ADODB.Connection") 
     Set Rsdatatype = CreateObject("ADODB.RecordSet") 

     glbConnString = Trim(ActiveSheet.Range("B1").Value) 
     //Connection string format:Driver={PostgreSQL Unicode};Database=MyDB;server=192.16*.*.**;UID=USERID;Pwd=pasword //comment it 
     If glbConnString = "" Then 
     MsgBox "Enter the Connection String" 
     Else: 

     objDb_con.Open glbConnString 

     strSql = "select strSomeValue from SOMETABLE where Something=1" 
     Rsdatatype.Open strSql, objDb_con, adOpenKeyset, adLockpessimistic 
     If Rsdatatype.EOF = False Then strSomeValue = Rsdatatype.Fields(0).Value 
     Rsdatatype.Close 

     End If 
     objDb_con.Close 
    End Sub 

Answer 3

64ビットWindowsの場合でも、Excel VBAには32-bit ODBC driverが必要です。

%windir%\SysWOW64\odbcad32.exeでDSNを作成します。実際には、odbcad32.exeと入力すると、デフォルトで適切な32ビットドライバが見つからない64ビットバージョンが示されます。

出典：https://github.com/windweller/postgresql-excel-addIn（良好であり、あなたよりも詳細があります）クレイグの答えはすでに32ビットの問題を指摘し、@