you can try like this, without adding reference
Code:
dim x as object
x=server.createobject("Excel.Application") 
'If excel is not installed it will throw an "ActiveX Cannot Create object Error"
Hope this Help