网页中的内容直接转化为excel代码,JS代码库,德仔网

代码语言

代码分类

【JS】网页中的内容直接转化为excel

作者: / 发布于2014/7/25/ 568


	******************************************************************************************************
	<html xmlns:o="urn:schemas-microsoft-com:office:office"
	xmlns:x="urn:schemas-microsoft-com:office:excel"
	xmlns="http://www.w3.org/TR/REC-html40">
	<head>
	<meta http-equiv=Content-Type c>
	<script>
	function out(){
	try{
	var elTable = document.getElementById("out");
	var oRangeRef = document.body.createTextRange();
	oRangeRef.moveToElementText( elTable );
	oRangeRef.execCommand( "Copy" );
	var oXL = new ActiveXObject("Excel.Application")
	var oWB = oXL.Workbooks.Add ;
	var oSheet = oWB.ActiveSheet ;
	oSheet.Paste();
	oSheet.Cells.NumberFormatLocal = "@";
	oSheet.Columns("D:D").Select
	oXL.Selection.ColumnWidth = 20
	//oSheet.Columns("A:A").Select
	//oSheet.Columns("A").Width = 1000;
	oXL.Visible = true;
	oSheet = null;
	oWB = null;
	appExcel = null;
	}catch(e){alert(e.description)}
	}
	</script>
	</head>
	<body>
	<table id ='out'>
	<tr>
	 <td x:str bgcolor="#FF0000">00001</td>
	 <td x:str>0002</td>
	</tr>
	<tr>
	 <td height=18 align=right style='height:13.5pt' x:str>00001</td>
	 <td align=right x:str>000002</td>
	</tr>
	<tr>
	 <td x:str>0003</td>
	 <td x:str>00003</td>
	</tr>
	</table>
	<INPUT type="button" value="Button" id=button1 name=button1 >
	</body>
	</html>

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

试试其它关键字

同语言下

可能有用的

贡献的其它代码Label