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