国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 語言 > JavaScript > 正文

JavaScript將Table導出到Excel實現思路及代碼

2024-05-06 14:19:22
字體:
來源:轉載
供稿:網友
代碼如下:
function copyToExcel(tableid) {
//控制按鈕
var btn = document.getElementById("copy");
btn.setAttribute("disabled", "true");
btn.setAttribute("value", "處理中...");

var curTbl = document.getElementById(tableid);
try {
var oXL = new ActiveXObject("Excel.Application");
}
catch (e) {//IE安全級別未設置將出現錯誤 ( Automation 服務器不能創建對象 )
/*
如果是Scripting.FileSystemObject (FSO 文本文件讀寫)被關閉了,開啟FSO功能即可,在“運行”中執行regsvr32 scrrun.dll即可
*/
alert("無法啟動Excel!/n/n如果您確信您的電腦中已經安裝了Excel," + "那么請調整IE的安全級別。/n/n具體操作:/n/n" + "工具 → Internet選項 → 安全 → 自定義級別 → 對沒有標記為安全的ActiveX進行初始化和腳本運行 → 啟用");
return false;
}
var oWB = oXL.Workbooks.Add();
var oSheet = oWB.ActiveSheet;
var sel = document.body.createTextRange();
sel.moveToElementText(curTbl);
sel.select();
sel.execCommand("Copy");
oSheet.Paste();
oXL.Visible = true;
var fname = oXL.Application.GetSaveAsFilename("將table導出到excel.xls", "Excel Spreadsheets (*.xls), *.xls");
oWB.SaveAs(fname);
oWB.Close();
oXL.Quit();
//控制按鈕
btn.removeAttribute("disabled");
btn.setAttribute("value", "導出結果到Excel");
}
發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表

圖片精選

主站蜘蛛池模板: 三亚市| 贵定县| 深圳市| 济源市| 临夏县| 修文县| 花莲市| 读书| 内乡县| 宜君县| 平和县| 泾阳县| 伊春市| 德惠市| 旬阳县| 自贡市| 独山县| 温州市| 常宁市| 张家川| 二连浩特市| 巴林右旗| 个旧市| 麻城市| 马边| 大安市| 军事| 鄂州市| 六安市| 塔城市| 河南省| 肥乡县| 泸定县| 九龙县| 化德县| 民丰县| 根河市| 麦盖提县| 哈巴河县| 大化| 南阳市|