Excel Object Model: Range.CopyFromRecordSet

'
'      call application.VBE.activeVBProject.references.addFromGuid("{B691E011-1797-432E-907A-4D8C69339129}", 6,  1)
'
option explicit

sub main()

   dim dbUser     as string : dbUser     = "rene"
   dim dbPassword as string : dbPassword = "rene"
   dim dataSource as string : dataSource = "ora19"
   dim provider   as string : provider   = "OraOLEDB.Oracle"

   dim con as new adodb.connection
   con.open ( _
       "Provider="     & provider     & _
       ";User ID="     & dbUser       & _
       ";Password="    & dbPassword   & _
       ";Data Source=" & dataSource     )

    dim rs  as adodb.recordSet
    set rs  = con.execute("select * from tq84_data_one")

    cells(1,1).copyFromRecordset rs

end sub

$xls = get-msOfficeComObject excel
$wb  = $xls.workbooks.add()
$sh  = $wb.sheets(1)
 
$adoConnection = new-object -comObject ADODB.connection
$adoConnection.open("Provider=OraOLEDB.Oracle;user id=…;data source=…;password=…")
 
$rs = $adoConnection.execute('select * from user_tables')
$sh.cells(1,1).copyFromRecordSet($rs)