87,922
社区成员
发帖
与我相关
我的任务
分享表格到Excel
o有随意一个表格
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>a</title>
</head>
<body>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
<tr>
<td width="20%">a</td>
<td width="20%">werwerwe</td>
<td width="20%">werwerwer</td>
<td width="20%">f</td>
<td width="20%">afdasdf</td>
</tr>
<tr>
<td width="20%">x</td>
<td width="20%">b</td>
<td width="20%">a</td>
<td width="20%">a</td>
<td width="20%">a</td>
</tr>
<tr>
<td width="20%">asdffdsa</td>
<td width="20%">sadf</td>
<td width="20%">werwerw</td>
<td width="20%">f</td>
<td width="20%">fd</td>
</tr>
<tr>
<td width="20%">asdfsadfasdfasf</td>
<td width="20%">swerw</td>
<td width="20%">werwe</td>
<td width="20%">f</td>
<td width="20%">f</td>
</tr>
</table>
</body>
</html>
点右键全选，复制，打开Excel新建一个文件，点右键粘贴，可以将表格样式以及内容放到Excel内。
现O想不这样操作，在页面放一按钮，实现全选表格格式及内容的方法（不是全选，因为页面还有很多别的东西），然后到Excel中就可以粘贴的方法
O口才不好，不知道各位明白俺的意图没？
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>a</title>
</head>
<body>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
<tr>
<td width="20%">a</td>
<td width="20%">werwerwe</td>
<td width="20%">werwerwer</td>
<td width="20%">f</td>
<td width="20%">afdasdf</td>
</tr>
<tr>
<td width="20%">x</td>
<td width="20%">b</td>
<td width="20%">a</td>
<td width="20%">a</td>
<td width="20%">a</td>
</tr>
<tr>
<td width="20%">asdffdsa</td>
<td width="20%">sadf</td>
<td width="20%">werwerw</td>
<td width="20%">f</td>
<td width="20%">fd</td>
</tr>
<tr>
<td width="20%">asdfsadfasdfasf</td>
<td width="20%">swerw</td>
<td width="20%">werwe</td>
<td width="20%">f</td>
<td width="20%">f</td>
</tr>
</table>
</body>
</html>
点右键全选，复制，打开Excel新建一个文件，点右键粘贴，可以将表格样式以及内容放到Excel内。
现O想不这样操作，在页面放一按钮，实现全选表格格式及内容的方法（不是全选，因为页面还有很多别的东西），然后到Excel中就可以粘贴的方法
O口才不好，不知道各位明白俺的意图没？
...全文
请发表友善的回复…
发表回复
zcwmxn 2003-12-29
- 打赏
- 举报
window.clipboardData.setData("Text",document.all(obj).innerHTML);
恩，俺也找到解决办法了，也谢谢你的关心！
恩，俺也找到解决办法了，也谢谢你的关心！
sdiwencn 2003-12-29
- 打赏
- 举报
我已经测试过了，应该没有问题！
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>a</title>
</head>
<body>
<span id=report1>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
<tr>
<td width="20%">a</td>
<td width="20%">werwerwe</td>
<td width="20%">werwerwer</td>
<td width="20%">f</td>
<td width="20%">afdasdf</td>
</tr>
<tr>
<td width="20%">x</td>
<td width="20%">b</td>
<td width="20%">a</td>
<td width="20%">a</td>
<td width="20%">a</td>
</tr>
<tr>
<td width="20%">asdffdsa</td>
<td width="20%">sadf</td>
<td width="20%">werwerw</td>
<td width="20%">f</td>
<td width="20%">fd</td>
</tr>
<tr>
<td width="20%">asdfsadfasdfasf</td>
<td width="20%">swerw</td>
<td width="20%">werwe</td>
<td width="20%">f</td>
<td width="20%">f</td>
</tr>
</table>
</span>
<script>
function bringToExcel(){
// get all the text
var pasteText = document.all.report1.innerHTML;
// copy all the text to clipboard
window.clipboardData.setData ("Text", pasteText);
// Start Excel and get Application object.
var oXL = new ActiveXObject("Excel.Application");
oXL.Visible = true;
// Get a new workbook.
var oWB = oXL.Workbooks.Add();
var oSheet = oWB.ActiveSheet;
oSheet.Paste();
oXL.Visible = true;
oXL.UserControl = true;
}
</script>
<input type="button" onclick="bringToExcel()" value="导出到Excel">
</body>
</html>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>a</title>
</head>
<body>
<span id=report1>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
<tr>
<td width="20%">a</td>
<td width="20%">werwerwe</td>
<td width="20%">werwerwer</td>
<td width="20%">f</td>
<td width="20%">afdasdf</td>
</tr>
<tr>
<td width="20%">x</td>
<td width="20%">b</td>
<td width="20%">a</td>
<td width="20%">a</td>
<td width="20%">a</td>
</tr>
<tr>
<td width="20%">asdffdsa</td>
<td width="20%">sadf</td>
<td width="20%">werwerw</td>
<td width="20%">f</td>
<td width="20%">fd</td>
</tr>
<tr>
<td width="20%">asdfsadfasdfasf</td>
<td width="20%">swerw</td>
<td width="20%">werwe</td>
<td width="20%">f</td>
<td width="20%">f</td>
</tr>
</table>
</span>
<script>
function bringToExcel(){
// get all the text
var pasteText = document.all.report1.innerHTML;
// copy all the text to clipboard
window.clipboardData.setData ("Text", pasteText);
// Start Excel and get Application object.
var oXL = new ActiveXObject("Excel.Application");
oXL.Visible = true;
// Get a new workbook.
var oWB = oXL.Workbooks.Add();
var oSheet = oWB.ActiveSheet;
oSheet.Paste();
oXL.Visible = true;
oXL.UserControl = true;
}
</script>
<input type="button" onclick="bringToExcel()" value="导出到Excel">
</body>
</html>
