Error exportando datos de una tabla a excel

[sixto_jose]

hola a todos, primero ante todo Dios los bendiga :P.

mi problema es el siguiente.
Estoy tratando de crear una funcion de javascrip para poder exportar datos a excel a partir de una tabla html pero cada vez que llego a la linea

Código:

var ExlApp = new ActiveXObject("Excel.Application");

me muestra el siguiente error

Error en tiempo de ejecución de Microsoft JScript: El servidor de Automatización no puede crear el objeto.

A continuacion dejo la funcion que tengo.

Código:

function ExportarExcel() {
    // Start a new instance of Microsoft Excel
    var ExlApp = new ActiveXObject("Excel.Application");
    
    // Silent-mode:
    ExlApp.Visible = false;
    ExlApp.DisplayAlerts = false;

    var WorkBook = ExlApp.Workbooks.Add();
    var Sheet = WorkBook.ActiveSheet;

    Sheet.Range("A1").Value = "1.01.2006";
    Sheet.Range("A2").Value = "2.01.2006";
    Sheet.Range("A3").Value = "3.01.2006";
    Sheet.Range("A4").Value = "4.01.2006";
    Sheet.Range("A5").Value = "5.01.2006";
    Sheet.Range("A6").Value = "6.01.2006";
    Sheet.Range("A7").Value = "7.01.2006";
    Sheet.Range("A8").Value = "8.01.2006";
    Sheet.Range("A9").Value = "9.01.2006";
    Sheet.Range("A10").Value = "10.01.2006";

    Sheet.Range("B1").Value = 1;
    Sheet.Range("B2").Value = 2;
    Sheet.Range("B3").Value = 3;
    Sheet.Range("B4").Value = 4;
    Sheet.Range("B5").Value = 5;
    Sheet.Range("B6").Value = 6;
    Sheet.Range("B7").Value = 7;
    Sheet.Range("B8").Value = 8;
    Sheet.Range("B9").Value = 9;
    Sheet.Range("B10").Value = 10;

    Sheet.Range("C1").Value = 11;
    Sheet.Range("C2").Value = 9.9;
    Sheet.Range("C3").Value = 8.8;
    Sheet.Range("C4").Value = 7.7;
    Sheet.Range("C5").Value = 6.6;
    Sheet.Range("C6").Value = 5.5;
    Sheet.Range("C7").Value = 4.4;
    Sheet.Range("C8").Value = 3.3;
    Sheet.Range("C9").Value = 2.2;
    Sheet.Range("C10").Value = 1.1;

    var rang = Sheet.Range("A1:C10");

    // First chart:
    var ch = Sheet.ChartObjects.Add(rang.Left + rang.Width, rang.Top, 350, 220);
    ch.Chart.ChartType = -4120;
    ch.Chart.SetSourceData(rang, 2);

    Sheet.Range("A11").Select();

    ch.CopyPicture();

    // Start a new instance of Microsoft Word:
    var WordApp = new ActiveXObject("Word.Application");

    // Silent mode:
    WordApp.Visible = false;

    // Create a new Word document
    WordApp.Documents.Add();

    WordApp.Selection.ParagraphFormat.Alignment = 1;
    WordApp.Selection.Paste();

    WordApp.Selection.TypeParagraph();

    // Second chart:
    var ch1 = Sheet.ChartObjects.Add(ch.Left + ch.Width, ch.Top, 400, 250);
    ch1.Chart.ChartType = 95;
    ch1.Chart.SetSourceData(rang, 2);

    ch1.CopyPicture();

    WordApp.Selection.Paste();
    WordApp.Selection.TypeParagraph();

    // Third chart:
    var ch2 = Sheet.ChartObjects.Add(rang.Left + rang.Width, ch.Top + ch.Height, 400, 250);
    ch2.Chart.ChartType = -4100;
    ch2.Chart.SetSourceData(rang, 2);

    ch2.CopyPicture();

    WordApp.Selection.Paste();

    // Save Word document & exit:
    var Path = WScript.ScriptFullName;
    Path = Path.substring(0, Path.lastIndexOf("\\"));

    WordApp.ActiveDocument.SaveAs(Path + "/charts.doc");
    WordApp.Quit();

    // Save Excel document & exit:
    WorkBook.SaveAs(Path + "/charts.xls");

    ExlApp.Quit();
}

Agradezco la ayuda que me puedan dar Mil gracias.