Передача сценария к Psql в Excel 2013

Question

я могу открыть Psql оболочку и получить доступ к своей базе данных nfldb из Excel:

Sub atest() 

Dim wsh As Object 
Set wsh = VBA.CreateObject("WScript.Shell") 
Dim waitOnReturn As Boolean: waitOnReturn = True 
Dim windowStyle As Integer: windowStyle = 1 

wsh.Run "cmd /c psql nfldb nfldb" 

И перейти к оболочке и извлекать информацию из «команды» таблицы в nfldb базы данных для файл «teamNames» с:

nfldb=> \copy (SELECT * FROM team) TO 'C:\temp\teamNames.csv' With CSV 

Мой вопрос, как я могу запустить весь код внутри Excel, так что база данных nfldb открывается и строки из таблицы «команды» сохраняются в файле «teamNames '

Как объединить оба кода?

Любая помощь была бы принята с благодарностью!

Answer 1

Если кому-то еще нужна помощь в этом, я решил проблему самостоятельно после долгих проб и ошибок.

Dim wsh As Object 
Set wsh = VBA.CreateObject("WScript.Shell") 
Dim waitOnReturn As Boolean: waitOnReturn = True 
Dim windowStyle As Integer: windowStyle = 1 

wsh.Run "cmd /c psql -U nfldb -f C:\Python27\writeTeams.sql" 

Откроет nlfd базы данных в Psql оболочки и запустить скрипт, содержащийся в файле «writeTeams.sql»