将HTML表格导出成WORD、ACCESS、EXECEL等文件格式？

湘王

聚能技术官方账号

2003-12-27 09:23:43

同上

...全文

513 9 打赏收藏转发到动态举报

写回复

用AI写文章

9 条回复

切换为时间正序

请发表友善的回复…

发表回复

hcsunjun 2003-12-31

打赏
举报

这个在IE中控件不了,只能在word中用vba控制

seeu1688 2003-12-31

打赏
举报

office2000以后，ie中选取表格，粘贴至word文档，再保存即可。excel也是如此。
access是否可以通过excel的csv文件导入？

possible_Y 2003-12-31

打赏
举报

导出到EXCEL :
http://www.csdn.net/Develop/read_article.asp?id=23055

possible_Y 2003-12-31

打赏
举报

导出成WORD:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<body>
<div id="Layer1" >下在内容下在内容下在内容
<input type=button name='button_export' title='导出导word' onclick=OpenWord() value=下载到word></div>
</div>

<p>不需要的内容不需要的内容不需要的内容</p>
<table border="1">
<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>
</body>
</html>
<script language="javascript">
function OpenWord(){
Layer1.style.border=0
ExcelSheet = new ActiveXObject('Word.Application');
ExcelSheet.Application.Visible = true;
var mydoc=ExcelSheet.Documents.Add('',0,1);
myRange =mydoc.Range(0,1)
var sel=Layer1.document.body.createTextRange()
sel.select()
Layer1.document.execCommand('Copy')
sel.moveEnd('character')
myRange.Paste();
location.reload()
ExcelSheet.ActiveWindow.ActivePane.View.Type=9
}
</script>

fzel_net 2003-12-31

打赏
举报

header("Content-disposition: filename=file.doc");
header("Content-type: application/octetstream");
header("Pragma: no-cache");
header("Expires: 0");