web中把Table的资料转到Excel里面去(转载)
经常看到有些人问怎么把Table的资料转到Excel里面去，很多人在碰到这个问题都先考虑用execl.appliction，使用不太好，首先必需要掌握它的一些内部用法，其次它在客户端使用时涉及安全性，以下介绍三种方法：
方法一：用单纯的文本格式实现
?该方法相当简单，以下给出代码，各位就容易明白
?<% set fso=server.createobject("scripting.filesystemobject")
? strExcelFile=server.MapPath("txtToExcel.xls")
? if fso.fileExists(strExcelFile) then fso.deletefile strExcelFile
? Set xslFile = fso.CreateTextFile(strExcelFile , True)
? xslFile.WriteLine("df" & vbTab & "345" & vbLf & "fe" & vbTab & "mon" &vbLf)
? xslFile.Close
? set fso=nothing
? response.write "OK"
?%>
原理：
相信大家都知道，Excel是可以打开文本文件的，而对于里面的文本内容Excel则会这样处理：如果遇到[制表符]Tab键则跳下一列，如果遇到[换行符]则换下一行，所以根据这个规则我们整理一下就可以产生单一表格式Excel文件了，
优点：
掌握简单，纯粹的文字整理而已。
缺点：
效率较低，把一个较多内容的table转成Excel档要则执行较长的循环（），而文档格式只能是规则的行列格式，对表格不能做更多的设置
方法二：用OWC实现：
??? 此方法也简单，只是少为人知而已，同样先给出代码：
??? <script language="javascript">
?????????? function exportExcel(atblData){
??????????? if (typeof(EXPORT_OBJECT)!="object"){
?document.body.insertAdjacentHTML("afterBegin","<OBJECT style=’display:none’ classid=clsid:0002E510-0000-0000-C000-000000000046 id=EXPORT_OBJECT></Object>");
?? }
?with (EXPORT_OBJECT){
????????? DataType = "HTMLData";
????????? HTMLData =atblData.outerHTML;
????? try{
?????????? ActiveSheet.Export("C:\\owcToExcel.xls", 0);
? alert(’汇出完毕’);
??????????? }
? catch (e){
?????????????? alert(’汇出Excel表失败，请确定已安装Excel2000(或更高版本),并且没打开同名xls文件’);
? }
??????????? }
?}
?????????? </script>
?
?<table id="tblData">
? <tr><td>gdsssa</td><td>445</td></tr>
? <tr><td>gdsssa</td><td>445</td></tr>
?</table>
?
?<input type="button" value="export" onclick="exportExcel(tblData)">
原理：
大家应该看出这是前端脚本html实现，其实这是利用OWC的功能来转出Excel档，我们只需整理出一个Table档，基本上我们整理出的Table在网页上是什么样子，在Excel上就是什么样子，但要注意:网页里的<style>不会汇出到Excel中，所以网页里的样式表不会在Excel中看到.
优点：
掌握也很简单，而且可以在前台实现，并且不会设计权限问题，为前台产生Excel档存到客户端而伤透脑筋的兄弟姐妹们，这个方法.
缺点：
客户端必需安装Excel2000或更高版本（不过这个一般都不成问题的了），而且样式表的内容不能输出。
方法三：利用XML来产生
???? 首先讲讲道理，先随便编一个Excel档，然后把它另存为*.htm文件，再用文本编辑器打开，是不是跟我们一般的网页内容非常相似，那么我们是不是只需要整理出这些文字出来就可以了，关键是怎样整理出这份文本文字档案呢
???? 我们分析一下这些文字，第一部分是<style>样式表的定义，第二部分是Excel特有的定义内容，第三部分是则是最熟悉的Table数据了，那么对于这三部分，前两部分基本是固定了，我整理一下基本只需要这些：
???? <html xmlns:s="uuid:BDC6E3F0-6DA3-11d1-A2A3-00AA00C14882" xmlns:dt="uuid:C2F41010-65B3-11d1-A29F-00AA00C14882" xmlns:rs="urn:schemas-microsoft-com:rowset" xmlns:z="#RowsetSchema" 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" content="text/html;"/>
?<style>
?xl24{mso-style-parent:style0;mso-number-format:"\@";text-align:right;}
?</style>
?<xml>
?<x:ExcelWorkbook>
??? <x:ExcelWorksheets>
???? <x:ExcelWorksheet>
?????? <x:Name>Sheet1</x:Name>
???????? <x:WorksheetOptions>??????????????? <x:ProtectContents>False</x:ProtectContents>
????????????? <x:ProtectObjects>False</x:ProtectObjects>
? <x:ProtectScenarios>False</x:ProtectScenarios>
???????? </x:WorksheetOptions>
?????? </x:ExcelWorksheet>
????? </x:ExcelWorksheets>
??? </x:ExcelWorkbook>
?</xml>
?</head>
???? 然后是第三部分，我们可以通过recordset来读取数据的指定内容，而且可以通过save来直接把那些内容生成一个xml文件，所以我们只需要根据这个xml文件写一个xsl文件来转换就行了，那么这个方法是我认为最好的，因为我们可以任意设定Table的样式，同时不必诸多循环，有效解决Excel一些自做聪明的小动作
?? 这种方法的优点是你可以定制很好的格式的Excel文件，只要你xsl会写，包括统计都可以做出来，所以懂xsl的人估计来到这里比较明白了，而且效率很高，不用再慢慢循环了
?? 缺点嘛:就是技术要求高了一点，至于算有多高，各人不同了。
?? 最后附上代码：
?
===========xmlToExcel.asp=============
<% Set Conn=Server.CreateObject("ADODB.Connection")
????? Conn.Open "Provider = Microsoft.Jet.OLEDB.4.0; Data Source ="& Server.MapPath("comp_apply.mdb")
?
?????? ’strSelect="select dept_no,dept_name,dept_check from dept_data"
??????? strSelect="select * from user_data"? ’改变该SQL语句则可改变excel的内容
???? Set rs=server.createobject("adodb.recordset")
?
??????? rs.open strSelect,conn,1,1
??????? set fso=server.createobject("scripting.filesystemobject")
??????? strXmlFile=server.MapPath("xmlToExcelTmp.xml")
??????? strXslFile=server.MapPath("xmlToExcel.xsl")
??????? strExcelFile=server.MapPath("xmlToExcel.xls")
??????? if fso.fileExists(strXmlFile) then fso.deletefile strXmlFile
??????? rs.save strXmlFile,1
??????? rs.close
??????? Conn.close
??????? set Conn=nothing
?
?set xmlDoc=server.createobject("microsoft.xmldom")
?set xslDoc=server.createobject("microsoft.xmldom")
?xslDoc.load(strXslFile)
?xmlDoc.load(strXmlFile)
?
?xmlDoc.loadXml(xmlDoc.transformNode(xslDoc))
?if fso.fileExists(strExcelFile) then fso.deletefile strExcelFile
?Set xslFile = fso.CreateTextFile(strExcelFile , True)
?xslFile.WriteLine(xmlDoc.xml)
?xslFile.Close
?fso.deletefile strXmlFile
?set fso=nothing
?response.redirect "xmlToExcel.xls"
?%>
?
?
?==============xmlToExcel.xsl=============
?
?<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
?xmlns:s=’uuid:BDC6E3F0-6DA3-11d1-A2A3-00AA00C14882’
?xmlns:dt=’uuid:C2F41010-65B3-11d1-A29F-00AA00C14882’
?xmlns:rs=’urn:schemas-microsoft-com:rowset’
?xmlns:z=’#RowsetSchema’>
?
?<xsl:output method="html" indent="yes" />
?
?<xsl:template match="xml/rs:data">
?<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" content="text/html;charset=gb2312" />
?<style>
?.xl24{mso-style-parent:style0;mso-number-format:"\@";text-align:right;}
?</style>
?<xml>
?<x:ExcelWorkbook>
?<x:ExcelWorksheets>
?<x:ExcelWorksheet>
?<x:Name>Sheet1</x:Name>
?<x:WorksheetOptions>
??????? <x:ProtectContents>False</x:ProtectContents>
??????? <x:ProtectObjects>False</x:ProtectObjects>
??????? <x:ProtectScenarios>False</x:ProtectScenarios>
?</x:WorksheetOptions>
?</x:ExcelWorksheet>
?</x:ExcelWorksheets>
?</x:ExcelWorkbook>
?</xml>
?</head>
??
?<body>
?<table border="1" cellpadding="0" cellspacing="0">
?<tr><xsl:for-each select="/xml/s:Schema/s:ElementType/s:AttributeType">
???????????????? <th><xsl:value-of select="@name" /></th>
?</xsl:for-each>
?</tr>
?<xsl:apply-templates select="z:row" />
?</table>
?</body>
?</html>
?</xsl:template>
?
?<xsl:template match="z:row">
?<xsl:variable name="position"><xsl:value-of select="position()" /></xsl:variable>
??
?<tr><xsl:for-each select="/xml/s:Schema/s:ElementType/s:AttributeType">?
??????????????? <!-- 读取定义好的数据列名 -->
?<xsl:variable name="strColumn"><xsl:value-of select="@name" /></xsl:variable>
??????????????? <xsl:variable name="strvalue"><xsl:value-of select="/xml/rs:data/z:row[position()=$position]/@*[name() = $strColumn]" /></xsl:variable>
?<td />
?</td>
?</xsl:for-each>
?</tr>
??????????????? </xsl:template>
?
?</xsl:stylesheet>
??????? 补充一下：对于第三种方法因为Recordset 用 Save方法后有时对于那些null的字段在row中不会有它的字段名，所以我现在通过去ElementType那里读取字段名，以保证不造成到时的Excel的纵列方位出错，但这个问题在.net里的DataSet确很好解决，因为DataSet中如果碰到这种null的数据它也会有<columnName />这样的空节点出现。
问题：
能保証select出正確的數據后﹐如果仍沒看到需要的Excel內容的話﹐請確認以下情況:
1.估計是你的msxml版本低了﹐試試去MS下載個msxmlsp2或更高的版本安裝再看看
2.請確定你的FSO有足夠的讀寫權限
3.請保証同名的Excel文件沒在使用中
怎樣修改標題名﹕
這個可以在select 時用別名來命名好標題名﹐但如果用中文的時候有時會出錯﹐我在簡繁體之間就飽受這點的困擾﹔如果不要做到通用的話也可以直接在xsl文件里修改
?
http://www.cnblogs.com/hades/articles/436194.html（转自）
