將html表導出爲ex​​cel時出現錯誤

Question

將html表導出爲ex​​cel時，出現以下錯誤： SCRIPT429：自動化服務器無法創建對象... 此功能工作正常，但當我重新啓動我的電腦和應用程序停止工作不知道發生了什麼事情。

function write_to_excel() { 
str = ""; 
var myTable = document.getElementById('myTable'); 
var rows = myTable.getElementsByTagName('tr'); 
var rowCount = myTable.rows.length; 
var colCount = myTable.getElementsByTagName("tr")[0] 
     .getElementsByTagName("th").length; 

var ExcelApp = new ActiveXObject("Excel.Application"); //Debug shows error at this line 
var ExcelWorkbook = ExcelApp.Workbooks.Add(); 
var ExcelSheet = ExcelWorkbook.ActiveSheet; 

ExcelApp.Visible = true; 
ExcelSheet.Range("A1", "Z1").Font.Bold = true; 
ExcelSheet.Range("A1", "Z1").Font.ColorIndex = 23; 

// Format table headers 
for (var i = 0; i < 1; i++) { 
    for (var j = 0; j < colCount - 1; j++) { 
     str = myTable.getElementsByTagName("tr")[i] 
       .getElementsByTagName("th")[j].innerHTML; 
     ExcelSheet.Cells(i + 1, j + 1).Value = str; 
    } 
    ExcelSheet.Range("A1", "Z1").EntireColumn.AutoFit(); 
} 
for (var i = 1; i < rowCount; i++) { 
    for (var k = 0; k < colCount - 1; k++) { 
     str = rows[i].getElementsByTagName('td')[k].innerHTML; 
    ExcelSheet.Cells(i + 1, k + 1).Value = myTable.rows[i].cells[k].innerText; 
    } 
    ExcelSheet.Range("A" + i, "Z" + i).WrapText = true; 
    ExcelSheet.Range("A" + 1, "Z" + i).EntireColumn.AutoFit(); 
} 

return; 
    } 

Answer 1

自動化服務器不能創建對象。

意味着您的ActiveX設置太高，因此代碼無法運行。