Buenas, quiero exportar datos a excel de esta manera
 
Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
 
        Striginsert = "SELECT * from Siniestro"
        Dim ada As New SqlDataAdapter(Striginsert, con)
        Dim DS As New DataSet
        ada.Fill(DS, "sini")
 
        Response.Write("<table runat=""server"" id=""Tablex"" Style = ""position: relative; top: 0px; height: 20px"">")
        Response.Write("<tr>")
        Response.Write("<td>listo echo </td>")
        Response.Write("<td>")
        Response.Write("<td><button runat=""server"" OnClientClick=""javascript: return exportToExcel('listo')"">Export to Excel</button></td>")
        Response.Write("</td>")
        Response.Write("</tr>")
        Response.Write("</table>")
 
        Response.Write("<table runat=""server"" id=""ExportTable"" Style = ""position: relative; top: 15px; height: 20px"">")
        '
        Response.Write("<tr>")
        For i As Integer = 0 To DS.Tables(0).Columns.Count - 1
            Response.Write("<td>" & DS.Tables(0).Columns(i).ColumnName & "</td>")
        Next
        Response.Write("</tr>")
        For i As Integer = 0 To DS.Tables(0).Rows.Count - 1
            Response.Write("<tr>")
            Dim row As DataRow = DS.Tables(0).Rows(i)
            For j As Integer = 0 To DS.Tables(0).Columns.Count - 1
                Response.Write("<td>" & row(j) & "</td>")
            Next
            Response.Write("</tr>")
        Next
        Response.Write("</tr>")
        Response.Write("</table>")
        Response.End()
 
    End Sub
 
El problema es que el botón que se crea para llamar un script en javascript NO lo ejecuta, o si lo ejecuta no se donde guarda el file de Excel. No único cierto es que me muestra la información el pantalla  luego hago click sobre el botón export a excel y no dice NADA
 
Lo único cierto es que tengo un error, donde?? NO SE
 
Este es el script
 
<script type="text/javascript">
function exportToExcel(){
var i;
var j;
var mycell;
var tableID = "ExportTable";
var objXL = new ActiveXObject("Excel.Application");
var objWB = objXL.Workbooks.Add();
var objWS = objWB.ActiveSheet;
 
for (i=0; i < document.getElementById(tableID).rows.length; i++)
{
    for (j=0; j < document.getElementById(tableID).rows(i).cells.len  gth; j++)
    {
        mycell = document.getElementById(tableID).rows(i).cells(j)
        objWS.Cells(i+1,j+1).Value = mycell.innerText;
 
 
    }
}
</script>
 
Gracias por toda la ayuda recibida 
   
 


