Question

Javascript实现把网页中table的内容导入到excel中的几种方法

Answer 1

WEB页面导出为EXCEL文档的方法</td</tr<tr<td列标题1</td<td列标题2</td<td列标题3</td<td列标题4</td<td列标题5</td</tr<tr<tdaaa</td<tdbbb</td<tdccc</td<tdddd</td<tdeee</td</tr<tr<tdAAA</td<tdBBB</td<tdCCC</td<tdDDD</td<tdEEE</td</tr<tr<tdFFF</td<tdGGG</td<tdHHH</td<tdIII</td<tdJJJ</td</tr</table<inputtype=buttononclick=javascript:method1('tableExcel');value=第一种方法导入到EXCEL<inputtype=buttononclick=javascript:method2('tableExcel');value=第二种方法导入到EXCEL<inputtype=buttononclick=javascript:getXlsFromTbl('tableExcel',null);value=第三种方法导入到EXCEL<SCRIPTLANGUAGE=javascriptfunctionmethod1(tableid){//整个表格拷贝到EXCEL中varcurTbl=document.getElementById(tableid);varoXL=newActiveXObject(
Excel.Application);//创建AX对象excelvaroWB=oXL.Workbooks.Add();//获取workbook对象varoSheet=oWB.ActiveSheet;//激活当前sheetvarsel=document.body.createTextRange();
sel.moveToElementText(curTbl);//把表格中的内容移到TextRange中
sel.select();//全选TextRange中内容
sel.execCommand(Copy);//复制TextRange中内容
oSheet.Paste();//粘贴到活动的EXCEL中
oXL.Visible=true;//设置excel可见属性}functionmethod2(tableid)//读取表格中每个单元到EXCEL中{varcurTbl=document.getElementById(tableid);varoXL=newActiveXObject(
Excel.Application);//创建AX对象excelvaroWB=oXL.Workbooks.Add();//获取workbook对象varoSheet=oWB.ActiveSheet;//激活当前sheetvarLenr=curTbl.rows.length;//取得表格行数for(i=0;i<Lenr;i++){varLenc=curTbl.rows(i).cells.length;//取得每行的列数for(j=0;j<Lenc;j++){oSheet.Cells(i+1,j+1
).value=curTbl.rows(i).cells(j).innerText;//赋值}}oXL.Visible=true;//设置excel可见属性}functiongetXlsFromTbl(inTblId,inWindow){try{varallStr=;varcurStr=;//alert(getXlsFromTbl);if(inTblId!=null&&inTblId!=&&inTblId!=null){curStr=getTblData(inTblId,inWindow);}if(curStr!=null){allStr+=curStr;}else{alert(
你要导出的表不存在！);return;}varfileName=getExcelFileName();
doFileExport(fileName,allStr);}catch(e){alert(
导出发生异常:+
e.name+-+
e.description+!);}}functiongetTblData(inTbl,inWindow){varrows=0;//alert(getTblDatais+inWindow);vartblDocument=document;if(!!inWindow&&inWindow!=){if(!document.all(inWindow)){returnnull;}else{tblDocument=eval(inWindow).document;}}varcurTbl=tblDocument.getElementById(inTbl);varoutStr=;if(curTbl!=null){for(varj=0;j<curTbl.rows.length;j++){//alert(jis+j);for(vari=0;i<curTbl.rows[j].cells.length;i++){//alert(iis+i);if(i==0&&rows0){outStr+=;rows-=1;}outStr+=curTbl.rows[j].cells[i].innerText+;if(curTbl.rows[j].cells[i].colSpan1){for(vark=0;k<curTbl.rows[j].cells[i].colSpan-1;k++){outStr+=;}}if(i==0){if(rows==0&&curTbl.rows[j].cells[i].rowSpan1){rows=curTbl.rows[j].cells[i].rowSpan-1;}}}outStr+=;}}else{outStr=null;alert(inTbl+不存在!);}returnoutStr;}functiongetExcelFileName(){vard=newDate();varcurYear=