Código HTML:
<script LANGUAGE=javascript> function exportToXL(eSrc) { var oExcel; var oExcelSheet; var oWkBooks; var cols; oExcel = new ActiveXObject('Excel.Application'); oWkBooks = oExcel.Workbooks.Add; oExcelSheet = oWkBooks.Worksheets(1); oExcelSheet.Activate(); if (eSrc.tagName != 'TABLE') { alert('No ha sido posible exportar la tabla a excell'); return false; } cols = Math.ceil(eSrc.cells.length / eSrc.rows.length); for (var i = 0; i < eSrc.cells.length; i ++) { var c, r; r = Math.ceil((i+1) / cols); c = (i+1)-((r-1)*cols) if (eSrc.cells(i).tagName == 'TH') { oExcel.ActiveSheet.Cells(r,c).Font.Bold = true; oExcel.ActiveSheet.Cells(r,c).Interior.Color = 14474460; } if (eSrc.cells(i).childNodes.length > 0 && eSrc.cells(i).childNodes(0).tagName == "B") oExcel.ActiveSheet.Cells(r,c).Font.Bold = true; oExcel.ActiveSheet.Cells(r,c).Value = eSrc.cells(i).innerText; } oExcelSheet.Application.Visible = true; idTmr = window.setInterval("Cleanup();",1000); } function Cleanup() { window.clearInterval(idTmr); //“CollectGarbage” fire JScript's garbage collection to release the reference to Excel CollectGarbage(); } </script> <a href = "javascript:exportToXL(form5.all('tabla'));"><img src = "page_excel.png"></a>
muchas gracias