declare @startDate date = '2022-01-01',@endDate date = '2022-12-31',@name1 varChar(150) = 'Наименование1',@type nvarChar(3) = 'Параметр1';
exec [base].[sp_upLoadXLS] @startDate ,@endDate ,@nameFund ,@type ;
select * from [base].[npo_1]; 
 

Sub LoadData()

Dim cn As ADODB.Connection
Dim rst As ADODB.Recordset

Set cn = New ADODB.Connection
Set rst = New ADODB.Recordset

cn.ConnectionString = "DRIVER={SQL Server};SERVER=MMM1;DATABASE=MMM2" 'Параметры строки подключения
cn.Open


rst.Open "declare @startDate date = '2022-01-01',@endDate date = '2022-12-31',@nameFund varChar(150) = 'Наименование1',@type nvarChar(3) = 'Параметр1'; exec [base].[sp_upLoadXLS] @startDate ,@endDate ,@nameFund ,@type; select * from [base].[npo_1]; "

ActiveSheet.Range("A1").CopyFromRecordset rst 'Извлекаем данные на лист

rst.Close
cn.Close

Set rst = Nothing
Set cn = Nothing

End Sub