Как выгрузить данные из таблицы оракла в лист экзеля? - VB

Формулировка задачи:

Здравствуйте друзья. Есть таблица в оракле BASE_LOG_SYNC хочу выгрузить из нее все данные в экзель скриптом vba. Как можно сделать?

Думаю надо с начала сделать селект к этой таблице и отобразится данные в данном листе (где щелкаю по кнопке загрузить, к примеру) дальше как? НУ и в конце записать результат в другой файл. Или можно просто где щелкаю по кнопке загрузить на этом же листе отобразить результат из таблицы BASE_LOG_SYNC , как это сделать? Какие есть идеи?

Решение задачи: «Как выгрузить данные из таблицы оракла в лист экзеля?»

textual
                            Листинг программы 
                        
 
                            
                        
Sub Макрос1 ()
'
' Макрос1 Макрос
' Макрос записан 18.07.2012 (333)
'
 
'
    With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
        "ODBC;DRIVER={Oracle in OraHome92};SERVER=B04;UID=HCA;;DBQ=B04;DBA=W;APA=T;EXC=F;XSM=Default;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;GD" _
        ), Array("E=F;FRL=Lo;BAM=IfAllSuccessful;MTS=F;MDI=Me;CSR=F;FWC=F;PFC=10;TLO=O;" _
        )), Destination:=Range("A1"))
        .CommandText = Array( _
        "SELECT COMPANIESSTRUCTURE_UNITS.CSU_NAME" & Chr(13) & "" & Chr(10) & "FROM HCA.COMPANIESSTRUCTURE_UNITS COMPANIESSTRUCTURE_UNITS" _
        )
        .Name = "Запрос из ORACLE_TEST_FIZ"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .Refresh BackgroundQuery:=False
    End With
End Sub