Yo lo he hecho con JavaScript en una página asp, porque tenía que leer datos de unas tablas y mostrarlos en Excel, la forma en la que lo hice es esta:
<script LANGUAGE="JavaScript">
<!--
function PasarAExcell(){
var myExcApp, myWb ;
//Abrimos Excel
try {
myExcApp = GetObject("","Excel.Application");
}
catch (exception) {
try{
myExcApp = new ActiveXObject("Excel.Application");
}
catch (exception) {
alert ("No se ha podido abrir Excel. Comunícaselo a tu departamento de informática");
return false;
}
}
//hay que hacerlo visible y activar el nuevo libro
myExcApp.visible = true;
myWb = myExcApp.Workbooks.Add;
myWb.Activate;
//myWb.visible = true;
//tomamos la referencia a la hoja actual
var myWrkSheet = myWb.ActiveSheet;
//fila de servicios en negrita
//myWrkSheet.Range("2:2").Font.Bold = true;
//columna de clientes en negrita
myWrkSheet.Range("A:A").Font.Bold = true;
//primera celda normal
myWrkSheet.Cells(1, 1).Font.Bold = false;
//Escribir todos los servicios en las columnas
myWrkSheet.Range("2:2").HorizontalAlignment = -4131; // 1 xlGeneral -4131 Left
myWrkSheet.Range("2:2").VerticalAlignment = -4107; //xlBottom
myWrkSheet.Range("2:2").Orientation = 90;
myWrkSheet.Range("2:2").AddIndent = false;
myWrkSheet.Range("2:2").IndentLevel = 0;
myWrkSheet.Range("2:2").ShrinkToFit = false;
myWrkSheet.Range("2:2").ReadingOrder = -5002; //xlContext
myWrkSheet.Range("2:2").MergeCells = false;
...
...
myWrkSheet.Range("<%=cValor & 1%>").Select;
myActCell = myExcApp.ActiveCell;
myActCell.FormulaR1C1 = "<%=rsServicios.fields("DesPractica").value%>" ;
myWrkSheet.Range("<%=cValor & ":" & cValor%>").Font.ColorIndex = <%=nColor%>;
....
....
}
-->
</script>
Espero que esto te sirva
