Sorry I havent got any code handy
I think it might be best to use ADO via ODBC, so first set up odbc connections to both the excel file and the Oracle db
The connection then looks something like this
Private Sub connecttoExcel()
Dim cnexcel As New ADODB.Connection 'connection #1 to excel
Dim rsexcel As ADODB.Recordset 'recordset to work with
cnexcel.Open ("DSN=Excel"

'reference to the excel odbc dsn
Set rsexcel = cnexcel.Execute("select fieldname from ['sheetname$']"

' replace fieldname and sheetname with those in your file (I think the sheetname needs to be formatted as shown)
end sub
Then do a similar connection to the oracle db then maniuplate the data between the two connections
Andy