ActiveWorkbook.Worksheets.Add
ActiveSheet.Name = "get"

With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array(Array( _
"ODBC;DSN=PostgreSQL35W;DATABASE=;SERVER=;PORT=;UID=;;SSLmode=disable;ReadOnly=0;Protocol=7.4;FakeOid" _
), Array( _
"Index=0;ShowOidColumn=0;RowVersioning=0;ShowSystemTables=0;Fetch=100;UnknownSizes=0;MaxVarcharSize=255;MaxLongVarcharSize=8190;D" _
), Array( _
"ebug=0;CommLog=0;UseDeclareFetch=0;TextAsLongVarchar=1;UnknownsAsLongVarchar=0;BoolsAsChar=1;Parse=0;ExtraSysTablePrefixes=;LFCo" _
), Array( _
"nversion=1;UpdatableCursors=1;TrueIsMinus1=0;BI=0;ByteaAsLongVarBinary=1;UseServerSidePrepare=1;LowerCaseIdentifier=0;GssAuthUse" _
), Array("GSS=0;XaOpt=1")), Destination:=Range("$A$1")).QueryTable
.CommandText = Array( _
"WITH session_data AS (" & Chr(13) & "" & Chr(10) & " SELECT s.id AS s_id, players.name AS player_name, players.""id"" AS player_id, players.bets AS bets" & Chr(13) & "" & Chr(10) & " FROM sessions AS s, jsonb_to_recordset(s.data::jsonb->'players') AS " _
, _
"players( id text, ""name"" text, ""idDec"" text, ""bets"" json)" & Chr(13) & "" & Chr(10) & " WHERE s.id = 6206" & Chr(13) & "" & Chr(10) & ")," & Chr(13) & "" & Chr(10) & " player_data AS (" & Chr(13) & "" & Chr(10) & " SELECT s_id AS session_id, player_name, player_id, bets" & Chr(13) & "" & Chr(10) & " FROM session_data" & Chr(13) & "" & Chr(10) & " " _
, _
" WHERE player_id = '' " & Chr(13) & "" & Chr(10) & " )" & Chr(13) & "" & Chr(10) & "SELECT z.key AS name, z.value::json->'amount' AS amount" & Chr(13) & "" & Chr(10) & "FROM player_data AS p, json_each_text(p.bets) AS z" _
)
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.ListObject.DisplayName = "PostgreSQL35W_1"
.Refresh BackgroundQuery:=False
End With
Sheets("get").Select
Range("C2").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP([@name],stavka,2,0)"
Range("C3").Select
ActiveWindow.SmallScroll Down:=111

Sheets("data").Select
End Sub