📄 exportexcel.js

📁 通用考勤系统

💻 JS

字号:


function texportExcel(){
var savapath=prompt("请输入要保存的路径：","c:\\");
var savaname=prompt("请输入要保存的文件名：","asoft_tykq2.1.xls");
 
var bb="<html xmlns:o=\"urn:schemas-microsoft-com:office:office\" xmlns:x=\"urn:schemas-microsoft-com:office:excel\" xmlns=\"http://www.w3.org/TR/REC-html40\"><xml><x:ExcelWorkbook>  <x:ExcelWorksheets>   <x:ExcelWorksheet>    <x:Name>Sheet1</x:Name>    <x:WorksheetOptions>     <x:ProtectContents>False</x:ProtectContents>     <x:ProtectObjects>False</x:ProtectObjects>     <x:ProtectScenarios>False</x:ProtectScenarios>    </x:WorksheetOptions>   </x:ExcelWorksheet>   <x:ExcelWorksheet>   </x:ExcelWorksheets>  </x:ExcelWorkbook></xml> <table width='95%' border='1' align='center' >";
 
var aa=aa+document.getElementById("tblData").innerHTML;
 
     
re=/<(input)[^>]+>/ig;
 

aa=aa.replace(re,'');   
 

var ee="<table width='95%' border='1' align='center' >";

var ExcelSheet;

ExcelApp = new ActiveXObject("Scripting.FileSystemObject");

ExcelSheet = ExcelApp.CreateTextFile(savapath+savaname, true);

try{

ExcelSheet.WriteLine(bb+ee+aa);

alert("恭喜！导出成功");

}catch(e){alert("导出失败！");

}finally{ExcelSheet.Close();}
 
}

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -