Возможно, вы захотите сделать это из Excels VBA
Sub DisplayDBATables()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.Open ( _
"User ID=rene" & _
";Password=my_secret" & _
";Data Source=XE" & _
";Provider=MSDAORA.1" )
rs.Open "select * from dba_tables", cn
Cells(1, 1).CopyFromRecordset rs
End Sub
MSDN говорит Копирует содержимое объекта ADO или DAO Recordset на лист, начиная сверхний левый угол указанного диапазона.Если объект Recordset содержит поля с объектами OLE в них, этот метод завершается ошибкой.