注意,下面的代码来自:http://blog.csdn.net/cngkqy/archive/2007/09/27/1803301.aspxjavascript将网页表格导出Word<script>
function AllAreaWord()
{
if(document.all("tab").rows.length==0)
{
alert("没有内容可导!");
return;
}
try{
var oWD = new ActiveXObject("Word.Application");
}catch(e)
{
alert("无法调用Office对象,请确保您的机器已安装了Office并已将本系统的站点名加入到IE的信任站点列表中!");
return;
}
var oDC = oWD.Documents.Add("",0,1);
var oRange =oDC.Range(0,1);
var sel = document.body.createTextRange();
sel.moveToElementText(tab); //tab 为导出数据所在的表格ID
sel.select();
sel.execCommand("Copy");
oRange.Paste();
oWD.Application.Visible = true;
}
</script><table id="tab" align="center" width="300" border="1" bordercolor="#2baeff" cellpadding="0" cellspacing="0" bgcolor="lightblue">
<Tr>
<Td>1</td>
<Td>2</td>
<Td>3</td>
</tr>
<Tr>
<Td>4</td>
<Td>5</td>
<Td>6</td>
</tr>
<Tr>
<Td>7</td>
<Td>8</td>
<Td>9</td>
</tr>
</table>
<input type=button name='button_export' title='导出到word' onclick=AllAreaWord() value=下载到word>
---------------------------------------------------------------------------------------------------------------------- javascript将网页表格导出Excel
<SCRIPT LANGUAGE="javascript"><!--function AutomateExcel(){var elTable = document.getElementById("outtable"); //outtable 为导出数据所在的表格ID;var oRangeRef = document.body.createTextRange(); oRangeRef.moveToElementText( elTable ); oRangeRef.execCommand( "Copy" ); try{
var appExcel = new ActiveXObject( "Excel.Application" );
}catch(e)
{
alert("无法调用Office对象,请确保您的机器已安装了Office并已将本系统的站点名加入到IE的信任站点列表中!");
return;
}appExcel.Visible = true; appExcel.Workbooks.Add().Worksheets.Item(1).Paste(); appExcel = null;}//--></SCRIPT><input type="button" name="out_excel" onClick="AutomateExcel();" value="导出到excel" class="notPrint">
<table border="1" cellpadding="0" cellspacing="0" id=outtable>
<tr height="28">
<td width="27" height="86" rowspan="4" bgcolor="#ffffcc">序号</td>
<td width="111" rowspan="4" bgcolor="#ffffcc"><div align="center">服务网点</div></td>
<td width="402" colspan="7" bgcolor="#ffffcc"><div align="center">用户满意度</div></td>
</tr>
<tr height="19">
<td width="100" height="39" colspan="3" rowspan="2" bgcolor="#ffffcc"><div align="center">样本数量</div></td>
<td width="218" colspan="3" rowspan="2" bgcolor="#ffffcc">对该服务网点实施本次活动的整体评价,满分10分(平均分数)</td>
<td width="84" rowspan="3" bgcolor="#ffffcc"><div align="center">季度平均分</div></td>
</tr>
<tr height="20"> </tr>
<tr height="19">
<td width="29" height="19" bgcolor="#ffffcc"><div align="center">4月</div></td>
<td width="29" bgcolor="#ffffcc"><div align="center">5月</div></td>
<td width="42" bgcolor="#ffffcc"><div align="center">合计</div></td>
<td width="68" bgcolor="#ffffcc"><div align="center">4月</div></td>
<td width="68" bgcolor="#ffffcc"><div align="center">5月</div></td>
<td width="82" bgcolor="#ffffcc"><div align="center">合计</div></td>
</tr>
<tr>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td bgcolor="#ffffcc"> </td>
<td> </td>
<td> </td>
<td bgcolor="#ffffcc"> </td>
<td bgcolor="#ffffcc"> </td>
</tr>
<tr>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td bgcolor="#ffffcc"> </td>
<td> </td>
<td> </td>
<td bgcolor="#ffffcc"> </td>
<td bgcolor="#ffffcc"> </td>
</tr>
</table>
function AllAreaWord()
{
if(document.all("tab").rows.length==0)
{
alert("没有内容可导!");
return;
}
try{
var oWD = new ActiveXObject("Word.Application");
}catch(e)
{
alert("无法调用Office对象,请确保您的机器已安装了Office并已将本系统的站点名加入到IE的信任站点列表中!");
return;
}
var oDC = oWD.Documents.Add("",0,1);
var oRange =oDC.Range(0,1);
var sel = document.body.createTextRange();
sel.moveToElementText(tab); //tab 为导出数据所在的表格ID
sel.select();
sel.execCommand("Copy");
oRange.Paste();
oWD.Application.Visible = true;
}
</script><table id="tab" align="center" width="300" border="1" bordercolor="#2baeff" cellpadding="0" cellspacing="0" bgcolor="lightblue">
<Tr>
<Td>1</td>
<Td>2</td>
<Td>3</td>
</tr>
<Tr>
<Td>4</td>
<Td>5</td>
<Td>6</td>
</tr>
<Tr>
<Td>7</td>
<Td>8</td>
<Td>9</td>
</tr>
</table>
<input type=button name='button_export' title='导出到word' onclick=AllAreaWord() value=下载到word>
---------------------------------------------------------------------------------------------------------------------- javascript将网页表格导出Excel
<SCRIPT LANGUAGE="javascript"><!--function AutomateExcel(){var elTable = document.getElementById("outtable"); //outtable 为导出数据所在的表格ID;var oRangeRef = document.body.createTextRange(); oRangeRef.moveToElementText( elTable ); oRangeRef.execCommand( "Copy" ); try{
var appExcel = new ActiveXObject( "Excel.Application" );
}catch(e)
{
alert("无法调用Office对象,请确保您的机器已安装了Office并已将本系统的站点名加入到IE的信任站点列表中!");
return;
}appExcel.Visible = true; appExcel.Workbooks.Add().Worksheets.Item(1).Paste(); appExcel = null;}//--></SCRIPT><input type="button" name="out_excel" onClick="AutomateExcel();" value="导出到excel" class="notPrint">
<table border="1" cellpadding="0" cellspacing="0" id=outtable>
<tr height="28">
<td width="27" height="86" rowspan="4" bgcolor="#ffffcc">序号</td>
<td width="111" rowspan="4" bgcolor="#ffffcc"><div align="center">服务网点</div></td>
<td width="402" colspan="7" bgcolor="#ffffcc"><div align="center">用户满意度</div></td>
</tr>
<tr height="19">
<td width="100" height="39" colspan="3" rowspan="2" bgcolor="#ffffcc"><div align="center">样本数量</div></td>
<td width="218" colspan="3" rowspan="2" bgcolor="#ffffcc">对该服务网点实施本次活动的整体评价,满分10分(平均分数)</td>
<td width="84" rowspan="3" bgcolor="#ffffcc"><div align="center">季度平均分</div></td>
</tr>
<tr height="20"> </tr>
<tr height="19">
<td width="29" height="19" bgcolor="#ffffcc"><div align="center">4月</div></td>
<td width="29" bgcolor="#ffffcc"><div align="center">5月</div></td>
<td width="42" bgcolor="#ffffcc"><div align="center">合计</div></td>
<td width="68" bgcolor="#ffffcc"><div align="center">4月</div></td>
<td width="68" bgcolor="#ffffcc"><div align="center">5月</div></td>
<td width="82" bgcolor="#ffffcc"><div align="center">合计</div></td>
</tr>
<tr>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td bgcolor="#ffffcc"> </td>
<td> </td>
<td> </td>
<td bgcolor="#ffffcc"> </td>
<td bgcolor="#ffffcc"> </td>
</tr>
<tr>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td bgcolor="#ffffcc"> </td>
<td> </td>
<td> </td>
<td bgcolor="#ffffcc"> </td>
<td bgcolor="#ffffcc"> </td>
</tr>
</table>
解决方案 »
- google map怎样显示路线上的标记
- 正则表达式
- 请问怎么实现ext的GridPanel全选?包括所有页的
- 这句常用的JS有错!!??
- (分享)Yahoo! UI Library 0.12.2
- 能不能用javascript程序新建vml的直线对象?
- 一个简单的数字时钟显示问题!!
- 全部分求:包涵javascript排序的DataGrid控件
- 如何在frame中将所有窗口都关闭?谢谢
- js定点获取元素属性值,将获取的属性值封装成一个函数
- 请教HTC的调用问题,当使用style='behavior:'的方法时,此HTC中的脚本变量是不是就不起作用了??
- 请教一个Ext2。0中 xtype的问题。
楼主【jojozw】截止到2008-06-27 23:05:12的历史汇总数据(不包括此帖):
发帖数:33 发帖分:1275
结贴数:28 结贴分:1050
未结数:5 未结分:225
结贴率:84.85 % 结分率:82.35 %
楼主加油
其他的没有办法,
最准确的办法是调用word VBA,但用VBA做这样一个东西,也不容易
js调试不如java什么的方便。你可以用后台程序来实现的,这样你可以用一个已经绘制好表头的
word/excel文件做做模板,只需要将数据一行行的写入(可以写一个宏供外部程序调用)
并另存让用户下载就可以了。简单而高效,我一直这样做