无为清净楼资源网 Design By www.qnjia.com
复制代码 代码如下:
function getTableDataByXML(inTable, inWindow) {
var rows = 0;
//alert("getTblData is " + inWindow);
var tblDocument = document;
if (!!inWindow && inWindow != "") {
if (!document.all(inWindow)) {
return null;
}
else {
tblDocument = eval(inWindow).document;
}
}
var inTbl = tblDocument.getElementById(inTable);
var outStr = "<?xml version=\"1.0\"?>\n";
outStr = outStr + "<?mso-application progid=\"Excel.Sheet\"?>\n";
outStr = outStr + "<Workbook xmlns=\"urn:schemas-microsoft-com:office:spreadsheet\"";
outStr = outStr + " xmlns:o=\"urn:schemas-microsoft-com:office:office\"";
outStr = outStr + " xmlns:x=\"urn:schemas-microsoft-com:office:excel\"";
outStr = outStr + " xmlns:ss=\"urn:schemas-microsoft-com:office:spreadsheet\">\n";
outStr = outStr + "<Worksheet ss:Name=\"Sheet1\">\n";
outStr = outStr + "<Table ss:ExpandedColumnCount=\"30\">\n";
var re = /^[0-9]+.?[0-9]*$/; //是否为数字
if (inTbl != null) {
for (var j = 0; j < inTbl.rows.length; j++) {
outStr += "<Row ss:AutoFitHeight=\"0\">\n";
for (var i = 0; i < inTbl.rows[j].cells.length; i++) {
if (i == 0 && rows > 0) {
outStr += "<Cell><Data ss:Type=\"String\"></Data></Cell>\n";
rows -= 1;
}
var cellValue = inTbl.rows[j].cells[i].innerText;
//小于12位数字用Number
if(re.test(cellValue) && (new String(cellValue)).length < 11){
outStr = outStr + "<Cell><Data ss:Type=\"Number\">" + cellValue + "</Data></Cell>\n";
}else{
outStr = outStr + "<Cell><Data ss:Type=\"String\">" + cellValue + "</Data></Cell>\n";
}
if (inTbl.rows[j].cells[i].colSpan > 1) {
for (var k = 0; k < inTbl.rows[j].cells[i].colSpan - 1; k++) {
outStr += " <Cell><Data ss:Type=\"String\"></Data></Cell>\n";
}
}
if (i == 0) {
if (rows == 0 && inTbl.rows[j].cells[i].rowSpan > 1) {
rows = inTbl.rows[j].cells[i].rowSpan - 1;
}
}
}
outStr += "</Row>\n";
}
}
else {
outStr = null;
alert("你要导出的表不存在!!");
return;
}
outStr = outStr + "</Table>\n</Worksheet>\n</Workbook>";
return outStr;
}
上述函数原本是导出txt文件的函数。把excel文件另存为一个xml文件,就可得到excel能识别什么内容格式的xml文件。
function getTableDataByXML(inTable, inWindow) {
var rows = 0;
//alert("getTblData is " + inWindow);
var tblDocument = document;
if (!!inWindow && inWindow != "") {
if (!document.all(inWindow)) {
return null;
}
else {
tblDocument = eval(inWindow).document;
}
}
var inTbl = tblDocument.getElementById(inTable);
var outStr = "<?xml version=\"1.0\"?>\n";
outStr = outStr + "<?mso-application progid=\"Excel.Sheet\"?>\n";
outStr = outStr + "<Workbook xmlns=\"urn:schemas-microsoft-com:office:spreadsheet\"";
outStr = outStr + " xmlns:o=\"urn:schemas-microsoft-com:office:office\"";
outStr = outStr + " xmlns:x=\"urn:schemas-microsoft-com:office:excel\"";
outStr = outStr + " xmlns:ss=\"urn:schemas-microsoft-com:office:spreadsheet\">\n";
outStr = outStr + "<Worksheet ss:Name=\"Sheet1\">\n";
outStr = outStr + "<Table ss:ExpandedColumnCount=\"30\">\n";
var re = /^[0-9]+.?[0-9]*$/; //是否为数字
if (inTbl != null) {
for (var j = 0; j < inTbl.rows.length; j++) {
outStr += "<Row ss:AutoFitHeight=\"0\">\n";
for (var i = 0; i < inTbl.rows[j].cells.length; i++) {
if (i == 0 && rows > 0) {
outStr += "<Cell><Data ss:Type=\"String\"></Data></Cell>\n";
rows -= 1;
}
var cellValue = inTbl.rows[j].cells[i].innerText;
//小于12位数字用Number
if(re.test(cellValue) && (new String(cellValue)).length < 11){
outStr = outStr + "<Cell><Data ss:Type=\"Number\">" + cellValue + "</Data></Cell>\n";
}else{
outStr = outStr + "<Cell><Data ss:Type=\"String\">" + cellValue + "</Data></Cell>\n";
}
if (inTbl.rows[j].cells[i].colSpan > 1) {
for (var k = 0; k < inTbl.rows[j].cells[i].colSpan - 1; k++) {
outStr += " <Cell><Data ss:Type=\"String\"></Data></Cell>\n";
}
}
if (i == 0) {
if (rows == 0 && inTbl.rows[j].cells[i].rowSpan > 1) {
rows = inTbl.rows[j].cells[i].rowSpan - 1;
}
}
}
outStr += "</Row>\n";
}
}
else {
outStr = null;
alert("你要导出的表不存在!!");
return;
}
outStr = outStr + "</Table>\n</Worksheet>\n</Workbook>";
return outStr;
}
上述函数原本是导出txt文件的函数。把excel文件另存为一个xml文件,就可得到excel能识别什么内容格式的xml文件。
标签:
导出,格式化,excel
无为清净楼资源网 Design By www.qnjia.com
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
无为清净楼资源网 Design By www.qnjia.com
暂无评论...
更新日志
2024年11月18日
2024年11月18日
- 【雨果唱片】中国管弦乐《鹿回头》WAV
- APM亚流新世代《一起冒险》[FLAC/分轨][106.77MB]
- 崔健《飞狗》律冻文化[WAV+CUE][1.1G]
- 罗志祥《舞状元 (Explicit)》[320K/MP3][66.77MB]
- 尤雅.1997-幽雅精粹2CD【南方】【WAV+CUE】
- 张惠妹.2007-STAR(引进版)【EMI百代】【WAV+CUE】
- 群星.2008-LOVE情歌集VOL.8【正东】【WAV+CUE】
- 罗志祥《舞状元 (Explicit)》[FLAC/分轨][360.76MB]
- Tank《我不伟大,至少我能改变我。》[320K/MP3][160.41MB]
- Tank《我不伟大,至少我能改变我。》[FLAC/分轨][236.89MB]
- CD圣经推荐-夏韶声《谙2》SACD-ISO
- 钟镇涛-《百分百钟镇涛》首批限量版SACD-ISO
- 群星《继续微笑致敬许冠杰》[低速原抓WAV+CUE]
- 潘秀琼.2003-国语难忘金曲珍藏集【皇星全音】【WAV+CUE】
- 林东松.1997-2039玫瑰事件【宝丽金】【WAV+CUE】