Уважаемое сообщество подскажите пожалуйста что я делаю не так.
Итак, имеем VBA 7.0, сервер MSSQL с хранимой процедурой, которая выдает результат в виде таблицы. Надо этот результат с помощью макроса вытащить, произвести некие манипуляции и затем положить на ActiveSheets в Excel.
Вот таким образом я пытаюсь вызвать хранимую процедуру на сервере и получить результат.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
Sub SummaryReport()
Dim conn As New ADODB.Connection
conn.ConnectionString = "Provider=SQLOLEDB.1;Password=abc;Persist Security Info=True;User ID=UserID;Data Source=servername;Initial Catalog=DB_Name;"
conn.Provider = "SQLOLEDB.1"
conn.CommandTimeout = 6000
conn.Open
Dim rst As New ADODB.Recordset
rst.ActiveConnection = conn
Set rst = conn.Execute("EXEC SomeStoreProcedure @pMonth = 12, @pYear = 2011")
Call ActiveSheet.Range("A2").Cells(1, 1).CopyFromRecordset(rst)
conn.Close
Set conn = Nothing
Set rst = Nothing
End Sub
Однако на строчке
1.
Call ActiveSheet.Range("A2").Cells(1, 1).CopyFromRecordset(rst)
выдается ошибка Run-time error '3704'.
Если же мы вместо хранимой процедуры напишем запрос к какой-либо талице:
1.
2.
3.
Set rst = conn.Execute("SELECT TOP 10 * FROM MyTable")
Call ActiveSheet.Range("A2").Cells(1, 1).CopyFromRecordset(rst)
то VBA ругаться перестает и результаты попадают на лист Excel.
В чем может быть дело и как мне добиться вызова хранимой процедуры?
