//功能:导出多个表格到EXCEL或者ET
//调用方法:toExcel('要导出的表格ID,以|分隔多个表格','输出到excel中的工作薄名称','导出的方式,0为不带格式,1为带格式','要导出的列数')
var idTmr = ""
function Cleanup() {
window.clearInterval(idTmr)
CollectGarbage()
}
function toExcel(tableId,sheetname,method,cols){
if(!confirm("确认导出数据到EXCEL?")){return false}
var tables=tableId.split("|")
for(var n=0n<tables.lengthn++){
if(!document.getElementById(tables[n])){
alert("表格"+tables[n]+"不存在,请检查是否有数据输出")
return false
}
}
try{
var oXL = new ActiveXObject("excel.Application")
}catch(e1){
try{
var oXL = new ActiveXObject("et.Application")
}catch(e2){
alert(e2.description+"\n\n\n要使用EXCEL对象,您必须安装Excel电子表格软件\n或者,需要安装Kingsoft ET软件\n\n同时浏览器须使用“ActiveX 控件”,您的浏览器须允许执行控件。")
return
}
}
try {
var m=1
oXL.Visible = true
oXL.ScreenUpdating=false
//oXL.Calculation=-4135
var oWB = oXL.Workbooks.Add
var oSheet = oWB.ActiveSheet
var xlsheet = oWB.Worksheets(1)
for(var i=oWB.Worksheets.counti>1i--){ //删除多余工作表
oWB.Worksheets(i).Delete()
}
for(var n=0n<tables.lengthn++){
var elTable = document.getElementById(tables[n])
var oRangeRef = document.body.createTextRange()
oRangeRef.moveToElementText(elTable)
oRangeRef.execCommand("Copy")
oSheet.cells(m,1).select
oSheet.Paste() //此方式为直接粘贴,带格式
if (method == 0) {
oSheet.cells.ClearFormats
//以下删除因表头分拆后产生的空行,一般表头不会超过5行,此处检查5行数据
for(var delrow=1delrow<5delrow++){
var isBlank=true
for(var col=1col<=elTable.rows[0].cells.lengthcol++){
if(oSheet.cells(m+1,col).value!="" && oSheet.cells(m+1,col).value!=undefined){
isBlank=false
break
}
}
if(isBlank){
oSheet.Rows(m+1).Delete
}
}
}
m+=elTable.rows.length
}
//oSheet.Cells.NumberFormatLocal = "@"//格式化数字时使用
n=oSheet.Shapes.count
for(var i=1i<=ni++){
oSheet.Shapes.Item(1).Delete() //因为每次删除都会使总数减少,所以删除n次第一个对象,也可以倒过来从大到小删除
}
oXL.Selection.CurrentRegion.Select //选择当前区域
oXL.Selection.Interior.Pattern = 0 //设置底色为空
oXL.Selection.Borders.LineStyle = 1 //设置单元格边框为实线
oXL.Selection.ColumnWidth = 5 //设置列宽
oXL.Selection.RowHeight = 16 //行高
oXL.Selection.Columns.AutoFit //列宽自动适应
//xlsheet.Columns("A:Z").AutoFit //列宽自动适应
xlsheet.Rows("1:"+m).AutoFit //自动行高
xlsheet.Name=sheetname
oSheet = null
oWB = null
appExcel = null
//oXL.Calculation=-4105
oXL.ScreenUpdating=true
idTmr = window.setInterval("Cleanup()",1) //释放Excel进程,回收内存空间,避免产生多个不会自己终止的Excel进程
}catch (e) {
idTmr = window.setInterval("Cleanup()",1)
alert(e.description)
}
}
具体步骤1.复制原来那个单元格里面的内容到一个变量
2.将那个单元格的内容替换为一个输入框(input)
3.将那个变量的内容赋值给输入框
反向操作:
1.取得输入框里的内容并赋值给一个变量
2.将单元格清空,并将那个变量的值填写到单元格里