create or replace package ane_pack_1 is
    type t_refcursor_1 is ref cursor;
     procedure my_proc_1(out_data in out sys_refcursor, p_param1 IN number);
  end ane_pack_1;



create or replace package body ane_pack_1 
is

PROCEDURE my_proc_1(out_data in out sys_refcursor
            		   ,p_param1 IN number)
is
begin
	open out_data for select rownum from user_objects where rownum<=p_param1;
end my_proc_1;
    
end ane_pack_1 ;

Dim cmd As ADODB.Command
Dim rs As ADODB.Recordset

    
With cnt
  .Provider = "MSDAORA"
  .ConnectionString = "Data Source=dwh;User ID=ddd;Password=ddd"
  .CursorLocation = adUseClient
  .Open
End With


Set cmd = New ADODB.Command
Set rs = CreateObject("ADODB.Recordset")
With cmd
  .ActiveConnection = cnt
'  простой селект работает:
  .CommandType = adCmdText
  .CommandText = "SELECT * FROM dwh.testTable"

' А что нужно ПРОПИСАТЬ, ЧТОБЫ ВЫВЗЫВАТЬ ЩРАКЛОВУЮ ХРАНИМУЮ ПРОЦЕДУРУ my_proc_1
End With
           
Set rs = cmd.Execute

Dim i, j As Long
j = rs.RecordCount
rs.MoveFirst
For i =  0  To j -  1 
  Sheets( 1 ).Cells(i +  1 ,  1 ) = i
  Sheets( 1 ).Cells(i +  1 ,  2 ) = rs.Fields("name")
  rs.MoveNext
Next
rs.Close

Set cmd = Nothing
cnt.Close
Set cnt = Nothing
End Sub

declare c sys_refcursor;
begin
  ane_pack_1.my_proc_1(c,  100 );
end;

declare c sys_refcursor;
begin
  ane_pack_1.my_proc_1(c,  100 );
end;

 & vbNewLine