classid="CLSID:8856F961-340A-11D0-A96B-00C04FD705A2"></object>
<button onClick="WebBrowser.ExecWB(4,1)">
另存爲...
</button>
2 定義一個名爲"tableExcel"的表單,再定義一個按鈕來onClick。
對JS中的excel.xls可以改爲.doc等形式
function saveCode(obj) {
var winname = window.open('', '_blank', 'top=10000');
var strHTML = document.all.tableExcel.innerHTML;
winname.document.open('text/html', 'replace');
winname.document.writeln(strHTML);
winname.document.execCommand('saveas','','excel.xls');
winname.close();
}
</script>
3 將頁面中指定表格的數據在Excel中打開, 使用ActiveXObject
function AutomateExcel() {
var oXL = new ActiveXObject( "Excel.Application"); //創建應該對象
var oWB = oXL.Workbooks.Add(); //新建一個Excel工作簿
var oSheet = oWB.ActiveSheet; //指定要寫入內容的工作表爲活動工作表
var table = document.getElementById("data"); //指定要寫入的數據源的id
var hang = table.rows.length; //取數據源行數
var lie = table.rows(0).cells.length; //取數據源列數
//Add table headers going cell by cell.
for (i=0;i <hang;i++) {//在Excel中寫行
for (j=0;j <lie;j++) {//在Excel中寫列
//定義格式
oSheet.Cells(i+1,j+1).Font.Bold = true;//加粗
oSheet.Cells(i+1,j+1).Font.Size = 10;//字體大小
oSheet.Cells(i+1,j+1).value = table.rows(i).cells(j).innerText;//向單元格寫入值
}
}
oXL.Visible = true;
oXL.UserControl = true;
}
</SCRIPT>
4 定義一個名爲"tableID"的表單,再用一個按鈕onClick
function table2xls() {
function String.prototype.Trim() {
return this.replace(/(^s*)|(s*$)/g,"");
}
try {
var e = document.getElementById("tableID");
var s = "";
for (var j=0; j<e.rows.length; j++) {
if (e.rows[0].cells[0].innerText.Trim() == "") {
for (var i=1; i<e.rows[j].cells.length; i++)
s += e.rows[j].cells[i].innerText.Trim() +" ";
} else {
for (var i=0; i<e.rows[j].cells.length; i++)
s += e.rows[j].cells[i].innerText.Trim() +" ";
}
s += " ";
}
var xlsWindow = window.open("","","width=0,height=0");
xlsWindow.document.write(s);
xlsWindow.document.close();
xlsWindow.document.execCommand('Saveas',true,'%homeDrive%/Date.txt')
xlsWindow.close();
}catch(e){}
}
</script>