Как выгрузить данные из таблицы оракла в лист экзеля? - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д