Sub adsads()


Set objRecordset = CreateObject("ADODB.Recordset")
Set objConnection = CreateObject("ADODB.Connection")

ServerName = "ServerName" 
UID = "UID" 
PWD = "PWD" 
ConnectString = "Provider=OraOLEDB.Oracle;" & _
                "Data Source=" & ServerName & _
                ";User ID=" & UID & ";Password=" & PWD
                
 
iSQL = "SELECT ID, CLASS_ID, C_1, C_2, REF2, C_3, REF3, C_4, REF4, TO_CHAR(C_5) C_5, TO_CHAR(C_6) C_6, C_7, REF7, C_8, C_9, REF9, C_10, REF10, C_11, REF11, C_12, REF12, C_13, REF13, C_14, C_15, C_16, REF16, U_1, TO_CHAR(C_17) C_17, U_2, U_3, U_4, U_5, U_6, U_7 FROM IBS.VW_CRIT_AC_FIN_OPEN WHERE (CLASS_ID = 'AC_FIN') AND ((C_1 LIKE '407%%') AND (ROUND(C_5, 2) = '1348.29')) AND (ROWNUM <= 10000) ORDER BY U_5"


objConnection.Open ConnectString
objRecordset.Open iSQL, objConnection

Sheets(1).Cells(1, 1).CopyFromRecordset objRecordset

End Sub

' Сформированный словарь выгружаем в строку, разделители - запятые
  For Each key In objDict.Keys
    strList = strList & "," & CStr(key)
  Next
  
  ' отрезаем лишнюю запятую в начале
  
  strList = Mid(strList, 2)

  ' присваиваем ячейке список через механизм Data Validation
  With parTargetCell.Validation
    .Delete
    .Add Type:=xlValidateList, _
         AlertStyle:=xlValidAlertWarning, _
         Formula1:=strList
    .IgnoreBlank = True
    .InCellDropdown = True
  End With
  
  ' Уничтожаем объект словаря
  Set objDict = Nothing
  
End Sub

=СУММПРОИЗВ('1'!U10:U28;--('1'!S10:S28 > E25))

Public Sub Workbook_BeforeClose(Cancel As Boolean)
 
 
 Application.ScreenUpdating = False
 Application.DisplayAlerts = False

For i = Sheets.Count To 5 Step -1
If Sheets(i) Is Nothing Then Exit For
Sheets(i).Activate
ActiveSheet.Delete
Next i

Application.DisplayAlerts = True
Application.ScreenUpdating = True

ThisWorkbook.Save
End Sub

Cells(22, 11).FormulaLocal = "=ЕСЛИ(ПСТР(ОСТАТ('свод 2 (ПК)'!F" & H11 & ";1);3;1)=0;ОКРУГЛ('свод 2 (ПК)'!F" & H11 & ";);ОКРУГЛ(" 'свод 2 (ПК)'!F" & H11 & ";1))"

=ЕСЛИ(ПСТР(ОСТАТ(#ССЫЛКА!F80;1);3;1)=0;ОКРУГЛ(#ССЫЛКА!F80;);ОКРУГЛ(#ССЫЛКА!F80;1))

Cells(22, 11).FormulaLocal = "='свод 2 (ПК)'!F" & H12