Sub Макрос1()
Set cn = CreateObject("ADODB.Connection")
       cn.Open "Provider=MSDAORA.1;Data Source=er;Password=erqw;User ID=qwefgt"
'========================================================================================
sSql = "select sysdate from dual"
Set Rs = GetRs(sSql, cn)
Sheets(1).[a12].CopyFromRecordset Rs
Rs.Close
Set Rs = Nothing
End Sub
Function GetRs(sstr, cn)
Set rstdata = CreateObject("ADODB.Recordset")
    rstdata.Open sstr, cn
    Set GetRs = rstdata
Set rstdata = Nothing
    
    
End Function

create or replace procedure test(x number,y number) 
is retur number; 
fd date;
begin
  retur  := x+y;
  
  dbms_output.put_line(RETUR );
end test;